Problème avec ComboBox1_Change()

[Cougar]

Bonsoir,

Voici mon problème. J'ai un label qui afficher une donnée en fonction d'une sélection dans un combobox. Jusque là tout est OK mais lorsque je valide le tout, je vide le combobox et mon label ne se vide pas car j'ai le message d'erreur 381.

Comment remédier à cela.

Voir le fichier joint.

Merci

 

[Compte Supprimé 979]

Re : Problème avec ComboBox1_Change()

Bonjour Cougar

Ta Combox est liée à ta plage via ".List" donc directement à ta feuille

Lorsque tu effectues une modification sur cette feuille, l'évènement OnChange s'éxécute de nouveau 🙁

Pour éviter ça et ne plus avoir le message d'erreur, il suffit de changer d'évènement

Private Sub ComboBox1_AfterUpdate()
  Label3 = ""
  Label3 = ComboBox1.List(ComboBox1.ListIndex, 1)
End Sub

A+

 

[ChTi160]

Re : Problème avec ComboBox1_Change()

Bonjour cougar
Bonjour Bruno
Bonjour le Forum

en pièce jointe une autre approche

Le Fichier : Regarde la pièce jointe TestV1.xlsm
L'autre : Regarde la pièce jointe TestV1.1.xls
Bonne Journée
Amicalement
Jean Marie

 

[laetitia90]

Re : Problème avec ComboBox1_Change()

bonjour tous 🙂🙂🙂
comme je comprends???

Private Sub UserForm_Initialize()
 ComboBox1.List = Feuil1.Range("a3:c" & Feuil1.Cells(Rows.Count, 1).End(xlUp).Row).Value
End Sub
Private Sub ComboBox1_Change()
Label3 = Cells(ComboBox1.ListIndex + 3, 2)
End Sub
Private Sub CommandButton1_Click()
 If ComboBox1.ListIndex < 0 Or TextBox1 = "" Then Exit Sub
 Cells(ComboBox1.ListIndex + 3, 3) = Cells(ComboBox1.ListIndex + 3, 3) + CDbl(TextBox1)
 ActiveWorkbook.Save: Unload Me: UserForm8.Show
End Sub
Private Sub CommandButton2_Click()
  Unload Me
End Sub

ps hors sujet plein de pub a l'ouverture forum vous avez le meme pb???? je suis en train de faire une indigestion de M&Ms

 

[ChTi160]

Re : Problème avec ComboBox1_Change()

Arffff .... Effectivement , cela devient insupportable
je vais pas tarder à changer d'épicerie ........
Bonne journée
Amicalement
Jean Marie