Valeur d'une textbox dans une cellule variable

Bonjour,
je débute en VBA.
J'ai créer un USF avec une textbox1 je voudrais que la valeur de cette textbox1 s'inscrive dans la cellule ligne 6 de la première colonne vide.

La valeur saisie dans cette textbox1 doit être identique a la valeur d'une cellule données.
Si la valeur est identique l'utilisateur doit saisir une seconde valeur dans une textbox2.
Si la valeur est différente la saisi s'arrête et la valeur de la textbox1 s'efface.
:cry:

Bonjour,

Voici une formule pour trouver la première colonne vide

Code:

---

1 2 3

col = Worksheets("Feuil1").Cells(1, Worksheets("Feuil1").Columns.Count).End(xlToLeft).Column + 1   ActiveSheet.Cells(6, col).Value = UserForm.TextBox1.Text

---

Ensuite tu peux stocker la valeur saisie dans la textbox dans une variable de type String

Code:

---

1 2	Dim valeur As String valeur = UserForm.TextBox1.Text

---

Et ensuite tu fais tes tests avec des Boucles If

Code:

---

1 2 3 4 5 6

If UserForm.TextBox1.Text = Sheets("Feuil1").range("B5") then UserForm.TextBox2.Visible = true Msgbox("Insérez une valeur dans la nouvelle textbox") Else UserForm.TextBox1.Text=" " End if

---

Citation:

---

J'ai créer un USF avec une textbox1 je voudrais que la valeur de cette textbox1 s'inscrive dans la cellule ligne 6 de la première colonne vide.

---

Code:

---

Sheets("lenomdetafeuille").cells(6,Sheets("lenomdetafeuille").cells(6,columns.count).end(xltoleft).column)+1) = textbox1

---

Code:

---

La valeur saisie dans cette textbox1 doit être identique a la valeur d'une cellule données.

---

Par exemple A1 ?

Code:

---

1 2 3 4 5 6

If textbox1 = Sheets("lenomdetafeuille").range("A1") then textbox2.visible = true msgbox("veuillez insérer une valeur dans la deuxième textbox") else textbox1="" end if

---

Citation:

---

Si la valeur est identique l'utilisateur doit saisir une seconde valeur dans une textbox2.
Si la valeur est différente la saisi s'arrête et la valeur de la textbox1 s'efface.

---

Bonjour à tou(te)s,

Comme j'avais préparé un code, je le propose également, à tout hasard, bien sur je ne conteste pas vos propositions

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim Dc As Range 'admettons que le TextBox doit corespondre à la cellule A1 If TextBox1 <> Range("A1") Then TextBox1 = "" Exit Sub Else With Sheets("nomdetafeuille") Set Dc = Cells(6, Cells.Columns.Count).End(xlToLeft) Dc(1, 2) = TextBox1 TextBox2.SetFocus End With End If   End Sub

---

Bonne journée

C'est quoi la prop setfocus? J'ai pas d'excel sur ce pc et les explications sur internet sont peu claires..

A mon avis c'est pour déplacer le curseur et activer la cellule ou l'objet!!

Citation:

---

C'est quoi la prop setfocus?

---

Tout simplement pour déplacer le curseur sur le textbox ou le controle à atteindre

Merci l'ami