Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Private Sub Worksheet_Change ne fonctionne pas

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Englobe
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
E

Englobe

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

Pièces jointes

Solution
E
Merci Dranreb,
Je regarde de ce côté.
Bonne journée
Trier par date Trier par votes
Bonjour Englobe, Danielco,
Englobe à dit:
il y avait une boucle sans fin dont il a fallu que j'arrête le tout.
Cliquez pour agrandir...
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
Cliquez pour agrandir...
A noter que cette macro n'agira pas sur un changement de couleur d'une cellule, il faut un Enter pour l'activer.
 

Pièces jointes

Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
Merci Dranreb,
Je regarde de ce côté.
Bonne journée
 
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Résolu(e)
XL 2010 Private Sub Worksheet_Change
Réponses
2
Affichages
249
Atlas85200
A
M
  • Résolu(e)
XL 2016 Private Sub ne fonctionne pas
Réponses
4
Affichages
434
MaNU84510
M
P
  • Résolu(e)
Microsoft 365 Private Sub Worksheet_Change(ByVal Target As Range)
Réponses
8
Affichages
656
pat66
P
C
  • Question Question
XL 2016 VBA Détecter la suppression de la dernière ligne d'un Tableau
Réponses
9
Affichages
470
crocrocro
C
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
311
sylvanu
Y
  • Résolu(e)
XL 2013 Macro si changement dans case à cocher
Réponses
6
Affichages
483
Yvan1
Y
R
  • Résolu(e)
XL 2019 Plusieurs Worksheet_Change sur la même feuille
Réponses
9
Affichages
560
Rabeto
R
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
174
AlCapone
P
  • Résolu(e)
Microsoft 365 Copier coller une cellule avant qu'elle ne soit modifiée par Sub Worksheet_Change(ByVal Target As Range)
2
Réponses
19
Affichages
1 K
pat66
P
M
  • Question Question
Autres VBA - cumuler 2 Private Sub Worksheet_change(ByVal Target As Range)
Réponses
5
Affichages
758
AtTheOne
E
  • Résolu(e)
Microsoft 365 Couleur Police sur grand nombre de cellules
2
Réponses
22
Affichages
945
TooFatBoy
D
  • Question Question
Microsoft 365 Application.WorksheetFunction.VLookup ne fonctionne pas au delà de 8500 lignes
Réponses
4
Affichages
608
DimiJuju
D
  • Résolu(e)
XL 2016 If Not xRgSel Is Nothing Then --> Ne marche pas
Réponses
10
Affichages
438
R3n0W
Y
  • Résolu(e)
XL 2016 Automatiser une macro au changement de valeur
Réponses
8
Affichages
633
YANNISE
Y
A
  • Résolu(e)
Microsoft 365 Vider des listes déroulantes en cascade
Réponses
6
Affichages
612
Franc58
F
L
  • Résolu(e)
Microsoft 365 pb formule vba
2
Réponses
15
Affichages
1 K
le-croco
L
F
  • Résolu(e)
XL 2021 fermeture du classeur après apple d'un userform d'un autre classeur ouvert
Réponses
2
Affichages
320
farid
F
M
  • Question Question
Désactiver temporairement une procédure Worksheet_Change
Réponses
6
Affichages
759
MICHIS
M
P
  • Résolu(e)
XL 2019 Conditions dans Worksheet_Change(ByVal Target As Range)
Réponses
4
Affichages
498
pat66
P
M
  • Question Question
XL 2013 changement de couleur de police qd cellule modifiée
Réponses
10
Affichages
531
michel.dupont
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…