fingersinthe
XLDnaute Nouveau
Bonjour,
Je réalise actuellement une grille de compétence dans laquelle des résultats sont intégrés automatiquement par liste déroulante. Or, j'aimerais que ces résultats soient accompagnés d'une date automatique, correspondant uniquement à la cellule modifiée, afin de savoir à chaque fois à quelle date à été mise à jour telle cellule.
Pour ce faire je suis notamment tombé sur cette macro:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligvid As Long
If Intersect(Target, Range("A1😀50")) Is Nothing Or Target.Count > 1 Then: Exit Sub
ligvid = Range("L65536").End(xlUp).Row + 1
Range("L" & ligvid) = Target.Address & " modifiée le " & Format(Date, "dd/mm/yy")
End Sub
Malheureusement mes connaissances sur Excel se limitent aux formules basiques, je n'ai jamais fait de macro.
En utilisant cette macro la date automatique se met uniquement dans la colonne L, j'ai tenté de changer celle-ci mais cela ne fonctionne pas.
Qui plus est, mon fichier Excel est conséquent, il y a 70 colonnes, donc il faudrait que j'ajoute à chaque fois une colonne à côté pour pouvoir y insérer la date.
Du coup je ne sais pas comment faire avec la macro, faut-il rajouter chaque nom de colonne dans la dernière ligne de la macro?
Si quelqu'un pouvait m'aiguiller, ce serait fortement apprécier. J'espère avoir été assez claire, je reste à disposition pour toute information complémentaire.
En vous remerciant par avance.
Cordialement,
Alexandre
Je réalise actuellement une grille de compétence dans laquelle des résultats sont intégrés automatiquement par liste déroulante. Or, j'aimerais que ces résultats soient accompagnés d'une date automatique, correspondant uniquement à la cellule modifiée, afin de savoir à chaque fois à quelle date à été mise à jour telle cellule.
Pour ce faire je suis notamment tombé sur cette macro:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligvid As Long
If Intersect(Target, Range("A1😀50")) Is Nothing Or Target.Count > 1 Then: Exit Sub
ligvid = Range("L65536").End(xlUp).Row + 1
Range("L" & ligvid) = Target.Address & " modifiée le " & Format(Date, "dd/mm/yy")
End Sub
Malheureusement mes connaissances sur Excel se limitent aux formules basiques, je n'ai jamais fait de macro.
En utilisant cette macro la date automatique se met uniquement dans la colonne L, j'ai tenté de changer celle-ci mais cela ne fonctionne pas.
Qui plus est, mon fichier Excel est conséquent, il y a 70 colonnes, donc il faudrait que j'ajoute à chaque fois une colonne à côté pour pouvoir y insérer la date.
Du coup je ne sais pas comment faire avec la macro, faut-il rajouter chaque nom de colonne dans la dernière ligne de la macro?
Si quelqu'un pouvait m'aiguiller, ce serait fortement apprécier. J'espère avoir été assez claire, je reste à disposition pour toute information complémentaire.
En vous remerciant par avance.
Cordialement,
Alexandre