If ComboBox

[David]

bonjour à tous

Y aurait il un moyen de mettre plusieurs choix dans le if au lieux de taper autant de ligne que de choix ?

Private Sub ComboBox1_change()
If ComboBox1 = ('Animateur Insertion') Then
Emploi_Repere.Text = 'Animateur'
End If
If ComboBox1 = ('Animatrice Insertion') Then
Emploi_Repere.Text = 'Animateur'
End If

en

If ComboBox1 = ('Animatrice Insertion', 'Animatrice Insertion') Then
Emploi_Repere.Text = 'Animateur'
End If

Merci d'avance

 

[PascalXLD]

Bonjour

si j'ai bien compris

If ComboBox1 = 'Animateur Insertion' Or ComboBox1 = 'Animatrice Insertion' Then

Emploi_Repere.Text = 'Animateur'

End If

Bon courage

 

[David]

Bonjour Pascal

je me disais bien qu'il y avait du Or mais je me souvenais plus de la syntaxe.

Merci beaucoup.