Ouvrir une MsgBox en fonction de 2 combobox

Bonjour à tous !

J'ai dans mon userform un combobox2 qui permet de sélectionner un moyen de transport pour se render d'une ville A à une ville B. Ces deux villes on les choisit au travers de combobox3 et de combobox4...

Je souhaite qu'un msgbox apparaisse si je sélectionne un moyen de transport sans avoir au préalable choisit une ville de depart et une ville d'arrivée (car tous les moyens de transport ne sont pas utilisables ex : bateau pour faire Nancy - Metz).

Voilà mon code :

'Afficher un message lorsqu'on sélectionne un moyen de transport avant la ville de départ et la ville d'arrivée

Private Sub ComboBox2_Click()

    If ComboBox3.List().Value = "" Or ComboBox4.List().Value = "" Then
        MsgBox "Veuillez sélectionner une ville de départ et une ville d'arrivée", "Ok", "Erreur"
    End If

End Sub

Lorsque je fais le test, un message d'erreur apparait et me surligne la ligne

If ComboBox3.List().Value = "" Or ComboBox4.List().Value = "" Then

Je ne sais pas comment écrire mes combobox dans le If...

Si quelqu'un peut m'aiguiller !

Merci d'avance

Bonjour Loulou, bonjour le forum,

Enlève le List...

J'aurais écris comme ça :

Private Sub ComboBox2_Click()

If ComboBox3.Value = "" Then
    MsgBox "Veuillez sélectionner une ville de départ !", "Ok", "Erreur"
    Me.ComboBox3.SetFocus
    Exit Sub
End If
If ComboBox4.Value = "" Then
    MsgBox "Veuillez sélectionner une ville d'arrivée !", "Ok", "Erreur"
    Me.ComboBox4.SetFocus
End If
End Sub

Ah ouai ça fonctionne bien comme ça !

J'ai aussi du changer la ligne de la MsgBox :

MsgBox "Veuillez sélectionner une ville de départ et une ville d'arrivée.", vbOKOnly, "Erreur"

Merci !!