Probleme de calcul

[chamakh51]

bonjour
J'ai un fichier excel avec 2 feuilles 'feuil1' + 'resultat'

en feuil1 sur les colonnes de C à K j'ai des lettres allant de A à E , avec une lettre par cellule.
sur la 2eme feuille resultat j'ai mes formules qui me permettent de calculer le nombre de A que j'ai en colonne C, le nombre de B en colonne C ..... !
je retrouve les resultats mais seulement pour la colonne C , pour les autres colonnes de D à K sur mes cellules j'ai " #NOM?"

voici une partie de mon code :

Range("A1").Select
    Sheets("Feuil2").Select
    Sheets("Feuil2").Name = "Resultat"
    ActiveCell.FormulaR1C1 = "D"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "E"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "C"
    Range("A4").Select
    ActiveCell.FormulaR1C1 = "A"
    Range("A5").Select
    ActiveCell.FormulaR1C1 = "B"
    Range("A1:A5").Select
    With Selection.Interior
        .ColorIndex = 33
        .Pattern = xlSolid
    End With
    
    
    'Insertion des "valeur" dans les cellules A1 à A5
    Range("A5").Select
    ActiveWorkbook.Names.Add Name:="VALEUR5", RefersToR1C1:="=Resultat!R5C1"
    Range("A4").Select
    ActiveWorkbook.Names.Add Name:="VALEUR4", RefersToR1C1:="=Resultat!R4C1"
    Range("A3").Select
    ActiveWorkbook.Names.Add Name:="VALEUR3", RefersToR1C1:="=Resultat!R3C1"
    Range("A2").Select
    ActiveWorkbook.Names.Add Name:="VALEUR2", RefersToR1C1:="=Resultat!R2C1"
    Range("A1").Select
    ActiveWorkbook.Names.Add Name:="VALEUR1", RefersToR1C1:="=Resultat!R1C1"
    
    
    
    
    'Insertion des formules
    
    Range("C1").Activate
    ActiveCell.FormulaR1C1 = "=COUNTIF(Feuil1!C:C,VALEUR1)"
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(Feuil1!C:C,VALEUR2)"
    Range("C3").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(Feuil1!D:D,VALEUR3)"
    Range("C4").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(Feuil1!D:D,VALEUR4)"
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(Feuil1!D:D,VALEUR5)"

Si quelqu'un peu pourrait m'aider ce serait sympa

 

[zeb]

Code très moche par plein de Select/Selection et ActiveMachin
Remarque déjà faite ici :

Vous devez être connecté pour voir les liens.

A quoi bon demander de l'aide ici si c'est pour ne pas en tenir compte ?

 

[zeb]

La solution à ton problème est dans le manuel, à la page FormulaR1C1 et à la page Formula.