[RESOLU] : condition imbriquée

[jecirbe]

Bonjour à toutes et à tous, Mes meilleurs voeux à chacun pour cette nouvelle année.

Je viens demander de l'aide.
Dans un userform j'ai plusieurs textbox et combobox pour lesquelles je vérifie sous qu'un item est sélectionné.

If txtDate.Text = "" Then
    MsgBox "Veuillez renseigner une date de stage", vbExclamation, "Attention"
    txtDate.SetFocus
ElseIf CbBoxLieux.ListIndex = -1 Then
    MsgBox "Veuillez indiquer un lieu de stage", vbExclamation, "Attention"
   CbBoxLieux.SetFocus
ElseIf CbBoxpromos.ListIndex = -1 Then
    MsgBox "Veuillez indiquer quelle promotion est concernée", vbExclamation, "Attention"
    CbBoxpromos.SetFocus
ElseIf CbBoxthemes.ListIndex = -1 Then
    MsgBox "Veuillez indiquer le thème du cours", vbExclamation, "Attention"
    CbBoxthemes.SetFocus
ElseIf cbBoxconf.ListIndex = -1 Then
    'définir la valeur comme = " à définir"

si les conditions sont remplis alors

Else
    ActiveSheet.Cells(numLignevide, 1) = txtDate.Value
    ActiveSheet.Cells(numLignevide, 3) = CbBoxLieux.Value
    ActiveSheet.Cells(numLignevide, 2) = cbBoxconf.Value
    ActiveSheet.Cells(numLignevide, 4) = CbBoxpromos.Value
    ActiveSheet.Cells(numLignevide, 5) = CbBoxthemes.Value

Ceci est "l'ancien" code c'est à dire lorsque je souhaitais qu'un item soit sélectionné dans la combobox cbBoxconf. cependant à présent je voudrais que si rien n'est sélectionné dans la combobox cbBoxconf la valeur enregistrée dans la cellule soit :
valeur=" à définir"
pour l'instant les essais que j'ai réaliser mont permis soit d'afficher "à définir" dans la combobox cbBoxconf (je ne le veux pas) ou à enregistrer "à définir" dans la cellule du tableau mais alors rien ne s'enregistre dans les autres cellules.
Merci d'avance

 

[JCGL]

Re : condition imbriquée

Bonjour à tous,

Et si déposais ton fichier. Cela serait plus simple pour tester...

A + à tous

 

[Paritec]

Re : condition imbriquée

Bonjour Jecirbele forum
si j'ai compris ta demande
Bonne Année 2012
a+
papou

If txtDate.Text = "" Then
    MsgBox "Veuillez renseigner une date de stage", vbExclamation, "Attention"
    txtDate.SetFocus
ElseIf CbBoxLieux.ListIndex = -1 Then
    MsgBox "Veuillez indiquer un lieu de stage", vbExclamation, "Attention"
   CbBoxLieux.SetFocus
ElseIf CbBoxpromos.ListIndex = -1 Then
    MsgBox "Veuillez indiquer quelle promotion est concernée", vbExclamation, "Attention"
    CbBoxpromos.SetFocus
ElseIf CbBoxthemes.ListIndex = -1 Then
    MsgBox "Veuillez indiquer le thème du cours", vbExclamation, "Attention"
    CbBoxthemes.SetFocus
ElseIf cbBoxconf.ListIndex = -1 Then cbBoxconf=" à définir"
     'définir la valeur comme = " à définir"

EDIT: Bonjour JC et Bonne Année 2012, tu sais ou elle est la balise de code vba ???? ou alors il faut toujours [highlight=vba etcetc???

 

[jecirbe]

Re : condition imbriquée

voici le fichier demandé

Merci déjà de votre temps de réactivité digne de pilotes de F1 ;-)

 

[Theze]

Re : condition imbriquée

Bonjour,

Je verrai ceci plutôt comme ça :

