Boucle VBA

Résolu/Fermé
cindy001 Messages postés 102 Date d'inscription lundi 20 décembre 2010 Statut Membre Dernière intervention 17 août 2011 - 22 avril 2011 à 16:38
cindy001 Messages postés 102 Date d'inscription lundi 20 décembre 2010 Statut Membre Dernière intervention 17 août 2011 - 22 avril 2011 à 20:14
Bonjour,

J'aimerai faire la boucle suivante

Range("AH2").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R2C20:R17000C20,1)"

de meme pour 2 à la place de 1, pour 3 .... jusqu'à 200

et afficher ca à partir de AH2 jusqu'à AH201
jpense que c possible qu'avec vba, si ya un moyen avec Excel ca serait très bien

Merci

3 réponses

ccm81 Messages postés 10908 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 mai 2025 2 431
Modifié par ccm81 le 22/04/2011 à 16:52
bonjour

sans VBA, quelque chose qui ressemble à ça pour compter les 1 (= Ligne(deAH2)-1)

AH2=NB.SI(ta_plage;LIGNE()-1)

à tirer vers le bas, LIGNE() sera mis a jour à chaque .... ligne

bonne suite
0
cindy001 Messages postés 102 Date d'inscription lundi 20 décembre 2010 Statut Membre Dernière intervention 17 août 2011 2
22 avril 2011 à 17:03
jcomprends pas??
jmets cette formule dans AH2 mais jmets quoi à la place de LIGNE ???
=NB.SI(R2C20:R17000C20;LIGNE()-1)
LIGNE jle remplace par quoi???

Merci encore
0
ccm81 Messages postés 10908 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 mai 2025 2 431
22 avril 2011 à 17:10
par rien
la fonction LIGNE() sans aucun parametre, renvoie la ligne de la cellule active
comme tu es en AH2 donc en ligne 2 LIGNE()-1 vaudra 2-1 = 1, juste ce qu'il faut
et en AH3 ....
bonne suite
0
cindy001 Messages postés 102 Date d'inscription lundi 20 décembre 2010 Statut Membre Dernière intervention 17 août 2011 2
22 avril 2011 à 20:14
ca marche merci
0