Bloquer évenement change

Bonjour,

Sans savoir la composition, le but , le code de ton UserForm,
il est peu aisé d'apporter une vraie réponse
Si ton but est de renseigner plusieurs contrôles
avant de déclencher une action hors du userform (application, feuilles,
classeurs)
il serait sans doute mieux de mettre un bouton OK qui en sera chargé et
n'utiliser les évennement change des objets internes au UF que pour les
actions internes à l'UF
(mise à jour d'un textbox ou d'une seconde liste par exemple).

lSteph


"Dominique33" <diabolobx@hotmail.com> a écrit dans le message de news:
euDNFDCvFHA.3436@TK2MSFTNGP10.phx.gbl...

Bonjour,
Existe t'il une ligne de code me permettant de bloquer ou de passer outre
un
évènement Change sur une combobox ?
En effet, si je mets la propriété value à "" pour initialiser mon
formulaire
après une validation, l'évènement Change se déclenche et traite mes
actions.
Dans l'attente
Cordialement

Bonjour,
Explication: un combo me permet deux sélections. Suivant la sélection,
j'affiche et je cache différents éléments de l'userform.
En affichant, je mets value "" dans le combo Dept (ou les autres) qui
comporte le code suivant:

Private Sub Dept_Change()
Set c = Range("Num").Find(Dept.Value, , , , xlByColumns)
If Not c Is Nothing Then
Typo.Caption = Range("Num").Find(Dept.Value, , , ,
xlByColumns).Offset(0, 1)
Else 'si vide ou non concordant
MsgBox ("DEPT INCONNU")
Typo.Caption = "" 'Label1 Affichage catégories
Exit Sub
End If
End Sub

donc quand la selection du premier combo change le Dept.value en "", le
MsgBox s'affiche. Pas bon dans ce cas là.

Dominique

re,
(faute de voir le reste ou comprendre pourquoi),
C'est ainsi ! donc suggestion:
au lieu de lancer un MsgBox ("DEPT INCONNU")

Label2=""
Else
Label2="Attention DEPT INCONNU"

lSteph
"Dominique33" <diabolobx@hotmail.com> a écrit dans le message de news:
uy33mEDvFHA.2008@TK2MSFTNGP10.phx.gbl...

Bonjour,
Explication: un combo me permet deux sélections. Suivant la sélection,
j'affiche et je cache différents éléments de l'userform.
En affichant, je mets value "" dans le combo Dept (ou les autres) qui
comporte le code suivant:

Private Sub Dept_Change()
Set c = Range("Num").Find(Dept.Value, , , , xlByColumns)
If Not c Is Nothing Then
Typo.Caption = Range("Num").Find(Dept.Value, , , ,
xlByColumns).Offset(0, 1)
Else 'si vide ou non concordant
MsgBox ("DEPT INCONNU")
Typo.Caption = "" 'Label1 Affichage catégories
Exit Sub
End If
End Sub

donc quand la selection du premier combo change le Dept.value en "", le
MsgBox s'affiche. Pas bon dans ce cas là.

Dominique