Boucle For Next

Version imprimable

Boucle For Next

Bonjour,

La macro suivante fonctionne:

Code:

1
2
3
4
5
6
7
8
9
Dim cell As Range
 
    For Each cell In Range("J122:J127")
         If cell.Value = "FAUX" Then
         cell.ClearContents
         End If
    Next cell
 
End Sub

La suivante ne fonctionne pas:

Code:

1
2
3
4
5
6
7
8
9
Dim cell As Range
 
    For Each cell In Range("J1226:J1274")
         If cell.Value = "FAUX" Then
         cell.ClearContents
         End If
    Next cell
 
End Sub

Qqn peut-il me dire pourquoi la deuxième ne fonctionne pas?

Merci de votre réponse. John81

03/11/2008, 20h46
wilfried_42

Bonjour

je ne sais pas 8-), as tu mis un point d'arret sur ta ligne If et passé ta souris sur cell.value pour connaitre la valeur de cell ?

ca viendrait de la selon moi, VRAI ou FAUX dans excel est traduit par false ou true

Perso, je verrai : if cell.value = False then

Regarde le Format de tes cellules aussi : Format standard ou Texte
03/11/2008, 21h42
Bigalo

Bonsoir,

Quand tu entres "Faux" dans une cellule, c’est automatiquement converti en FAUX. Si ensuite tu fermes le document et le réouvres avec une verion en anglais c’est FALSE qui s’affichera dans la cellule (FALSO avec une verion en italien, ...).

Tout cela démontre que la cellule ne contient pas la chaîne de caractères "Faux", mais une valeur logique.

Sauf si tu utilises une version qui n’est pas en Français, ou si la cellule est formatée en texte. Dans ces 2 cas, effectivement "Faux" n’est pas reconnu et donc pas converti en valeur logique.

Par conséquent, je suis d’accord avec wilfried_42, hormis dans des cas atypiques comme évoqués ci-dessus, le bon test est

Code:

If cell = False Then

L’anomalie correspond donc à la macro qui marche en testant "Faux" !

Par ailleurs, il est suboptimal de boucler dans toutes les cellules : un Rechercher/Remplacer serait bien + efficace :

Code:

Range("J1226:J1274").Replace What:="Faux", Replacement:="", LookAt:=xlWhole

NB - Ici on indique la chaîne quel’on entrerait dans le dialogue si on faisait la manip manuellement d’où le retour à la chaîne de caractères "Faux" !

Cordialement,

Par ailleurs
04/11/2008, 22h26
John81

Merci bcp pour vos réponses à tous les deux. Bonne soirée John81