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