OVH Cloud OVH Cloud

Erreur Boucle

2 réponses
Avatar
zacariat
Bonjour,

Ce code ne marche pas :

For Each cell In Range("A:A")
If Cells.Value = "test" Then
MsgBox "test"
End If
If Cells.Value = "" Then
Exit For
End If
Next

Je voudrais tester le contenu de chaque cellule de la colonne A. Ou est
l'erreur
Merci d'avance.

2 réponses

Avatar
OnE
Bonjour,

Ce code ne marche pas :

For Each cell In Range("A:A")
If Cells.Value = "test" Then
MsgBox "test"
End If
If Cells.Value = "" Then
Exit For
End If
Next

Je voudrais tester le contenu de chaque cellule de la colonne A. Ou est
l'erreur
Merci d'avance.


Bonjour,

for each cell in range("A:A")
if cell.value = "test" then 'et non pas cells
msgbox "test"
endif
if cell.value = "" then ' et non pas cells
exit for ' sort de la boucle si la cellule est vide
end if
next

Avatar
anonymousA
bonjour,

si tu remplacais cells par cell dans ton cells.value, ca devrait aller mieux
. Il faut eviter de donner à une variable un nom trop proche d'un mot clé ou
d'une propriété/méthode de VBA car tu ne t'es pas aperçu de ton erreur de
frappe car le nom de ta variable prête à confusion.
Enfin, je ne sais pas ce que tu veux réellement faire avec cette proc mais
la recherche séquentielle est lente et il n'est peut-être pas nécessaire de
s'y prendre comme tu le fais.Mais ca, c'est juste ce que j'en dis.

A+



Bonjour,

Ce code ne marche pas :

For Each cell In Range("A:A")
If Cells.Value = "test" Then
MsgBox "test"
End If
If Cells.Value = "" Then
Exit For
End If
Next

Je voudrais tester le contenu de chaque cellule de la colonne A. Ou est
l'erreur
Merci d'avance.