[VBA-E] Repérer la dernière cellule modifiée

Bonjour!
J'ai deux petites questions :

1/ Comment peut-on masquer l'execution d'une macro? (ne pas visualiser les changements de feuilles, les déplacements dans les lignes, les sélections...)

2/ Y-a-t-il moyen de savoir quelle cellule à été modifiée? J'ai utilisé l'évémement WorkSheet_Change, mais le problème est que :
- Il s'agit de cellule contenant des listes déroulantes, et je veux répertorier tous les changements effectués sur ma feuille, dans une feuille "Log".
- Si l'utilisateur sélectione la valeur dans la liste avec la souris, pas de problème ca fonctionne.
- Mais s'il entre au clavier la valeur se trouvant dans la liste, puisqu'il se déplace sur la cellule suivante avec les flèches du clavier, ce que je récupére est la cellule de destination.

Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 TabModif(0) = Format(Now, "dd/mm/yyyy") TabModif(1) = Time TabModif(2) = Environ("username") TabModif(3) = ActiveSheet.Name TabModif(4) = Cells(3, ActiveCell.Column).Value TabModif(5) = ActiveCell.Row TabModif(6) = ActiveCell.Value i = 2 Do i = i + 1 Loop Until Sheets("Log").Cells(i, 1).Value = "" Sheets("Log").Cells(i, 1).Value = TabModif(0) Sheets("Log").Cells(i, 2).Value = TabModif(1) Sheets("Log").Cells(i, 3).Value = TabModif(2) Sheets("Log").Cells(i, 4).Value = TabModif(3) Sheets("Log").Cells(i, 5).Value = TabModif(4) Sheets("Log").Cells(i, 6).Value = TabModif(5) Sheets("Log").Cells(i, 7).Value = TabModif(6)

Bon, pour masquer l'execution, je viens de trouver comment faire :
Application.ScreenUpdating = False

Ca marche impeccable, et on y gagne en rapidité.

Par contre je n'arrive toujours pas à trouver comment faire pour mon second problème...

bonjour

tu peux tester cette adaptation , à placer au niveau de la feuille de saisie

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
 
i = Sheets("Log").Range("A65536").End(xlUp).Row + 1
 
With Sheets("Log")
.Cells(i, 1).Value = Format(Date, "dd/mm/yyyy")
.Cells(i, 2).Value = Time
.Cells(i, 3).Value = Environ("username")
.Cells(i, 4).Value = ActiveSheet.Name
.Cells(i, 5).Value = Cells(3, Target.Column).Value
.Cells(i, 6).Value = Target.Row
.Cells(i, 7).Value = Target
.Cells(i, 8).Value = Target.Address
End With
 
End Sub

bon apres midi
michel

Merci beaucoup, ca marche parfaitement!

Juste une petite précision, tu pourrais m'expliquer cette ligne :

Code:

i = Sheets("Log").Range("A65536").End(xlUp).Row + 1

Je vois à peu près ce qu'elle fait, mais je ne comprend pas bien la rédaction...

rebonjour

Code:

i= Sheets("Log").Range("A65536").End(xlUp).Row

permet de recuperer le numero de la derniere ligne non vide, dans la colonne A

Code:

i = Sheets("Log").Range("A65536").End(xlUp).Row + 1

permet donc de recuperer la 1ere cellule vide suivante

bonne apres midi
michel