Microsoft 365 Private Sub Worksheet_Change ne fonctionne pas

Englobe · 14 Avril 2024

Bonjour,

Je n'arrive pas à faire déclencher la macro .

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Call Remplit
End Sub

Je veux que la macro Remplit s'exécute lors d'un changement de couleur dans une cellule ou une entrée.
Lorsque d'un essai précédent, il y avait une boucle sans fin dont il a fallu que j'arrête le tout.

Merci de votre aide.

Englobe · 14 Avril 2024

Dranreb à dit:
Bonjour.
Je ne vois pas d'autre solution qu'avec une boucle lancée dans un Sub Worksheet_SelectionChange qui vérifie en permanence si la Target.Interior.Color n'a pas changé …
Le dispositif existe dans mon CouleurCls.xlsm pour la colonne "Échantillon" des feuilles d'études.
N'oubliez pas de mettre un DoEvents dans la boucle pour qu'elle n'empêche pas Excel de travailler.

Merci Dranreb,
Je regarde de ce côté.
Bonne journée

danielco · 14 Avril 2024

Bonjour,

Tu as probablement désactivé les évènements.
Exécute la macro :

VB:

Sub test()
  Application.EnableEvents = True
End Sub

Daniel

sylvanu · 14 Avril 2024

Bonjour Englobe, Danielco,

Englobe à dit:
il y avait une boucle sans fin dont il a fallu que j'arrête le tout.

Normal.
Quand on modifie une valeur on exécute Worksheet_Change qui lance Remplit.
Dans Remplit on écrit en C9.
Comme on écrit dans la feuille on exécute Worksheet_Change qui lance Remplit.
Dans Remplit on écrit en C9.
...
Ca peux durer longtemps, c'est ce qu'on appelle de la ré entrance.
Pour pallier au souci il suffit d'invalider les events avant d'écrire dans la feuille :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Call Remplit
    Application.EnableEvents = True
End Sub

Englobe à dit:
la macro Remplit s'exécute lors d'un changement de couleur

A noter que cette macro n'agira pas sur un changement de couleur d'une cellule, il faut un Enter pour l'activer.

Englobe · 14 Avril 2024

sylvanu à dit:
Bonjour Englobe, Danielco,

Normal.
Quand on modifie une valeur on exécute Worksheet_Change qui lance Remplit.
Dans Remplit on écrit en C9.
Comme on écrit dans la feuille on exécute Worksheet_Change qui lance Remplit.
Dans Remplit on écrit en C9.
...
Ca peux durer longtemps, c'est ce qu'on appelle de la ré entrance.
Pour pallier au souci il suffit d'invalider les events avant d'écrire dans la feuille :

VB:

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Call Remplit Application.EnableEvents = True End Sub

A noter que cette macro n'agira pas sur un changement de couleur d'une cellule, il faut un Enter pour l'activer.

Merci sylvanu,

Cette correction fonctionne à merveille.
Question
Comment rendre exécutable un changement de couleur de fond de cellule par contre... si c'est possible?

Encore merci

Dranreb · 14 Avril 2024

Bonjour.
Je ne vois pas d'autre solution qu'avec une boucle lancée dans un Sub Worksheet_SelectionChange qui vérifie en permanence si la Target.Interior.Color n'a pas changé …
Le dispositif existe dans mon CouleurCls.xlsm pour la colonne "Échantillon" des feuilles d'études.
N'oubliez pas de mettre un DoEvents dans la boucle pour qu'elle n'empêche pas Excel de travailler.

Englobe · 14 Avril 2024

Dranreb à dit:
Bonjour.
Je ne vois pas d'autre solution qu'avec une boucle lancée dans un Sub Worksheet_SelectionChange qui vérifie en permanence si la Target.Interior.Color n'a pas changé …
Le dispositif existe dans mon CouleurCls.xlsm pour la colonne "Échantillon" des feuilles d'études.
N'oubliez pas de mettre un DoEvents dans la boucle pour qu'elle n'empêche pas Excel de travailler.

Merci Dranreb,
Je regarde de ce côté.
Bonne journée

Microsoft 365 Private Sub Worksheet_Change ne fonctionne pas

Englobe

XLDnaute Nouveau

Pièces jointes

Englobe

danielco

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

Pièces jointes

Englobe

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

Englobe

XLDnaute Nouveau

Discussions similaires