Boucle For Each

[Chasse]

Bonjour le forum

Mes problèmes commencent si j’ai plus de 2 « X » sur la colonne « N2 :N31 »

Ma boucle recherche si il y a « X » simultanément dans les colonnes « M2:M31 ; N2:N31 »

If c = "X" And c.Offset(0, 1) = "X" Then

Si oui elle m’ouvre une boîte de dialogue «ChoisirOptions.Show» et j’ai le choix entre 3 possibilités
Seulement je ne sais pas comment faire, pour que les déclarations faites dans la 1ère macro, soient reconnues par la procédure qui prend la main, ne traite qu’une ligne et redonne la main à la 1er macro et ainsi de suite pour chaque « X » se trouvant dans la colonne « N »

Si le « X » ce trouve que sur la colonne « M2 :M31 » pas de lézard

ElseIf c = "X" And c.Offset(0, 1) = "" Then

Merci pour votre aide A+

 

[fhoest]

Re : Boucle For Each

bonsoir,
es-ce que vous voulez vous pointer sur la ligne qui ouvre le usf.
si oui il faut insérer une variable declarer en public ma_variable as long dans le module et lui attribuer la valeur de c.row que vous allez pouvoir récupérer dans le usf .
A+

 

[Chasse]

Re : Boucle For Each

Bonsoir Fhoest

Merci de votre réponse, mais je rame toujours
J’ai déclare dans le 1er module

Dim ma_variable As Long
ma_variable = c.Row

Comment récupérer dans le usf

Amicalement

 

[fhoest]

Re : Boucle For Each

voici votre fichier:
A bientôt.😀

 

[Chasse]

Re : Boucle For Each

Merci mais le problème persiste

Il y a autant de ligne copiée qu'il y a de « X »
4 X = 4 lignes par X
Si j’ai qu’une « X » là c’est OK

bonne nuit & A+

 

[Chasse]

Re : Boucle For Each

Petite question subsidiaire

Qu’elle est la syntaxe pour mettre plusieurs critères

If ws1.Range("B" & c.Row) = "719119" ou "719121" ou "719121" Then

Cordialement

 

[fhoest]

Re : Boucle For Each

Re,je ne suis pas sur d'avoir bien compris le problème.
A essayer :