userform, comment ajouté 2 textbox

[Yves Vaillant]

Bonjour je voudrait savoir si quelqu un pourrait m aidé a me dire comment ajouté deux box a mpn pop et que le curseur aille dedans comme les autre voici mon programme et le deux que je veux ajouté sont date et numéro d employé..Merci


Option Explicit


'Macro pour entrée de donnée Yves Vaillant , prix de revient

Private Sub Userform1_Initialize()
Me.Caption = X
TextBox1.SetFocus 'Donne le focus à Cbo1 à l'initialisation

End Sub
Sub Heures()
Heure = TextBox5
Labonneheure = Replace(Heure, ".", ":")
Range("D1😀5000") = Labonneheure

End Sub

Private Sub CommandButton1_Click()
Dim X As Integer
Dim i As Integer
Dim Nom As String
Dim Labonneheure As String
Dim Msg As Byte

Nom = TextBox1.Value 'PIECE
If Nom = "" Then Exit Sub
Msg = MsgBox(Nom, vbYesNo)
If Msg = 6 Then
X = Sheets("ENTRÉE").Range("A65536").End(xlUp).Row + 1
Sheets("ENTRÉE").Range("A" & X).Value = Nom
For i = Range("A65536").End(xlUp).Row - 1 To 2 Step 1
Next



Nom = TextBox2.Value ' INDIRECT
X = Sheets("ENTRÉE").Range("C65536").End(xlUp).Row + 1
Sheets("ENTRÉE").Range("C" & X).Value = Nom

Nom = TextBox3.Value ' EQUIPEMENT
X = Sheets("ENTRÉE").Range("b65536").End(xlUp).Row + 1
Sheets("ENTRÉE").Range("b" & X).Value = Nom

Nom = TextBox4.Value ' QUATITÉ
X = Sheets("ENTRÉE").Range("F65536").End(xlUp).Row + 1
Sheets("ENTRÉE").Range("F" & X).Value = Nom


Nom = TextBox5.Value ' DE
X = Sheets("ENTRÉE").Range("D65536").End(xlUp).Row + 1
Labonneheure = Replace(Nom, ".", ":")
Sheets("ENTRÉE").Range("D" & X).Value = Labonneheure


Nom = TextBox6.Value ' A
X = Sheets("ENTRÉE").Range("E65536").End(xlUp).Row + 1
Labonneheure = Replace(Nom, ".", ":")
Sheets("ENTRÉE").Range("E" & X).Value = Labonneheure
End If

TextBox1.Value = "" ' POUR VIDÉ LES CASES DU POP
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox1.SetFocus 'le curseur revient en haut
End Sub

Private Sub Image1_Click()

End Sub

Private Sub TextBox5_Change()

End Sub

Private Sub UserForm_Click()

End Sub
Private Sub CommandButton2_Click() ' POUR QUITTER LE POP
Unload Me
End Sub

 

[Zon]

Salut,

Il te suffit de rajouter 2 textbox sur ton userform; non ? théoriquement ils devraient s'appeler textbox7 et 8.

A+++

 

[Yves Vaillant]

Bonjour..

J'ai essayer de faire comment ca et le curseur ne va pas dans les nouvelles cases ???


Merci...