appeler une macro avec condition Fermé

Question

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

ccm81 · Answer

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

Appeler une macro avec condition

1 réponse

Discussions similaires