Discussion :

[sylvain591]

Bonjour a tous

debutant en vba je désire dans un tableau que la date du jour s'incrive automatiquement dans la colonne c si je remplis la cellule adjascent (b) au moyen d'une liste déroulante
simple certainement mais pas pour moi

cette saise s'effectuera entre les cellunles b8 et c16

d'avance je vous remercie pour votre aide


ps j'avais trouvé un debut de solution sur ce forum mais impossible de le retrouver

[Krovax]

Bon j'ai fait plus jolie mais la j'ai du me planté et pas le courage de comprendre pourquoi du coup je retourne aux base

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 c as range
If Target.Column = 2 And Target.Row < 17 And Target.Row > 7  Then
    for each c in target
       if Not IsEmpty(c) then
            Cells(c.Row, 3) = Date
       end if
    next
End If
End Sub

rq : a mettre dans le module de la feuil en question

[sylvain591]

Ta reponse fonctionne tres bien merci!!!!