Discussion :

[katle77]

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.

[titou31000]

Bonjour,

Voici une formule pour trouver la première colonne vide

Code :

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

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 :

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

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

Et ensuite tu fais tes tests avec des Boucles If

Code :

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

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

[EngueEngue]

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 :

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

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

Code :

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

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

Par exemple A1 ?

Code :

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

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

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.

[casefayere]

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 :

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

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

[EngueEngue]

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

[titou31000]

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

[casefayere]

C'est quoi la prop setfocus?

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