Modifier macro pour effacer une cellule

[xaviermagdelaine]

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

 

[st007]

Re : Modifier macro pour effacer une cellule

Bonjour,
Ne voyant aucune trace de macro dans un .xlsx,
je suppose que ceci pourrait convenir

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

edit
Bonjour lone-wolf

 

[Lone-wolf]

Re : Modifier macro pour effacer une cellule

Bonjour xaviermagdelaine, st007


en PJ ton fichier en xlsm.



A+

 

[xaviermagdelaine]

Re : Modifier macro pour effacer une cellule

Bonjour xaviermagdelaine, st007


en PJ ton fichier en xlsm.



A+

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

 

[xaviermagdelaine]

Re : Modifier macro pour effacer une cellule

Bonjour,
Ne voyant aucune trace de macro dans un .xlsx,
je suppose que ceci pourrait convenir

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

edit
Bonjour lone-wolf

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.

 

[Lone-wolf]

Re : Modifier macro pour effacer une cellule

Bonsoir xaviermagdelaine,

si tu as pris la macro de st007, tu rajout en dessus de target.offset(0, 1).ClearContents
target.offset(0, 0).ClearContents.



A+

 

[xaviermagdelaine]

Re : Modifier macro pour effacer une cellule

Bonsoir xaviermagdelaine,

si tu as pris la macro de st007, tu rajout en dessus de target.offset(0, 1).ClearContents
target.offset(0, 0).ClearContents.



A+

Bonjour,
J'ai bien rajouter ce que tu m'as dit.
A quoi sert cette ligne ?
Merci de ton aide et bonne journée.

 

[Lone-wolf]

Re : Modifier macro pour effacer une cellule

Bonjour xaviermagdelaine,

A quoi sert cette ligne ?

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.

Sa répond à ta question?


A+