je souhaite lancer un userform dans lequel il y a un combobox.
Mais lorsque la liste est vide, cela plante.
Comment faire afin que cela puisse se lancer sans planter
Merci beaucoup
Michel
Private Sub UserForm_Initialize()
ComboBox1.Text = ComboBox1.List(0)
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
docm
Bonsoir.
Tu peux utiliser On Error Resume Next
ou encore vérifier si la propriété Listcount du ComboBox1 est supérieure à zéro.
Salutations.
Private Sub UserForm_Initialize()
On Error Resume Next ComboBox1.Text = ComboBox1.List(0)
End Sub
"Michel.Girard" wrote in message news:#
Bonsoir
je souhaite lancer un userform dans lequel il y a un combobox. Mais lorsque la liste est vide, cela plante. Comment faire afin que cela puisse se lancer sans planter Merci beaucoup Michel
Private Sub UserForm_Initialize() ComboBox1.Text = ComboBox1.List(0) End Sub
Bonsoir.
Tu peux utiliser On Error Resume Next
ou encore vérifier si la propriété Listcount du ComboBox1 est supérieure à
zéro.
Salutations.
Private Sub UserForm_Initialize()
On Error Resume Next
ComboBox1.Text = ComboBox1.List(0)
End Sub
"Michel.Girard" <michel.girard@club-internet.fr> wrote in message
news:#hVOGYVDFHA.3256@tk2msftngp13.phx.gbl...
Bonsoir
je souhaite lancer un userform dans lequel il y a un combobox.
Mais lorsque la liste est vide, cela plante.
Comment faire afin que cela puisse se lancer sans planter
Merci beaucoup
Michel
Private Sub UserForm_Initialize()
ComboBox1.Text = ComboBox1.List(0)
End Sub
ou encore vérifier si la propriété Listcount du ComboBox1 est supérieure à zéro.
Salutations.
Private Sub UserForm_Initialize()
On Error Resume Next ComboBox1.Text = ComboBox1.List(0)
End Sub
"Michel.Girard" wrote in message news:#
Bonsoir
je souhaite lancer un userform dans lequel il y a un combobox. Mais lorsque la liste est vide, cela plante. Comment faire afin que cela puisse se lancer sans planter Merci beaucoup Michel
Private Sub UserForm_Initialize() ComboBox1.Text = ComboBox1.List(0) End Sub
Michel.Girard
Merci beaucoup Impec Michel
"docm" a écrit dans le message de news: e$
Bonsoir.
Tu peux utiliser On Error Resume Next
ou encore vérifier si la propriété Listcount du ComboBox1 est supérieure à zéro.
Salutations.
Private Sub UserForm_Initialize()
On Error Resume Next ComboBox1.Text = ComboBox1.List(0)
End Sub
"Michel.Girard" wrote in message news:#
Bonsoir
je souhaite lancer un userform dans lequel il y a un combobox. Mais lorsque la liste est vide, cela plante. Comment faire afin que cela puisse se lancer sans planter Merci beaucoup Michel
Private Sub UserForm_Initialize() ComboBox1.Text = ComboBox1.List(0) End Sub
Merci beaucoup Impec
Michel
"docm" <docmarti@spamcolba.net> a écrit dans le message de news:
e$MtvoXDFHA.2180@TK2MSFTNGP12.phx.gbl...
Bonsoir.
Tu peux utiliser On Error Resume Next
ou encore vérifier si la propriété Listcount du ComboBox1 est supérieure à
zéro.
Salutations.
Private Sub UserForm_Initialize()
On Error Resume Next
ComboBox1.Text = ComboBox1.List(0)
End Sub
"Michel.Girard" <michel.girard@club-internet.fr> wrote in message
news:#hVOGYVDFHA.3256@tk2msftngp13.phx.gbl...
Bonsoir
je souhaite lancer un userform dans lequel il y a un combobox.
Mais lorsque la liste est vide, cela plante.
Comment faire afin que cela puisse se lancer sans planter
Merci beaucoup
Michel
Private Sub UserForm_Initialize()
ComboBox1.Text = ComboBox1.List(0)
End Sub
ou encore vérifier si la propriété Listcount du ComboBox1 est supérieure à zéro.
Salutations.
Private Sub UserForm_Initialize()
On Error Resume Next ComboBox1.Text = ComboBox1.List(0)
End Sub
"Michel.Girard" wrote in message news:#
Bonsoir
je souhaite lancer un userform dans lequel il y a un combobox. Mais lorsque la liste est vide, cela plante. Comment faire afin que cela puisse se lancer sans planter Merci beaucoup Michel
Private Sub UserForm_Initialize() ComboBox1.Text = ComboBox1.List(0) End Sub
