Appeler une macro avec condition
saadiil1
Messages postés
31
Statut
Membre
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour tout le monde ;
Je suis debutant en VBA , et je veux comparer la (A1)avec toute les autre jusqu'a (A1000) , si elles sont egaux appeler la macro test ( déjà faite) et je n'arrive pas . voici ce que je mets comme boucle :
For i = 1 To 100
If Cells(1, i).Value = Cells(1, i + 1).Value Then Call Module1.test
Else
Exit For
Next i
je ne sais pas pourquoi ça ne marche pas , en fait elle me signal "else sans if !!!!!!!!!!!)
merci de votre aide
Je suis debutant en VBA , et je veux comparer la (A1)avec toute les autre jusqu'a (A1000) , si elles sont egaux appeler la macro test ( déjà faite) et je n'arrive pas . voici ce que je mets comme boucle :
For i = 1 To 100
If Cells(1, i).Value = Cells(1, i + 1).Value Then Call Module1.test
Else
Exit For
Next i
je ne sais pas pourquoi ça ne marche pas , en fait elle me signal "else sans if !!!!!!!!!!!)
merci de votre aide
1 réponse
-
bonjour
1. je veux comparer la (A1) avec toute les autre jusqu'a (A1000)
et s'il y a égalité on appelle la procedure test du module 1
For i = 2 To 1000 If Range("A1").Value = Range("A" & i).Value Then Call test End if Next i
2. Exit for permet de sortir de la boucle à la 1° egalité rencontrée
bonne suite
