Discussion :

[starrlaz]

Bonjour,

Je suis en train de construire un fichier mais j’arrive à mes limites de connaissance. Il ya certaines choses que je voudrais faire, mais mon niveau de connaissance ne me le permet pas.

Alors je demande de l’aide aux volontaires de bien vouloir m’aider s’il vous plait.
A l’ouverture de mon ficher, ce code, désactive ma macro conformément à mon souhait.

Code :

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

1
2
3
Private Sub Workbook_Open()
Application.EnableEvents = False
End Sub

Code :

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

1
2
3
4
5
Sub Evènements()
        Static Ev As Boolean
        Ev = Not Ev
        Application.EnableEvents = Ev
End Sub

Un clic sur la touche marche/arrêt active la macro et un autre clic la désactive.
Mon problème est que je ne sais pas à quel moment ma macro est désactivée ou activée pendant l’utilisation du fichier.

Je souhaiterais qu’une fois ma macro désactivée, le fond de ma cellule G1 actuellement blanc se colorie en rouge. Et lorsque ma macro est active, le fonde de la cellule se colorie en vert.

Merci,

[jerome.vaussenat]

Salut,

si j'ai bien compris tu veux une couleur de fond différentes pour savoir si les événements sont actifs ou non.

Si c'est bien cela, voici une proposition de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Evènements()
        Static Ev As Boolean
        Ev = Not Ev
        Application.EnableEvents = Ev
        If Application.EnableEvents = True Then
            Selection.Interior.ColorIndex = 3
        Else
            Selection.Interior.ColorIndex = 2
        End If
End Sub

Pour info, pour connaitre les code couleur, une simple recherche sur Google te donnera plusieurs réponses.

[starrlaz]

Slt Jerome,

C'est exactement ce que je recherche.
mais je voudrais que ce soit la cellule G1 qui change de couleur.

quand je modifie la macro, elle me change la couleur n’importe ou sauf dans G1.

As tu une solution ?

Merci,

[starrlaz]

Re,

c'est bon j'ai trouvé la solution:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Evènements()
        Static Ev As Boolean
        Ev = Not Ev
        Application.EnableEvents = Ev
        If Application.EnableEvents = True Then
            Range("g1").Interior.ColorIndex = 4
        Else
           Range("g1").Interior.ColorIndex = 3
        End If
End Sub

Merci encore pour ton aide.