Bonjour à toutes et tous,
Je souhaite modifier le code ci-dessous trouvé sur Internet et l'adapter à la situation suivante
Si cellule AX4, AX5, AX6:AX1200... contiennent une date, alors effacer le contenu de la cellule C4, C5, C6:C1200...
Un immense merci à vous car je suis perdue et novice dans les VBA.
Chrystou
Option Explicit
Sub EffacerOK()
Dim J As Long
For J = 4 To Range("A" & Rows.Count).End(xlUp).Row
If UCase(Range("A" & J)) = "OK" Then
Range("A" & J & ":B" & J & ",D" & J).ClearContents
End If
Next J
End Sub
Je souhaite modifier le code ci-dessous trouvé sur Internet et l'adapter à la situation suivante
Si cellule AX4, AX5, AX6:AX1200... contiennent une date, alors effacer le contenu de la cellule C4, C5, C6:C1200...
Un immense merci à vous car je suis perdue et novice dans les VBA.
Chrystou
Option Explicit
Sub EffacerOK()
Dim J As Long
For J = 4 To Range("A" & Rows.Count).End(xlUp).Row
If UCase(Range("A" & J)) = "OK" Then
Range("A" & J & ":B" & J & ",D" & J).ClearContents
End If
Next J
End Sub