Insérer une date automatique sur plusieurs colonnes

Bonjour,

J'ai présentement une commande VBA me permettant d'inscrire une date automatiquement dans une colonne (ex:A) lorsque j'entre une donnée dans la colonne B par exemple. La commande me permet de le faire sur 2 colonne présentement, mais j'aimerais pouvoir le faire sur 4 colonnes. Quelqu'un saurait examiner ma commande VBA et me fournir la modification à faire pour que cela soit possible? Merci

Bonjour

Tu ajoutes une ou plusieurs ligne dans ton code suivant le nombre de cellule(s) à alimenter

Ligne à ajouter

c.Offset(0, 1) = Format(Now, "dd/mm/yy-hh:nn:ss") ' Renseigne la cellule à coté de la cellule active

Explication donnée sur ce forum

https://www.excel-pratique.com/fr/vba/selections.php

Exemple insertion date en colonne D et F

Private Sub Worksheet_Change(ByVal Target As Range)
 '***date en B quand C est renseigné***
 Dim c, iSct As Range
 On Error GoTo errh
    Set iSct = Intersect(Target, Range("c:c"))
    If iSct Is Nothing Then
        Set iSct = Intersect(Target, Range("E:E"))
        If iSct Is Nothing Then Exit Sub
    End If
 '**Sort si C n'est pas concerné**
 Application.EnableEvents = False
 For Each c In iSct.Cells
 If IsEmpty(c) Then
 c.Offset(0, -1) = ""
 Else
 c.Offset(0, -1) = Format(Now, "dd/mm/yy-hh:nn:ss") 'Correspond à la celle en colonne B
 c.Offset(0, 1) = Format(Now, "dd/mm/yy-hh:nn:ss") 'Correspond à la cellule en colonne D
 c.Offset(0, 3) = Format(Now, "dd/mm/yy-hh:nn:ss") 'Correspond à la cellule en colonne F
 End If
 Next
errh:
 Application.EnableEvents = True
 End Sub

Bonjour et1000lio,

tout d'abord merci d'avoir pris le temps de répondre à mon questionnement. Toutefois, je crois que je me suis mal exprimé. Je veux que lorsque j'entre une donnée en C, la date ce mettre en B, que lorsque j'entre une donné en E, une date se mettre en D et la même chose pour G et I.

Merci

Voici la solution... Je ne sais pas si c'est la colonne "I" ou "L" donc à corriger en fonction

Bon Test

Private Sub Worksheet_Change(ByVal Target As Range)
 '***Donnée en B, D, G et L  quand E est renseigné***
 Dim c, iSct As Range
 On Error GoTo errh
           Set iSct = Intersect(Target, Range("E:E"))
        If iSct Is Nothing Then Exit Sub

 '**Sort si C n'est pas concerné**
 Application.EnableEvents = False
 For Each c In iSct.Cells
 If IsEmpty(c) Then
 c.Offset(0, -1) = ""
 Else
 If c.Offset(0, -2) = "" Then
 c.Offset(0, -1) = ""
 Else
 c.Offset(0, -1) = Format(Now, "dd/mm/yy-hh:nn:ss")
 c.Offset(0, -3) = Format(Now, "dd/mm/yy-hh:nn:ss")
 c.Offset(0, 2) = Format(Now, "dd/mm/yy-hh:nn:ss")
 c.Offset(0, 7) = Format(Now, "dd/mm/yy-hh:nn:ss")
 End If
 End If
 Next

errh:

 Application.EnableEvents = True

 End Sub

Bonjour et1000lio,

encore merci de prendre le temps de me répondre. Mais pas encore tout à fait la bonne chose. Regarde le fichier que j'ai joins. Si on entre des données en A et D, la date s'inscrit en B et E. J'aimerais la même chose pour G et J. Mais les dates doivent être indépendante selon si les données sont entrées en A, D, G ou J.

Merci