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