Discussion :

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

Salut.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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