Variable qui s'affiche pasRésolu

Question

bonjour

Sa me soule je f&#233; un truc tout con qui fait a peu pres sa 

Option Explicit

Dim x As Long



Private Sub Command1_Click()

MsgBox x

End Sub



Private Sub Form_Load()

Text1.Text = x

End Sub



m&#233; dans la msgbox sa affiche pas le nombre rentr&#233; par l'utilisateur. C'est lourd pakeu c'est tout con mais je trouve pas

violent_ken · Accepted Answer

Violent Ken

Salut

Option Explicit
Dim x As String

Private Sub Command1_Click()
x=Text1.Text
MsgBox x
End Sub

@+

(n'h&#233;site pas &#224; mettre 'r&#233;ponse accept&#233;e')

cs_Willi · Answer

Ne serait-ce pas mieux ?

Private Sub Command1_Click()
   x =Text1.Text
   MsgBox x
End Sub


 Si la r&#233;ponse te conviens merci de l'accepter

cs_darkwhite · Answer

Et non sa me dit "type incompatible"

cs_Willi · Answer

Private Sub Command1_Click()
   x =clng(Text1.Text)
   MsgBox x
End Sub


 Si la r&#233;ponse te conviens merci de l'accepter

cs_darkwhite · Answer

toujours type incompatible

cs_Willi · Answer

c'est sur que si dans ta textbox tu as un string sa peux pas le faire
prend l'exemple de violent ken

daetips · Answer

met dim x as string a la place

Daetips

cs_Willi · Answer

tu as quelque chose dans ta textbox ou elle est vide ?

cs_Willi · Answer

chez moi sa marche

Dim x As String


Private Sub Form_Load()


    x = Text1.Text
    MsgBox x
    
End Sub


 Si la r&#233;ponse te conviens merci de l'accepter

violent_ken · Answer

Violent Ken

Bien sur que &#231;&#224; marche !
Suffisait de d&#233;clarer x en String

'''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Dim x As String

Private Sub Command1_Click()
x=Text1.Text
MsgBox x
End Sub
'''''''''''''''''''''''''''''''''''''''''

C&#224; sert plus &#224; rien maintenant de r&#233;pondre sur ce topic ! 
Il suffit d'attendre que la personne qui a pos&#233; la question lise les r&#233;ponses....

@+

cs_darkwhite · Answer

Ok merci beaucou (i fallait declarer string ) m&#233; alors pk on peut pas declarer en integer , en long sur une textbox?

violent_ken · Answer

Violent Ken

Bah simplement parce que si ta textbox contient du texte (avec ou sans nombres), il faut d&#233;clarer le type String (type de variable des cha&#238;nes de caract&#232;re).

Par contre, si ta texbox ne contient QUE des  nombres (par de caract&#232;res de texte), tu peux d&#233;clarer en type Long, ou Integer.

De m&#234;me, tu peux d&#233;clarer x en Boolean, et si tu mets un nombre (diff&#233;rent de 0) ou la string "true" ou la string "vrai", &#231;&#224; t'affichera une msgbox avec "vrai". Et si dans ta textbox tu mets 0 ou "false" ou "faux", &#231;&#224; te mettra "faux". Et si tu mets une string, &#231;&#224; te dira "type incompatible"

exemple avec boolean : (marche)

Option Explicit
Dim  x As Boolean


Private Sub Command1_Click()
Text1.Text = "vrai"
x = Text1.Text
MsgBox x
End Sub

exemple avec long : (marche)

tion Explicit
Dim x As Long


Private Sub Command1_Click()
Text1.Text = 1
x= Text1.Text
MsgBox x
End Sub

Exemple avec Boolean : (affiche un message d'erreur)

Option Explicit
Dim x As Boolean


Private Sub Command1_Click()
Text1.Text ="ne marchera pas"
x = Text1.Text
MsgBox x
End Sub

exemple avec Long (affiche un message d'erreur) :

Option Explicit
Dim x As Long


Private Sub Command1_Click()
Text1.Text = "ne marchera pas"
x = Text1.Text
MsgBox x
End Sub

Salut, @+

cs_darkwhite · Answer

OK merci beaucou pour vos aides. Vive vb-france!

Variable qui s'affiche pas

13 réponses

Discussions similaires