Date dedernière modif. sur une ligne
Résolu/Fermé
gexelpa
-
26 nov. 2013 à 22:47
via55 Messages postés 14495 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 7 novembre 2024 - 28 nov. 2013 à 00:01
via55 Messages postés 14495 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 7 novembre 2024 - 28 nov. 2013 à 00:01
A voir également:
- Date dedernière modif. sur une ligne
- Comment aller à la ligne sur excel - Guide
- Site de vente en ligne particulier - Guide
- Partager photos en ligne - Guide
1 réponse
via55
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
2 735
Modifié par pijaku le 28/11/2013 à 09:50
Modifié par pijaku le 28/11/2013 à 09:50
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
27 nov. 2013 à 22:15
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.
Modifié par pijaku le 28/11/2013 à 09:50
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