Encore un problème pour insérer une date...

[JOCIL]

Bonsoir,

Je viens tout juste de me lancer dans les macros, en autodidacte... Cest bien là le problème : je n'ai aucune base en language VBA. Avant tout chose, je voulais dire que je trouve ce site très bien fait.

Donc pour revenir à mon problème, voilà ce qu'il en est : je souhaiterais que lorsque je saisis une date dans la colonne B (en B2 première ligne après le titre puis dessous), la date du jour s'insère automatiquement dans la colonne H. Donc B2 vers H2, puis saisie en B3 qui alimente H3, etc...

J'ai parcouru le forum et j'ai bien trouvé des solutions mais seulement pour une saisie dans une cellule, pas dans une colonne.

Merci

 

[Guest]

Re : Encore un problème pour insérer une date...

Bonsoir Jocil,

Voici une solution à coller dans le module de code de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
    'Si colonne = B et ligne >1
    If Target.Column = 2 And Target.Row > 1 Then
        'Si une date est dans la cellule
        If IsDate(Target) Then Cells(Target.Row, 8) = Date
    End If
End Sub

A+
bon apprentissage.

 

[JOCIL]

Re : Encore un problème pour insérer une date...

Merci beaucoup Hasco pour cette solution, ça marche !!!!!!