Discussion :

[John81]

Bonjour,

La macro suivante fonctionne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[wilfried_42]

Bonjour

je ne sais pas , 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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

         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 :

Sélectionner tout - Visualiser dans une fenêtre à part

      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

[John81]

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