Discussion :

[Akhlan]

Bonjour,

je suis partis de ce post
https://www.developpez.net/forums/d1...ion-d-cellule/

et j'ai adapté pour mon cas avec cette macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim a
 
    For a = 0 To 7
        If Target.Column = 3 + a And Target.Row >= 3 Then
            Cells(Target.Row, 2) = Now()
        End If
    Next
 
End Sub

mais ça fonctionne trop bien, ça me met la date en colonne 2 mais je voudrais que ça me mette la date que et seulement que lorsqu'une des cellules 3 à 10 sont modifiées.... Là, je clique sur une de ces cellules et ça suffit pour mettre à jour la date.

Comment restreindre cette macro à ce que je veux ?

Merci
Akhlan

[riton00]

Bonsoir,

Peut-être un truc comme ça!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C3:C10")) Is Nothing Then
 Range("B" & Target.Row) = Now
End If
End Sub

Slts

[Akhlan]

non, ça ne fonctionne pas mieux que ma macro... de plus c'est sur une ligne que ça se passe pas sur une colonne Je joins un fichier excel, ça sera plus facile à comprendre...

[riton00]

Bonjour,

Sur le fichier joint en modifiant quelques chose dans la plage C2:J20 une date s'affiche bien dans la ligne ou une modification à été faite non?

Slts

[Akhlan]

Bonjour,

Sur le fichier joint en modifiant quelques chose dans la plage C2:J20 une date s'affiche bien dans la ligne ou une modification à été faite non?

Slts

J'ai le même soucis que sur mon fichier, un double clique suffit à mettre une date et je ne veux que si et seulement si la cellule est modifiée

[riton00]

Bonsoir

Désoler chez moi rien ne se passe lors d'un double clic, par contre uniquement lors d'une modification dans la plage C2:J20 la date se met à jour dans la même ligne, donc du coup je ne comprends pas ton histoire de double clic

Slts

[Pierre Fauconnier]

Salut.

Le double-clic faisant entrer dans la cellule pour modification (équivalent de F2), il y a bien évènement de modification après (sauf à "faire" ESC (ECHAP)).

La seule solution que je vois est de mémoriser la valeur de la cellule que l'on sélectionne et de tester cette valeur lors de la levée de l'évènement. Perso, je travaillerais avec les références structurées du tableau. Mets des points d'arrêt dans le code pour en comprendre le fonctionnement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
 
Private OldValue
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C2:J20")) Is Nothing Then
  If Target(1, 1).Value <> OldValue Then
    Application.EnableEvents = False
    Range("tableau1[dernière " & Chr(10) & "modification]")(Target.Row - Range("tableau1[#headers]").Row).Value = Date
  End If
End If
 
Catch:
  Application.EnableEvents = True
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Application.Intersect(Target, Range("Tableau1[[dénomination]:[joules]]")) Is Nothing Then
    OldValue = Target(1, 1).Value
  End If
End Sub

PS: Il y a pas mal de réserves par rapport à cette méthode puisque l'on peut sélectionner et modifier plusieurs lignes en même temps => les Target peuvent être multi-cellules. Je ne suis pas convaincu que la méthode soit très productive telle quelle. On devrait passer par un tableau des modifs et tester lors de la modif quelles valeurs sont changées... Ca me semble bien lourd et, encore une fois, Excel n'est pas fait pour ça

[Akhlan]

Merci beaucoup