Sub Test()

    If txtDate.Text = "" Then
         MsgBox "Veuillez renseigner une date de stage", vbExclamation, "Attention"
         txtDate.SetFocus
         Exit Sub
    End If
    
    If CbBoxLieux.ListIndex = -1 Then
         MsgBox "Veuillez indiquer un lieu de stage", vbExclamation, "Attention"
        CbBoxLieux.SetFocus
         Exit Sub
    End If
    
    If CbBoxpromos.ListIndex = -1 Then
         MsgBox "Veuillez indiquer quelle promotion est concernée", vbExclamation, "Attention"
         CbBoxpromos.SetFocus
         Exit Sub
    End If
    
    If CbBoxthemes.ListIndex = -1 Then
         MsgBox "Veuillez indiquer le thème du cours", vbExclamation, "Attention"
         CbBoxthemes.SetFocus
         Exit Sub
    End If
    
    If cbBoxconf.ListIndex = -1 Then
         'définir la valeur comme = " à définir"
         cbBoxconf.Text = "à définir"
    End If
    
    'une fois tous les tests réalisés (tous les champs renseignés)
    'alors, on peut arriver jusqu'ici
    With ActiveSheet

        .Cells(numLignevide, 1) = txtDate.Value
        .Cells(numLignevide, 3) = CbBoxLieux.Value
        .Cells(numLignevide, 2) = cbBoxconf.Value
        .Cells(numLignevide, 4) = CbBoxpromos.Value
        .Cells(numLignevide, 5) = CbBoxthemes.Value

    End With

End Sub

Maintenant, il est possible d'initialiser le texte du combo (à définir) au chargement de la Form, à voir.

Hervé.

 

[JNP]

Re : condition imbriquée

Bonjour le fil ,
Pourquoi pas tout simplement

If txtDate.Text = "" Then
    MsgBox "Veuillez renseigner une date de stage", vbExclamation, "Attention"
    txtDate.SetFocus
ElseIf CbBoxLieux.ListIndex = -1 Then
    MsgBox "Veuillez indiquer un lieu de stage", vbExclamation, "Attention"
   CbBoxLieux.SetFocus
ElseIf CbBoxpromos.ListIndex = -1 Then
    MsgBox "Veuillez indiquer quelle promotion est concernée", vbExclamation, "Attention"
    CbBoxpromos.SetFocus
ElseIf CbBoxthemes.ListIndex = -1 Then
    MsgBox "Veuillez indiquer le thème du cours", vbExclamation, "Attention"
    CbBoxthemes.SetFocus
Else
    ActiveSheet.Cells(numLignevide, 1) = txtDate.Value
    ActiveSheet.Cells(numLignevide, 3) = CbBoxLieux.Value
    ActiveSheet.Cells(numLignevide, 2) = IIf(cbBoxconf.ListIndex = -1, "A définir", cbBoxconf.Value)
    ActiveSheet.Cells(numLignevide, 4) = CbBoxpromos.Value
    ActiveSheet.Cells(numLignevide, 5) = CbBoxthemes.Value
End If

Bonne suite

 

[jecirbe]

Re : condition imbriquée

Merci pour vos réponses
je vais regarder ça et je vous tient au courant de l'évolution

Jecirbe

 

[jecirbe]

Re : condition imbriquée

J'ai utilisé la méthode de JNP mais merci aussi à THEZE pour sa contribution.

P.S.: JNP peux tu m'expliquer en 2 mots IIF


Merci

 

[JNP]

Re : condition imbriquée

Re ,

P.S.: JNP peux tu m'expliquer en 2 mots IIF

C'est un bête test :
Si(Condition, Valeur si vrai, Valeur si faux)
Bonne suite

 

[JCGL]

Re : condition imbriquée

Bonjour à tous,
Salut Papou,
Salut JNP,

Papou : le balise Code est toujours le # en mode avancé.

A++
A + à tous

 

[jecirbe]

Re : condition imbriquée

C'est un bête test

jusque là j'avais suivi c'est IIF qui "me pose pb". IF je connais mais pas IIF

 

[JNP]

Re : condition imbriquée

Re ,

jusque là j'avais suivi c'est IIF qui "me pose pb". IF je connais mais pas IIF

Que veux-tu que je te dise de plus, c'est une fonction native de VBA équivalente à la formule de feuille, cf l'aide ...
Bon courage