Discussion :

[hunadia]

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

[Malick]

Bienvenue sur Developpez.com
Pour une meilleure lisibilité, vous pouvez mettre votre code entre les balises # prévues à cet effet.
Voici la procédure sur comment le faire :

démonstration de l'utilisation du bouton code (#)

[hunadia]

Bonjour
Je n'ai pas trouvé sur les forum la réponse à ma question. Je comprends à peu près les mots de la ligne de programme mais n'ai pas assez de connaissances pour ajouter cette condition qui dit que :
si je vide une cellule de la plage [R6:R1000], alors la cellule située colonne S sur la même ligne sera automatiquement vidée.
Pouvez vous m'aider?
d'avance merci

[halaster08]

Bonjour, si j'ai bien compris tu peux essayer ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
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
            If S = "" Then S.Offset(, 1) =""
        Next S
    End If
End Sub

[hunadia]

Yessss! - moi aussi la théorie est un pays que j'affectionne particulièrement : ta solution fonctionne parfaitement. Merci pour ton aide!