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

[SPGoder]

Bonjour
C'est certainement une idée tordue, mais dans l'instruction suivant, quand le combobox1 reçoit une valeur, la macro se relance au début (normal puisque le combobox a alors changé)
Ma question, peut t on l’empêcher et qu'il modifie quand même la valeur de combobox1 et continue le code
J’espère avoir été assez clair dans l'explication
Je m'attends a une réponse : mauvaise utilisation, ou il y a moyen de faire autrement, et je n'en doute pas, mais cette question me taraude quand même

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

 

[sylvanu]

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.

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

 

[youky(BJ)]

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

 

[_Thierry]

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

 

[patricktoulon]

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

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

 

[SPGoder]

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

c'est déjà fait...

 

[SPGoder]

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()

 

[youky(BJ)]

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

 

[SPGoder]

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

 

[youky(BJ)]

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

 

[SPGoder]

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

 

[patricktoulon]

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

 

[SPGoder]

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

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

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

 

[SPGoder]

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

 

[_Thierry]

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

LoL @+Thierry