Microsoft 365 Private Sub Worksheet_Change ne fonctionne pas

[Englobe]

Bonjour,

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

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.

 

[danielco]

Bonjour,

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

Sub test()
  Application.EnableEvents = True
End Sub

Daniel

 

[sylvanu]

Bonjour Englobe, Danielco,

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 :

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

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]

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 :

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]

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]

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