Comment faire ??? ....
tidup87
Messages postés
2
Date d'inscription
jeudi 23 octobre 2003
Statut
Membre
Dernière intervention
22 janvier 2004
-
23 oct. 2003 à 21:32
gaa179 Messages postés 361 Date d'inscription mercredi 21 mai 2003 Statut Membre Dernière intervention 12 novembre 2009 - 24 oct. 2003 à 12:04
gaa179 Messages postés 361 Date d'inscription mercredi 21 mai 2003 Statut Membre Dernière intervention 12 novembre 2009 - 24 oct. 2003 à 12:04
1 réponse
gaa179
Messages postés
361
Date d'inscription
mercredi 21 mai 2003
Statut
Membre
Dernière intervention
12 novembre 2009
2
24 oct. 2003 à 12:04
24 oct. 2003 à 12:04
Salut,
Il suffit d'insérer ce code dans l'objet 'ThisWorkbook'
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Sheet1" Then
Select Case Target.Cells.Address
Case "$A$10"
Cells(10, 1) = Now()
Case "$[Lettre de la colonne]$[Numéro de la lign]"
Cells([N° de ligne],[N° de colonne] = now()
End Select
End If
End Sub
Il suffit de rajouter un case par cellule concernée.
Le If sh.Name = "Sheet1" permet de limiter le changement à la feuille 1.
J'espère que cela correspond à ton attente
PS: il est possible que si tu utilise une version française, les noms sont taduit. Sheet = Feuille, ...
A+
Il suffit d'insérer ce code dans l'objet 'ThisWorkbook'
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Sheet1" Then
Select Case Target.Cells.Address
Case "$A$10"
Cells(10, 1) = Now()
Case "$[Lettre de la colonne]$[Numéro de la lign]"
Cells([N° de ligne],[N° de colonne] = now()
End Select
End If
End Sub
Il suffit de rajouter un case par cellule concernée.
Le If sh.Name = "Sheet1" permet de limiter le changement à la feuille 1.
J'espère que cela correspond à ton attente
PS: il est possible que si tu utilise une version française, les noms sont taduit. Sheet = Feuille, ...
A+