condition sur combobox

[rudymagny]

Rebonjour le forum,

Une question au sujet de conditions sur des comboboxs?

Voilà aujourd'hui je fais ça:
'If ComboBox3 = '' Then
'MsgBox ('Quel est le type de modifications terrains?')
'Exit Sub
'End If
'If ComboBox4 = '' Then
'MsgBox ('Quel est le type de modifications terrains?')
'Exit Sub
'End If
'If ComboBox5 = '' Then
'MsgBox ('Quel est le type de modifications terrains?')
'Exit Sub
'End If

mais je voudrais faire une condition qui se traduit par:
Si une des trois combobox est vide on affiche le msg et exit sub.

Merci d'avance

 

[PascalXLD]

Bonjour

essaies

If combobox.listindex=-1 then
.....

cela veut dire si aucune saisie dans la combo

 

[rudymagny]

Bonour pascal76,
Merci pour la réponse,

j'ai essayé mais il bloque sur

If ComboBox.ListIndex = -1 Then
MsgBox ('Quel est le type de modifications terrains?')
Exit Sub
End If

?

 

[PascalXLD]

RE

J'ai mis combobox mais il faut mettre son nom

If ComboBox4.ListIndex = -1 Then
MsgBox ('Quel est le type de modifications terrains?')
Exit Sub
End If

 

[rudymagny]

Suis-je bête!

Sinon ce n'est pas ça qu'il me faut, ce que je voudrais c'est si une des trois combobox (3,4,5)est vide, j'ai le message.

 

[PascalXLD]

Re

Tu entends quoi Par vide ???

Sans données à l'interieur ou sans données choisies ??

 

[rudymagny]

Excuse moi, c'est si on ne choisi po de données!
merci

 

[PascalXLD]

Re

Et bien dans ce cas là le test que je t'ai donné doit marcher

 

[rudymagny]

Désolé,

mais alors il faut que je mette quelle combobox pour que ça fontionne?

If ComboBox3.ListIndex = -1 Then
MsgBox ('Quel est le type de modifications terrains?')
Exit Sub
End If

ou

If ComboBox4.ListIndex = -1 Then
MsgBox ('Quel est le type de modifications terrains?')
Exit Sub
End If

ou

If ComboBox5.ListIndex = -1 Then
MsgBox ('Quel est le type de modifications terrains?')
Exit Sub
End If

Merci

 

[PascalXLD]

RE

bah j'en sais rien moi. C'est ton UF avec les noms de combobox que tu voies. Regarde le nom de ton combo et c'est celui-là qu'il faut mettre

 

[rudymagny]

Désolé d'être dur de la feuille mais je sais pas si j'ai bien exprimé mon besoin;

Lorsque je clic sur un commandbutton, je voudrais un contrôle sur les trois combobox 3,4 et5.

Si un des trois combobox est vide je veux le message.

je sais pas j'ai fais ça pour mes listes de choix:

With Me.ComboBox3
.AddItem 'Création de tranche'
.AddItem 'Création de TS'
.AddItem 'Création de TM'
.AddItem 'Migration'
End With

With Me.ComboBox4
.AddItem 'Refonte BT'
End With

With Me.ComboBox5
.AddItem 'Changement n° de TI'
.AddItem 'Changement niveau tension'
.AddItem 'Changement n° de tranche'
.AddItem 'Modification valeur max TM'
End With

mais si aucun choix n'est fais dans une combobx, je voudrais le message.

je sais pas si je suis clair. lol

merci beaucoup

 

[PascalXLD]

Re

Donc tu veux faire le test sur les 3 combo

If combobox3.listindex= -1 then
msgbox 'Ouh ouh on a oublié de sélectionner'
exit sub

If combobox4.listindex= -1 then
msgbox 'Ouh ouh on a oublié de sélectionner'
exit sub

If combobox5.listindex= -1 then
msgbox 'Ouh ouh on a oublié de sélectionner'
exit sub

 

[rudymagny]

merci,

mais là, si la combobox3 est remplie, il me met quand même le message alors que je voudrais que ça passe et pareil si je rempli la combobox 4 et pas les autres et pareil pour la 5.

en sachant que j'ai fais ça pour le button:

Private Sub CommandButton4_Click()
Dim i As Byte
For i = 3 To 5
Controls('ComboBox' & i).Enabled = True
Controls('ComboBox' & i).Value = ''
Next i
End Sub

désolé et merci

 

[PascalXLD]

Re

franchemetn là je ne comprends plus rien

tu dis :

'Si un des trois combobox est vide je veux le message. '

Bien là c'est le cas si le 3 et le 5 sont rempli mais pas la 4 tu as le message ou alors j'ai pas compris ce que tu veux explique moi plus en detail

 

[rudymagny]

je vais mettre un fichier en exemple c peut etre plus simple:

[file name=exemple_20060418223108.zip size=47381]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple_20060418223108.zip[/file]

merci d'avance