Vider les TextBox si ComboBox est vide

[Ilino]

Bonsoir Forum
ci dessous un code (Merci ROBERT) qui fonctionne parfaitement dans un USF

Private LI As Integer 'déclare la variable LI (Ligne)
Private Sub ComboBox1_Change() 
LI = Me.ComboBox1.ListIndex + 2 'récupère le numéro de ligne de l'élément sélectionné
Me.intitulétextbox = Sheets("liste").Cells(LI, 2)
Me.statuttextbox = Sheets("liste").Cells(LI, 3)
End Sub

je souhaite si le ComboBox1 est vide alors les deux TextBox(intitulétextbox et statuttextbox) se vide automatiquement.
grazie

 

[Ilino]

Re : Vider les TextBox si ComboBox est vide

Bonsoir Forum
Sorry , problem RESOLU
Grazie

 

[job75]

Re : Vider les TextBox si ComboBox est vide

Bonsoir Ilino,

Simplement mets en début de macro :

If ComboBox1.ListIndex = -1 Then intitulétextbox = "":statuttextbox = "": Exit Sub

Note que les Me sont totalement inutiles...

A+

 

[Ilino]

Re : Vider les TextBox si ComboBox est vide

Bonsoir MAITRE
comme d'hab 😱
grazie