no save
Assistance
Achat
News

Forum | programmation
Rerchercher une valeur dans une cellule VBA
kit_ou_DOUBLE, le jeu. 09 juil. 2009 à 10:37:04
Bonjour à tous,

je veux faire une macro qui cherche "B" dans la colonne 3 et si ne trouve pas "B" alors il met dans la cellule
cells ( 1,1)=0 et si il trouve "B" j'incrémente un compteur. SACHANT QUE la cellule 3 contient "A" "B" "C" "D" "E" " F" Le contenu peut évoluer.


et je VEUX fairee la m^me chose pour chercher ''D'' et ''C"

voilà ce j'ai fait:


For j = 3 To Cells(Rows.Count, 3).End(xlUp).Row

if Cells(j, 3).Value = "B" Then
compteur2 = compteur2 + 1
Cells(1, 1).Value = compteur2

else: /*** else ça veut dire si Cells(j, 3).Value <> "B", elle peut donc être "C" ou "D" ou autre ******/

comment dire si tu ne trouve pas "B" et uniquement "B" si lorsque il tombe sur recherche sur "c" par exemple je ne veux pas qu'il rentre dans la boucle , mets Cells(1, 1).Value =0

End If
Next

/***************même chose pour "c"************/
For j = 3 To Cells(Rows.Count, 3).End(xlUp).Row

if Cells(j, 3).Value = "C" Then
compteur1 = compteur1 + 1
Cells(2, 1).Value = compteur1
endif
else

/***********************/

je ne sais pas si c'est clair!!! please help !!!!Configuration: Windows XP Internet Explorer 6.0


michel_m
09 juil.
Suivant
REPONSES
michel_m
09 juil.
kit_ou_DOUBLE
09 juil.
michel_m
09 juil.
kit_ou_DOUBLE
09 juil.
Version Web
Réalisé par RedShift
no save