Bonjour à toutes et tous,
Je viens de trouver cette macro sur Internet
Code: Tout sélectionner
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
Comment puis-je la modifier pour avoir ceci.
Si la cellule AX4 contient une date, alors, supprimer le contenu de la cellule C4. Je souhaiterai que cette macro fonctionne pour les lignes 4 jusqu'à la ligne 1201.
Si la cellule AX5 contient une date, alors, supprimer le contenu de la cellule C5
Si la cellule AX4 contient une date, alors, supprimer le contenu de la cellule C6.
Merci pour votre aide précieuse
Je viens de trouver cette macro sur Internet
Code: Tout sélectionner
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
Comment puis-je la modifier pour avoir ceci.
Si la cellule AX4 contient une date, alors, supprimer le contenu de la cellule C4. Je souhaiterai que cette macro fonctionne pour les lignes 4 jusqu'à la ligne 1201.
Si la cellule AX5 contient une date, alors, supprimer le contenu de la cellule C5
Si la cellule AX4 contient une date, alors, supprimer le contenu de la cellule C6.
Merci pour votre aide précieuse