Bonjour
Je dispose d'une macro qui me permet d’insérer automatiquement une date dans une cellule à partir du moment ou une autre cellule est remplie. J'ai peu de connaissance pour la compléter...
Elle fonctionne bien mais j'aimerai ajouter une condition qui fait que si on supprime les infos dans la cellule de référence sur la plage R6-R1000, cela supprime aussi la date qui s'était affichée sur la ligne correspondante de la colonne S

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim pl As Range, S As Range
    Set pl = Intersect([R6:R1000], Target)
    If Not pl Is Nothing Then
        For Each S In pl
            If S.Offset(, 1) = "" Then S.Offset(, 1) = Date
        Next S
    End If
End Sub
D'avance merci pour votre aide sur ce sujet