Discussion :

[aokiseiichiro]

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 :

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
            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)

[aokiseiichiro]

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...

[SilkyRoad]

bonjour

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

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
 
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

[aokiseiichiro]

Merci beaucoup, ca marche parfaitement!

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

Code :

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

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...

[SilkyRoad]

rebonjour

Code :

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

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

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

Code :

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

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

permet donc de recuperer la 1ere cellule vide suivante



bonne apres midi
michel