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
A voir également:
- Appeler une macro avec condition
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Appeler en privé - Guide
- Nommez une application d'appel vidéo ou de visioconférence - Guide
- Excel cellule couleur si condition texte - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
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
2. Exit for permet de sortir de la boucle à la 1° egalité rencontrée
bonne suite
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
