salut tout le monde
bon je vous expose le PB
imaginons un TEXTBOX
si j ecris dans ce TEXTBOX j obtiens ce que j ai ecris
admettons que j ecrive => 1234ecriture

je recupere la valeur comme ceci

mavaleur=textbox


donc je voudrai savoir si mavaleur=textbox donne la meme valeur que mavaleur="1234ecriture"
si la reponse est non, comment pourrais on faire pour que
mavaleur=textbox renvoie la meme valeur que mavaleur="1234ecriture"

je vous remercie d avance
@ ++
PS:comme vous pouvez l imaginez je suis debutant et sorry pour les fautes

Il suffit de tester la valeur du textbox avec une valeur que tu prédéfinie :

If Text1.Text = "1234ecriture" then 'c'est le même texte !

DarK Sidious

[Responsable de la rubrique API et responsable VB du site www.ProgOtoP.com]

merci de ta reponse
j ai deja tester ce que tu me dis et ça me donne dailleur la mm valeur mais le pb, c est que lorsque j utilise une commande en faisant ça pas exemple

a="test"
b="salut"
c="coucou"
d="encore un test"
e="bb.exe"

total$="c:\winnt\"+e+"\"+a+" " +b+"/"+c+" d:\chemin\"+d
shell total$

cette commande fonction si au depart je lui donne les valeur a , b -c -d et e
par contre si je recupere a , b ,c ,d et e par les text box la mm commande ne fonctionne pas et je ne cmprend pas pkoi.
Peut tu me dire ce qui ne vas pas
merci

Je ne comprends pas trop ton problème, tu récupère les valeurs de a, b, c, d et e avec des textboxes, c'est bien cà ? Ou alors tu récupère carrément "c:\winnt\"+e+"\"+a+" " +b+"/"+c+" d:\chemin\"+d dans ton textbox ?

DarK Sidious

[Responsable de la rubrique API et responsable VB du site www.ProgOtoP.com]

je recupere avec des text box mais ma chaine total ne fonctionne pas si je le fais avec text box par contre cette meme chaine fonction si je TEST en donnant les valeur.
qd je donne les valeur , c est juste pour tester autrement , ce nest que des textbox.
comprend tu ?

Ok, mais passe tu les valeurs avec : Text1.Text ou uniquement Text1 ? Essaye avec un ".Text"

DarK Sidious

[Responsable de la rubrique API et responsable VB du site www.ProgOtoP.com]

ma text box envoie sur Text1.Text
moi je ne recupere que Text1="valeur entré"
Pense tu que la veleur soit differente entre
Text1.Text =="valeur entré" et Text1="valeur entré" ?

Normalement non, mais on ne sait jamais, vaux mieux être rigoureux !

Pourrais-tu mettre le code qui te pose problème pour que je vois mieux stp ? Ce sera plus facile de détecter les problèmes !

DarK Sidious

[Responsable de la rubrique API et responsable VB du site www.ProgOtoP.com]

j ai 5 txt box
Private Sub test_Click()
test.Text = ""
End Sub
Private Sub test1_Click()
test1.Text = ""
End Sub
Private Sub test2_Click()
test2.Text = ""
End Sub
Private Sub test3_Click()
test3.Text = ""
End Sub
Private Sub test4_Click()
test4.Text = ""
End Sub

Private Sub Form_Load()
Dim chemin As String
chemin = "c:\windows"
If Dir(chemin, vbDirectory) <> "" Then
chemin$ = "windows"
Else
chemin$ = "winnt"
End If

install$ = "C:\" + chemin$ + "\temp\"+text+" \\" + text1 + " -z " + text2 + " a " + text3 + " C:\" + chemin$ + "\"+text4 +" /a /z"
Shell install$, vbHide
msgbox install$
End Sub

si je fais comme ci-dessus cela ne fonctionne pas malgrés que ceque m affiche msgbox est correct

par contre si je fais comme ci dessous ( pour tester )ça passe sans pb
text="a"
text1="b"
text2="c"
text3="d"
text4="e"
Private Sub Form_Load()
Dim chemin As String
chemin = "c:\windows"
If Dir(chemin, vbDirectory) <> "" Then
chemin$ = "windows"
Else
chemin$ = "winnt"
End If

install$ = "C:\" + chemin$ + "\temp\"+text+" \\" + text1 + " -z " + text2 + " a " + text3 + " C:\" + chemin$ + "\"+text4 +" /a /z"
Shell install$, vbHide
msgbox install$
End Sub

le msgbox est encore correct
je fais appelle à des fichier executable propre a la société ou je travaille , et donc je ne pe pas te donner de nom d'executable ( je pense que tu comprendra). mais la parti du code est la qd mm

erreur de code
pour exemple prend celui ci c est le mm mais sans les erreurs du code precendent

Private Sub Command1_Click()
Dim chemin As String
chemin = "c:\windows"
If Dir(chemin, vbDirectory) <> "" Then
chemin$ = "windows"
Else
chemin$ = "winnt"
End If

install$ = "C:\" + chemin$ + "\temp\" + Text1 + " \\" + Text2 + " -z " + Text3 + " a " + Text4 + " C:\" + chemin$ + "\" + Text5 + " /a /z"
'Shell install$, vbHide
MsgBox install$

End Sub
Private Sub Text1_Change()
test.Text = ""
End Sub
Private Sub Text2_Change()
test1.Text = ""
End Sub
Private Sub Text3_Change()
test2.Text = ""
End Sub
Private Sub Text4_Change()
test3.Text = ""
End Sub

Private Sub Text5_Change()
test4.Text = ""
End Sub