Coment ecrire une var dans une fromule en vb6
Résolu/Fermé
A voir également:
- Coment ecrire une var dans une fromule en vb6
- Ecrire en gras sur whatsapp - Guide
- Ecrire en miroir - Guide
- Application pour écrire les chiffre en lettre - Télécharger - Outils professionnels
- Ecrire une lettre gratuitement - Télécharger - Dictionnaires & Langues
- Vb6 - Télécharger - Divers Utilitaires
8 réponses
akaprophet
Messages postés
39
Date d'inscription
vendredi 14 septembre 2007
Statut
Membre
Dernière intervention
4 octobre 2007
24
14 sept. 2007 à 14:42
14 sept. 2007 à 14:42
Bonjour tintin_tu,
Ta question est très vague.
Pourrais tu être plus spécifique.
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
exp: si x alors où x contient un text
Utilisateur anonyme
15 sept. 2007 à 17:03
15 sept. 2007 à 17:03
Bonjour,
oui très large la question ! il serait souhaitable de se baser sur un premier jet !
ex.:
Lupin
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Utilisateur anonyme
18 sept. 2007 à 13:59
18 sept. 2007 à 13:59
Bonjour,
Malheureusement, ce n'est pas clair pour moi !
Lupin
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
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
Utilisateur anonyme
21 sept. 2007 à 14:19
21 sept. 2007 à 14:19
re :
voici ce que je comprends de votre problème :
Lupin
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
