Discussion :

[pilounet54]

bonjour es que l'on pourrai adapter cette formule à toutes ligne à partir de la ligne 6

Code :

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

1
2
3
4
5
 Dim ligne As Integer
       ligne = 6
     If Application.CountIf(Range(Cells(ligne, 8), Cells(ligne, 13)), "OK") > 1 Then
       Range(Cells(ligne, 8), Cells(ligne, 13)).ClearContents
      End If

merci

[jfontaine]

Bonjour,

Essais comme cela

Code :

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

1
2
3
4
5
6
7
Dim ligne As Long

For ligne = 6 To Range("I" & Rows.Count).End(xlUp).Row
    If Application.CountIf(Range(Cells(ligne, 8), Cells(ligne, 13)), "OK") > 1 Then
     Range(Cells(ligne, 8), Cells(ligne, 13)).ClearContents
    End If
Next ligne

[pilounet54]

une merveille merci bonne soiree