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.
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 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