Écrire dans une cellule Excel si changement Résolu/Fermé

Question

Bonsoir à tous,
J'ai besoin de votre aide en VBA. Parfaite débutante, je voudrais créer une macro dans mon fichier Excel qui fasse que si on change le contenu d'une cellule, sur la même ligne mais dans des colonnes beaucoup plus à droite s'écrivent la date de modification, l'heure et l'utilisateur.
J'y suis +/- arrivée, sauf que si je modifie la cellule A1, quand je tape Enter et donc que je descend en A2, c'est H2, I2 et J2 qui prennent les valeurs demandées. Par contre, si je delete le contenu de A1, C'est H1, I1 et J1 qui prennent les valeurs, ce qui est bien sur le but de la manoeuvre!
Voilà mon petit code.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Set KeyCells = Range("A1:G10000")
    
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then
        Workbooks("test.xlsx").Sheets("Feuil1").Range("H" & ActiveCell.Row).Value = Time
        Workbooks("test.xlsx").Sheets("Feuil1").Range("I" & ActiveCell.Row).Value = Date
        Workbooks("test.xlsx").Sheets("Feuil1").Range("J" & ActiveCell.Row).Value = Environ("USERNAME")
       
    End If
End Sub

Je suis certaine qu'un connaisseur pourra me renseigner :)
Merci!

Patrice33740 · Answer

Bonjour,

Par exemple :
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([A1:G10000], Target) Is Nothing Then
    Target.EntireRow.Cells(1, "H").Value = Time
    Target.EntireRow.Cells(1, "I").Value = Date
    Target.EntireRow.Cells(1, "J").Value = Environ("USERNAME")
  End If
End Sub

jordane45 · Answer

Bonjour,

Si c'est sur la ligne que tu as modifié que tu veux écrire.. ce n'est pas activecell que tu dois utiliser mais target

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Set KeyCells = Range("A1:G10000")
    
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
    Is Nothing Then
        ThisWorkbook.Sheets("Feuil1").Range("H" & Target.Row).Value = Time
        ThisWorkbook.Sheets("Feuil1").Range("I" & Target.Row).Value = Date
        ThisWorkbook.Sheets("Feuil1").Range("J" & Target.Row).Value = Environ("USERNAME")
    
    End If
End Sub

Écrire dans une cellule Excel si changement

2 réponses

Discussions similaires