Probleme de calcul

FORUM Tom's Hardware » Programmation » VB / VBA / VBS » Probleme de calcul

Probleme de calcul

Il y a 337 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici

Voir les posts : Par défaut Tous Les bonnes notes Les notes insuffisantes

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Probleme de calcul

chamakh51

Plus d'informations

21-06-2007 à 11:21:39

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 :

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

Message édité par chamakh51 le 21-06-2007 à 11:22:58

zeb

Profil : Modérateur libre

Plus d'informations

21-06-2007 à 11:25:54

Masquer

Code très moche par plein de Select/Selection et ActiveMachin
Remarque déjà faite ici : http://www.presence-pc.com/forum/p [...] htm#t32101

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

---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...

zeb

Profil : Modérateur libre

Plus d'informations