R
Ricardo
Guest
regardez ca cé super j'ai réussi il me manque seulement a trouver comment entrer les heures sans avoir a faire les deux point..
Yessssss..cool
Merci ah tous car j'ai prit des petit parti ici et la
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
Private Sub CommandButton1_Click()
Dim X As Integer
Dim i As Integer
Dim Nom 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
Sheets("ENTRÉE").Range("D" & X).Value = Nom
Nom = TextBox6.Value ' a
X = Sheets("ENTRÉE").Range("E65536").End(xlUp).Row + 1
Sheets("ENTRÉE").Range("E" & X).Value = Nom
End If
TextBox1.Value = "" ' POUR VIDÉ LA CASE DU POP
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox1.SetFocus 'le curseur revient en haut
End Sub
Private Sub Label7_Click()
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Yessssss..cool
Merci ah tous car j'ai prit des petit parti ici et la
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
Private Sub CommandButton1_Click()
Dim X As Integer
Dim i As Integer
Dim Nom 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
Sheets("ENTRÉE").Range("D" & X).Value = Nom
Nom = TextBox6.Value ' a
X = Sheets("ENTRÉE").Range("E65536").End(xlUp).Row + 1
Sheets("ENTRÉE").Range("E" & X).Value = Nom
End If
TextBox1.Value = "" ' POUR VIDÉ LA CASE DU POP
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox1.SetFocus 'le curseur revient en haut
End Sub
Private Sub Label7_Click()
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub UserForm_Click()
End Sub