Date dedernière modif. sur une ligne
Résolu
gexelpa
-
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Y'a t-il moyen de faire apparaître sur la 1ère cellule d'une ligne, la date de la dernière modification faite sur n'importe qu'elle cellule de cette même ligne ?
Merci d'avance !
Y'a t-il moyen de faire apparaître sur la 1ère cellule d'une ligne, la date de la dernière modification faite sur n'importe qu'elle cellule de cette même ligne ?
Merci d'avance !
A voir également:
- Date dedernière modif. sur une ligne
- Partager photos en ligne - Guide
- Mètre en ligne - Guide
- Aller à la ligne excel - Guide
- Apparaitre hors ligne instagram - Guide
- Formulaire en ligne de meta - Guide
1 réponse
Bonsoir
Possible avec un code VBA
Par exemple pour modifications en ligne 5
Alt + F11 pour ouvrir l'éditeur de macro
Dans la fenêtre de gauche choisir la feuille concernée
dans la fenêtre de droite entrer le code suivant :
Cdlmnt
"L'imagination est plus importante que le savoir." A. Einstein
Possible avec un code VBA
Par exemple pour modifications en ligne 5
Alt + F11 pour ouvrir l'éditeur de macro
Dans la fenêtre de gauche choisir la feuille concernée
dans la fenêtre de droite entrer le code suivant :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 5 Then Exit Sub ' si changement autre que dans la ligne 5 rien ne se passe
Range("A5").Value = Date ' sinon date mise en A5
End Sub
Cdlmnt
"L'imagination est plus importante que le savoir." A. Einstein
J'ai collé le code dans vba, mais cela ne fonctionne que pour la première ligne, alors que j'ai dupliqué le code pour une dizaine de ligne (en prenant soin, évidemment, de changer N° de ligne & N° de cellule...) ?
De plus, comment puis je faire pour que ce code soit valable à l'ensemble des lignes de ma feuille ?
Merci d'avance.
oui le code était un exemple pour une ligne
pour une validité pour toute la feuille :
Private Sub Worksheet_Change(ByVal Target As Range) c=target.row Range("A" & c).Value = Date End SubCdlmnt