Discussion :

[Vincent32]

Bonjour,

Je ne comprends pas trop pourquoi il ne rentre pas dans la boucle suivante car dans ce cas la Contact=contact2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
    Dim Contact As String, Contact2 As String, Bool As Boolean 'déclaration variables
 
    Contact = "Name : " & Chr(10) & "Mail : " & Chr(10) & "Phone : " & Chr(10) & "Address : " & Chr(10) & Chr(10) 'valeur par défaut
    UserForm1.Txb_Contact = Contact 'attribution à la textbox Txb_Contact de l'userform 1
    Contact2 = UserForm1.Txb_Contact 'stockage de la valeur de la textbox Txb_Contact de l'userform 1 dans la variable contact2
 
'logiquement et normalement Contact = UserForm1.Txb_Contact = Contact2 or il ne rentre pas dans la boucle suivante : Contact<>Contact2 ! POURQUOI !:roll:
 
    If Contact2 = Contact Then 'teste si le contenu de la texte box est égal à la valeur par défaut
        Bool = True 'met le booléen à Vrai
    End If
End Sub

Merci de votre aide et de vos explications

[Invité]

Bonjour,
analyses ça dans la fenêtre de degugage, raccourci clavier [CTRL] + [G]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim Contact As String, Contact2 As String Contact = "Name : " & Chr(10) & "Mail : " & Chr(10) & "Phone : " & Chr(10) & "Address : " & Chr(10) & Chr(10) 'valeur par défaut
 Me.TextBox1 = Contact
 Contact2 = Me.TextBox1
    For i = 1 To Len(Contact)
        Debug.Print "Char: " & i, Mid(Contact, i, 1), Asc(Mid(Contact, i, 1))
    Next
     Debug.Print "Fin  Contact"
   For i = 1 To Len(Contact2)
        Debug.Print "Char: " & i, Mid(Contact2, i, 1), Asc(Mid(Contact2, i, 1))
    Next
     Debug.Print "Fin  Contact2"

[unparia]

Bonjour
1) Remplace tes chr(10) par vbcrlf
et
2) spécifie expressément les propriétés utilisées
UserForm1.Txb_Contact.text
et tout ira pour le mieux dans le meilleur des mondes.

[Vincent32]

Merci à vous deux :

L'exercice proposé par dysorthographie m'a permis d'arriver à la conclusion de unparia ! Merci énormément