XL 2019 suspendre l'execution Change() tout en modifiant le combobox

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Juillet 2020

• #2

Bonsoir SPGoder,
On peut suspendre les événements par :
Application.EnableEvents = False
et les réactiver par :
Application.EnableEvents = True

Surtout ne pas oublier la réactivation sinon tout est bloqué. Faire en sorte que la suspension soit la plus courte possible.

VB:

Private Sub ComboBox1_Change()
......
code
........
Application.EnableEvents=False
ComboBox1 = Ws.Cells(Ligne, "G")
Application.EnableEvents=True
.......
code
.........
end sub

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 13 Juillet 2020

• #3

Bonjour Sylvanu, et à tous,
Application.enabledevents ne fonctionne pas sur un combobox
Perso je mets en haut du module
Public kit As Boolean
et ensuite
Private Sub ComboBox1_Change()
if kit=true then exit sub
kit=true
'le code qui modifie
kit=false

Bruno

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 13 Juillet 2020

• #4

Bonsoir @SPGoder , @sylvanu , @youky(BJ) , le Forum

Pour moi mettre l'alimentation d'une ComboBox dans l'évènement Change de cette dernière est un simple non-sence ! Un serpent qui se mort la queue, une boucle sans fin, la génération d'un trou noir !!!

Tu vas rejoindre le côté sombre de la force comme ça !! LoL

Bonne continuation
@+Thierry

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Juillet 2020

• #5

re
bonjour a tous

ComboBox1 = Ws.Cells(Ligne, "G")

je me pose une question
est ce que Ws.Cells(Ligne, "G") ne fait pas déjà partie de la liste

au quel cas pas besoins de variable intermédiaire("kit" exemple de @youky(BJ))
et application.enableevents n'a rien avoir la dedans
non tout simplement gérer l'event dans if .listindex si l'item existe dans la liste

si il n'existe pas

tout simplement

VB:

Private Sub ComboBox1_Change()
 with combobox1
  if .value<> Ws.Cells(Ligne, "G") then
  'faire ceci  blablabla
  .value= Ws.Cells(Ligne, "G")
  else'
  'faire cela'blablabla
  end if
 end with
end sub

😉

 

Vote positif 0 Vote négatif

S

SPGoder

XLDnaute Occasionnel

• 13 Juillet 2020

• #6

Merci de vos réponse à tous,
Effectivement, Application.enabledevents ne fonctionne pas sur un combobox
Dans le cas présent, l'item n'existera pas car rempli avec la concaténation de 2 cellules, (nom et prénom) pour n'enregistrer que le nom dans le combobox

Tu vas rejoindre le côté sombre de la force comme ça !! LoL

Cliquez pour agrandir...

c'est déjà fait...😀

 

Vote positif 0 Vote négatif

S

SPGoder

XLDnaute Occasionnel

• 13 Juillet 2020

• #7

VB:

Public kit As Boolean

Private Sub ComboBox1_Change()

.......code

If kit = True Then Exit Sub
        kit = True
        ComboBox1 = Ws.Cells(Ligne, "G")
        kit = False
....... code

Ne fonctionne pas non plus, retourne au début : change()

 

Dernière édition: 13 Juillet 2020

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 13 Juillet 2020

• #8

Public kit As Boolean
doit être en tête du module(1ere ligne)
et non
kit=falsePublic kit As Boolean
Bruno

 

Vote positif 0 Vote négatif

S

SPGoder

XLDnaute Occasionnel

• 13 Juillet 2020

• #9

désolé, c'est un mauvais copié collé, c'est bien Public kit As Boolean qui est indiqué dans le code, je modifie sur le message précédent

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 13 Juillet 2020

• #10

C'est en Module1 qu'il faut le mettre.
Il est important de bien savoir le placer
Bruno

 

Vote positif 0 Vote négatif

S

SPGoder

XLDnaute Occasionnel

• 13 Juillet 2020

• #11

J'ai mis Public kit As Boolean dans module1
et le reste dans le userform
(c'est bien cela?)
Même résultat....

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Juillet 2020

• #12

re
@SPGoder a tu seulement essayé le post #5 🙄

 

Vote positif 0 Vote négatif

S

SPGoder

XLDnaute Occasionnel

• 13 Juillet 2020

• #13

re
Je l'ai bien évidement lu et étudié, mais pas testé
car tu suggérai que

est ce que Ws.Cells(Ligne, "G") ne fait pas déjà partie de la liste

au quel cas pas besoins de variable intermédiaire("kit" exemple de @youky(BJ))
et application.enableevents n'a rien avoir la dedans
non tout simplement gérer l'event dans if .listindex si l'item existe dans la liste

si il n'existe pas

Cliquez pour agrandir...

Alors que

Dans le cas présent, l'item n'existera pas car rempli avec la concaténation de 2 cellules, (nom et prénom) pour n'enregistrer que le nom dans le combobox

Cliquez pour agrandir...

D'ou ma demande de pouvoir remplir le combobox malgré le change()

 

Vote positif 0 Vote négatif

S

SPGoder

XLDnaute Occasionnel

• 13 Juillet 2020

• #14

J'ai fait autrement, je me suis inspiré de ce que m'a proposé thierry dans un autre post. (pour éviter le serpent qui......)
Malgré tout, il est toujours interressant de savoir si on peut avoir une astuce pour ce cas de figure

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 13 Juillet 2020

• #15

Ca y est il est tombé du côté obscure en plus en s'inspirant de moi !!!



LoL @+Thierry

 

Vote positif 0 Vote négatif