XL 2016 Problème elseif vba

Nass78

XLDnaute Nouveau
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
 

JM27

XLDnaute Barbatruc
bonjour
dans ton cas regarde du coté select case
dans le module tu tapes select case et puis une touche F1
nota : on peut le faire avec de if , else if , etc ...
Code:
Private Sub btn_ajouter_Click() 'Action bouton Ajouter
     Sheets("acceuil").Activate
     'Condition 1
     If Me.cbo_type_charge = "fonctionnement" Then '
          Range("b15") = "fonctionnement"
     'Condition 2
     ElseIf Me.cbo_type_charge = "crédit" Then '
          Range("b16") = "crédit"
     'Condition 3
     ElseIf Me.cbo_type_charge = "assurance" Then '
          Range("b17") = "assurance"
     'Condition 4
     ElseIf Me.cbo_type_charge = "seji" Then '
   
          Range("b18") = "seji"
     End If
End Sub

ou encore
Code:
Private Sub btn_ajouter_Click() 'Action bouton Ajouter
     Sheets("acceuil").Activate
     'Condition 1
     Select Case Me.cbo_type_charge
          Case Is = "fonctionnement"  '
               Range("b15") = "fonctionnement"
          'Condition 2
          Case Is = "crédit"  '
               Range("b16") = "crédit"
          'Condition 3
          Case Is = "assurance" '
               Range("b17") = "assurance"
          'Condition 4
          Case Is = "seji" '
            Range("b18") = "seji"
     End Select
End Sub



avec un petit fichier joint cela rendra la réponse plus facile.( sans avoir à recréer le contexte)
 
Dernière édition:

Nass78

XLDnaute Nouveau
bonjour
dans ton cas regarde du coté select case
dans le module tu tapes select case et puis une touche F1
nota : on peut le faire avec de if , else if , etc ...
Code:
Private Sub btn_ajouter_Click() 'Action bouton Ajouter
     Sheets("acceuil").Activate
     'Condition 1
     If Me.cbo_type_charge = "fonctionnement" Then '
          Range("b15") = "fonctionnement"
     'Condition 2
     ElseIf Me.cbo_type_charge = "crédit" Then '
          Range("b16") = "crédit"
     'Condition 3
     ElseIf Me.cbo_type_charge = "assurance" Then '
          Range("b17") = "assurance"
     'Condition 4
     ElseIf Me.cbo_type_charge = "seji" Then '
  
          Range("b18") = "seji"
     End If
End Sub

ou encore
Code:
Private Sub btn_ajouter_Click() 'Action bouton Ajouter
     Sheets("acceuil").Activate
     'Condition 1
     Select Case Me.cbo_type_charge
          Case Is = "fonctionnement"  '
               Range("b15") = "fonctionnement"
          'Condition 2
          Case Is = "crédit"  '
               Range("b16") = "crédit"
          'Condition 3
          Case Is = "assurance" '
               Range("b17") = "assurance"
          'Condition 4
          Case Is = "seji" '
            Range("b18") = "seji"
     End Select
End Sub



avec un petit fichier joint cela rendra la réponse plus facile.( sans avoir à recréer le contexte)


Pourquoi faut il rajoute "me." Dans le code ? Merci
 

JM27

XLDnaute Barbatruc
bonjour
me fait référence à frm_decaissement_annuel
on peut aussi s'en passer .
mais c'est beaucoup plus facile d'écrire avec le "me." avant car VBA te propose les objets qui sont liés à ton userform automatiquement.
nota: cela marche aussi avec frm_decaissement_annuel .
mais sans ton fichier difficile d'en dire plus
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
314 628
Messages
2 111 336
Membres
111 104
dernier inscrit
JEMADA