Bonjour,
J'ai un classeur pour gérer des prêts de matériels.
Dans ce classeur, sur la feuille "tampon divers".
Lorsque je rentre le nom de la personne en (D) (via une douchette) une macro m'inscris automatiquement la date et l'heure du prêt en (E).
J'aimerais lorsque j'efface son nom en (D) que cela efface aussi la date et l'heure en même temps en (E).
De plus , est il possible de modifier cette macro pour qu'elle exécute les même actions lorsque je rentre son nom en colonne J et que cela inscrit la date et l'heure (NOW) en colonne K et que cela l'efface lorsque je supprime les données en colonne J.
Je pense avoir été clair , reste à votre disposition .
Bon week-end à tous.
PJ : mon fichier
Bonjour,
Ne voyant aucune trace de macro dans un .xlsx,
je suppose que ceci pourrait convenir
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And Target.Value <> "" Or Target.Column = 10 And Target.Value <> "" Then
Target.Offset(0, 1) = Now
End If
If Target.Column = 4 And Target.Value = "" Or Target.Column = 10 And Target.Value = "" Then
Target.Offset(0, 1).ClearContents
End If
End Sub
Bonjour,
Merci de ton aide,
Cela répond à ce que j'attend pour la deuxième partie de ma question.
Mais comment faire pour que cela efface les données dans les colonnes E et K lorsque j'efface les données dans les colonnes D et J.
Je sais que je pourrais utiliser la touche supprime mais comme je fais cette manipulation des centaines de fois par jour je souhaite gagner un peu de temps.
Merci encore, on vient de me donner la solution.
Bonne journée
Merci
Bonjour,
Ne voyant aucune trace de macro dans un .xlsx,
je suppose que ceci pourrait convenir
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And Target.Value <> "" Or Target.Column = 10 And Target.Value <> "" Then
Target.Offset(0, 1) = Now
End If
If Target.Column = 4 And Target.Value = "" Or Target.Column = 10 And Target.Value = "" Then
Target.Offset(0, 1).ClearContents
End If
End Sub
Bonjour,
Je te remercie cela répond parfaitement à ma demande.
J'apprécie vraiment votre aide et espère un jour être comme vous et pouvoir aider les autres.
Bonne journée.