petit probleme d'event propagation

bonjour a tous
j'ai un petit soucis avec une ComboBox (ActivX) dans une feuille
en effet
j'ai dans son évènement DropButtonClick l'affichage d'un msgbox si la combo est vide
ca fonctionne sauf que quand j'ai eu le msgbox et que je sélectionne une cellule ou autre le message reviens une nouvelle fois
dans un UserForm je gère ca avec activecontrol mais dans une feuille je ne sais pas comment

Code:

---

1 2 3

Private Sub ComboBox1_DropButtonClick() If ComboBox1.ListCount = 0 Then MsgBox "vous deviez d'abords instatier une nouvelle facture" End Sub

---

Salut.

Je n'ai pas d'autres solutions que celle-ci:

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub ComboBox1_DropButtonClick() Static Already As Boolean   If ComboBox1.ListCount = 0 And Not Already Then MsgBox "vous deviez d'abords instatier une nouvelle facture" Already = True Else Already = False End If End Sub

---

bonjour pierre
et pourtant simple je n'y ai pas pensé

A vrai dire ,j'espérais un peu que comme en JS il y ai un eventstopPropagation d'une manière ou d'une autre
avec la variable static finalement ca en est une
merci
;)

haie!haie!!
j'ai pas prévu la multi édition de devis facture
alors ca fonctionne bien si je créée mes devis factures et que je ferme et ré ouvre le fichier

par contre si j'edite plusieurs fichiers d'affilé sans quitter l'apps la ca marche plus car des que j'enregistre le devis ou facture une sub clearfeuille me remet le Template a vide


et la effectivement je n'ai plus d'instance de devis/facture mais la combo est pleine

l'instanciation d'un document est repérable par la cellule B11 qui est auto incrémenté par une sub nexdevisxml ou newfacturexml(ces deux sub appellent le remplissage de la combo)

j'ai du donc corriger comme ca

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub ComboBox1_DropButtonClick() Static Already As Boolean If [B11].Value = "" Then ComboBox1.Clear If ComboBox1.ListCount = 0 And Not Already Then MsgBox "vous devez d'abords instancier un nouveau devis " ComboBox1.Clear Already = True Else Already = False End If End Sub

---