Multi si en VBA

Bsr

je veux ce fonction multi si traduire en vba dans usforme

=IF(AA<>"","fermer",IF(U<>"","envoiyer",IF(T<>"","Attend","ouvert ")))

AA=TextBox31

U= ComboBox11

T=TextBox31

dans ce code

Private Sub ComboBox7_Change()

End Sub

merci

Bonsoir Nizar, bonsoir le forum,

Manque des indications ! Une piste :

Private Sub ComboBox7_Change()
If Me.TextBox31.Value <> "" Then
    Me.JESAISPASQUOI.Value = "fermer"
Else
    If Me.ComboBox11.Value <> "" Then
        Me.JENESAISPASQUOI.Value = "Envoyer"
    Else
        If Me.TextBox31.Value <> "" Then
            Me.JENESAISPASQUOI.Value = "Attend"
        Else
            Me.JENESAISPASQUOI.Value = "Ouvert"
        End If
    End If
End If
End Sub

Bonsoir,

l'ordre des tests est à modifier car si Textbox31 <>"" alors on ne test pas combobox11, et si textbox31 ="" alors le test textbox<>"" après le combobox11 ne sert à rien...

Donc :

If  combobox11 = "" Then
    if textbox31 <> "" Then attend Else ouvert
ElseIf textbox31 <>"" then
    fermer
ElseIf combobox11<> "" Then
    envoyer
Endif

@ bientôt

LouReeD

AA=TextBox31

U= ComboBox11

T=TextBox11

Private Sub ComboBox7_Change()

 If TextBox31.Value <> "" Then
        ComboBox7.Value = "fermer"
    Else
        If TextBox21.Value <> "" Then
            ComboBox7.Value = "envoyer"
        Else
            If ComboBox11.Value <> "" Then
                ComboBox7.Value = "attend"
            Else
               ComboBox7.Value = "ouvert"
            End If
        End If
    End If
End Sub

mais le problème quelqu'un peut Maider je une listbox qui affiche les lignes quand je saute D'une lignée a autre une dans les combobox 7 affiche la dernière étape ou la ligne mais si je clic deux fois elle apparaitre le résulta juste suivant le code qui déjà fait

J'espère bien expliquer

Bonjour Nizar, LouReeD, bonjour le forum,

Mal espéré !... Reprends tes explication avec le fichier qui va bien...