Coment ecrire une var dans une fromule en vb6

Bonjour tintin_tu,

Ta question est très vague.
Pourrais tu être plus spécifique.

j'aimerai bien inserer une condition dans une variable X, puis utiliser cette variable dans ma programation
exp: si x alors où x contient un text

Bonjour,

oui très large la question ! il serait souhaitable de se baser sur un premier jet !

ex.:

Sub cmd_Click()

    Const MaConstante = "Réservé"

    Dim Valeur As Variant ' Variable en lecture
    
    Valeur = InputBox("Saisie de la valeur de la variable", _
                        "Données a transporter", _
                        "variable")
                        
    If (Valeur <> MaConstante) Then
        MsgBox "Différent"
        txt_Variable.Text = txt_Variable.Text & " - " & Valeur
    Else
        txt_Variable.Text = Valeur
    End If
    
    MsgBox "Opération terminé."
    
End Sub
'

Lupin

Bonjour, Lupin.A
Merci, pour votre aide mais mon proleme reste non resolut. Je vais essaye de poser le probleme autrement
la varaible VALEUR en lecture apres saisie va contenir le texte suivant ( matricule = 127 and type_empl = "Mensuel" ) qui est une condition.
dans mon module j'aimerai exucuter
If VALEUR then Où VALEUR Contient la condition saisie
traitement 1
Else
traitement 2
endif

Tintin_tu

Bonjour,

Malheureusement, ce n'est pas clair pour moi !

Sub cmd_Click()

    Const MaConstante = "matricule = 127 and type_empl = " & """" & "Mensuel" & """"

    Dim Valeur As Variant ' Variable en lecture
    
    Valeur = InputBox("Saisie de la valeur de la variable", _
                        "Données a transporter", _
                        "variable")
                        
    If (Valeur <> MaConstante) Then
        MsgBox "Différent"
        txt_Variable.Text = txt_Variable.Text & " - " & Valeur
    Else
        txt_Variable.Text = Valeur
        DoEvents
    End If
    
    MsgBox "Opération terminé."
    
End Sub
'

Lupin

Bonjour,
Merci pour l'effort peut etre je n'arrive a bien m'exprimer je vais encore essayer de mieux presenter mon probleme.
Le contenue de maConstante est inconnue lors de la programmation. c'est lors de l'excution que la variable valeur sera remplie et que la condition ( SI ) se fait sur le contenue de la varaible VALEUR saisie dans Input box d'où

Dim Valeur As Variant ' Variable en lecture

Valeur = InputBox("Saisie de la valeur de la variable", _
"Données a transporter", _
"variable")
If VALEUR Then Valeur contient le texte de la condtion qui a été saisie dans InputBox
Traitement_1
else
Traitement_2
endif

trés aimable a vous lupin

re :

voici ce que je comprends de votre problème :

Sub Test()

    Dim Condition As Boolean, Matricule As Long, Type_Empl As String
    
    Matricule = InputBox("Saisie du matricule", "Matricule", 127)
    Type_Empl = InputBox("Type Empl", "Type", "Mensuel")
    
    Condition = (Matricule = 127 And Type_Empl = "Mensuel")
    
    If (Condition) Then
        MsgBox "Condition Vrai"
    Else
        MsgBox "Condition Fausse"
    End If
    

End Sub
'

Lupin

Oui c'est axactement ca.
je vais essayer cet exemple et un trés grand mercie