Discussion :

[Bisbis27]

Bonjour tout le monde

Je travail actuellement sur un fichier, voir image ci dessous pour comprendre



Je souhaiterai que lorsque la cellule A22 ou ecore A23 soit différente de vide, la date du jour soit entré dans la cellule d'à coté c'est à dire B22 ou encore B23.
Et je souhaite le faire en VBA

merci d'avance

Bien cordialement

[BENNASR]

bonjour
voir avec

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(22, 1) <> "" Then Cells(22, 2) = Date
End Sub

[Bisbis27]

Bonjour Bennasr

Merci ça fonction en revanche j'ai une question pourquoi on utilise pas Worksheet_Change
vu que la macro intervient au changement de cellule

Cdt

[BENNASR]

je suis autodidacte et débutant donc simplement je sais pas pourquoi
autre proposition

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$22" Then Exit Sub
If Target.Value <> "" Then Cells(22, 2) = Date
End Sub

[Bisbis27]

Débutant ? avec déjà un très bon niveau c'est pas la première fois que tu m'aides

j'ai une autre question, après je t'embête plus

je veux que cette macro s'applique a toutes les cellules de la colonne A de A22 à A200, est ce que je dois écrire la ligne pour A22,A23,A24 ? ou existe t-il une autre solution plus simple ?

Cdt

[BENNASR]

re

j'ai une autre question, après je t'embête plus

pas du tout mon amie, à tout moment et avec plaisir et dans la limite de mes connaissances

essayez avec

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("A22:A200")) Is Nothing Then Exit Sub
If Target.Value <> "" Then Target(, 2) = Date
End Sub