ELSEIF VBA EXCEL
Nass78
Messages postés
4
Statut
Membre
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à tous,
Je m'autoforme sur VBA depuis quelques jours , je rencontre une souci avec l'utilisation des conditions imbriqués.
J'ai crée un formulaire avec une combobox proposant 4 choix (fonctionnement, crédit, assurance, seji)
Quand j'éxecute ma procédure, le résultat souhaité ne fonctionne qu'avec la première condition, quand choisi sur ma liste un choix différent de "fonctionnement" rien ne se passe.
Voici la synthaxe :
Private Sub btn_ajouter_Click() 'Action bouton Ajouter
'Condition 1
If frm_decaissement_annuel.cbo_type_charge = "Fonctionnement" Then '
Sheets("acceuil").Activate
Range("b15") = "fonctionnement"
'Condition 2
ElseIf frm_decaissement_annuel.cbo_type_charge = "crédit" Then '
Sheets("acceuil").Activate
Range("b16") = "crédit"
'Condition 3
ElseIf frm_decaissement_annuel.cbo_type_charge = "assurance" Then '
Sheets("acceuil").Activate
Range("b17") = "assurance"
'Condition 4
ElseIf frm_decaissement_annuel.cbo_type_charge = "seji" Then '
Sheets("acceuil").Activate
Range("b18") = "seji"
Else
Sheets("acceuil").Activate
End If
'
End Sub 'pour action bouton ajouter
Quelqu"un aurait une idée de la source du blocage ?
Merci par avance
Je m'autoforme sur VBA depuis quelques jours , je rencontre une souci avec l'utilisation des conditions imbriqués.
J'ai crée un formulaire avec une combobox proposant 4 choix (fonctionnement, crédit, assurance, seji)
Quand j'éxecute ma procédure, le résultat souhaité ne fonctionne qu'avec la première condition, quand choisi sur ma liste un choix différent de "fonctionnement" rien ne se passe.
Voici la synthaxe :
Private Sub btn_ajouter_Click() 'Action bouton Ajouter
'Condition 1
If frm_decaissement_annuel.cbo_type_charge = "Fonctionnement" Then '
Sheets("acceuil").Activate
Range("b15") = "fonctionnement"
'Condition 2
ElseIf frm_decaissement_annuel.cbo_type_charge = "crédit" Then '
Sheets("acceuil").Activate
Range("b16") = "crédit"
'Condition 3
ElseIf frm_decaissement_annuel.cbo_type_charge = "assurance" Then '
Sheets("acceuil").Activate
Range("b17") = "assurance"
'Condition 4
ElseIf frm_decaissement_annuel.cbo_type_charge = "seji" Then '
Sheets("acceuil").Activate
Range("b18") = "seji"
Else
Sheets("acceuil").Activate
End If
'
End Sub 'pour action bouton ajouter
Quelqu"un aurait une idée de la source du blocage ?
Merci par avance
1 réponse
-
Bonjour
Pas besoin de 4 conditions puisque le but est le même : ouvrir la feuille accueil et inscrire le choix en colonne B
donc faire plutôt ainsi :Private Sub btn_ajouter_Click() 'Action bouton Ajouter Sheets("acceuil").Activate 'Listindex renvoie 0, 1, 2 etc selon l'item choisi donc 15+Listindex donnera 15, 16 etc x=15+ frm_decaissement_annuel.cbo_type_charge.ListIndex Range("b" & x) = frm_decaissement_annuel.cbo_type_charge End Sub
Pour l'utilisation des contrôles dans un userform voir ici :
https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-F
Cdlmnt
Via
