Problème de déclaration de variables

Bonjour

j'ai tapé le code suivant, les cases que je désire remplir sont les bonnes sauf que la valeur qui est mise à l'intérieur est "FAUX" alors que je voudrais qu'il soit inscrit le contenu de ma textbox1

Dim x As Integer

Dim y as Integer

Dim entreprisexiste As string

Sheets("Données").Select

entreprisexiste = 0

x = 2

While Not Cells(x, 5).Value = 0

If TextBox5.Value = Cells(x, 5).Value Then entreprisexiste = 1

x = x + 1

Wend

y = 7

While Not Cells(2, y).Value = TextBox5.Value

y = y + 1

Wend

x = 2

While Not Cells(x, y).Value = 0

x = x + 1

Wend

Cells(x, y).Value = TextBox1.Value = entreprisexiste

Sheets("Garde").Select

End Sub

Trouvez vous des erreurs?

Merci d'avance!

Bonjour Antho,

Soit tu mets:

Cells(x, y).Value = TextBox1.Value

Soit

Cells(x, y).Value = entreprisexiste 

Ou

If entreprisexiste Then Cells(x, y).Value = TextBox1.Value

B=A est soit vrai soit faux

si tu fais

X=B=A

X contiendra le résultat de l'égalité B=A

Donc True ou False (Vrai ou Faux)

A+