Combobox + macro : if

[Totor]

Bonjour Forum,

une petite question sur les combobox. La Combo permet de choisir différents noms: C. PETIT, G. BERTHOUX...
Quand on sélectionnne C. PETIT, pas de problème la macro 1 se lance bien. Par contre pour les autres noms rien ne sa passe.
Auriez vous une petite idée de la cause de mon souci?

Merci à tous les acteurs de ce forum.

Bonne journéee

Totor


Private Sub ComboBox1_Change()

If ComboBox1.Value = 'C. PETIT' Then
Call Macro3

If ComboBox1.Value = 'G. BERTHOUX' Then
Call Macro4

If ComboBox1.Value = 'G. MANS' Then
Call Macro5

If ComboBox1.Value = 'JF. GLIMOIS' Then
Call Macro6

If ComboBox1.Value = 'I. GLENCASTLE' Then
Call Macro7

If ComboBox1.Value = 'MJ. GIVERNAUD' Then
Call Macro8

If ComboBox1.Value = 'P. LAMONERIE' Then
Call Macro9

End If
End If
End If
End If
End If
End If
End If

End Sub

 

[PascalXLD]

Bonjour

il faut que tu ecrives

Private Sub ComboBox1_Change()

If ComboBox1.Value = 'C. PETIT' Then
Call Macro3

elseIf ComboBox1.Value = 'G. BERTHOUX' Then
Call Macro4

elseIf ComboBox1.Value = 'G. MANS' Then
Call Macro5

elseIf ComboBox1.Value = 'JF. GLIMOIS' Then
Call Macro6

elseIf ComboBox1.Value = 'I. GLENCASTLE' Then
Call Macro7

elseIf ComboBox1.Value = 'MJ. GIVERNAUD' Then
Call Macro8

elseIf ComboBox1.Value = 'P. LAMONERIE' Then
Call Macro9
End If

Bon courage

 

[Abel]

Bonjour totor,

Si tu fais : if 'condition' then 'action' le tout sur la même ligne, tu n'as pas besoin de faire 'end if'.

Dans le cas que tu présentes, tu peux essayer d'utiliser 'select case'. Ca me semble plus approprié :

Private Sub ComboBox1_Change()

select case ComboBox1.Value
case 'C. PETIT'
Call Macro3

case 'G. BERTHOUX'
Call Macro4

case 'G. MANS'
Call Macro5

etc ...


end sub


En espérant que cela te dépanne.

Abel.

 

[Abel]

Re,

Oups !
Pardon Pascal. Pas fait la fête mais pas frais quand même. Arf !

Abel.

 

[Totor]

je vais essayer les deux versions

Merci Abel/pascal et bonne journée.

Totor