Bravo au Furum, ca marche

[Ricardo]

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

 

[Pascal76]

Bonjour

content que tu es trouvé ton bonheur.

Tu peux peut-être simplifier ton code ainsi (j'imagine que toutes tes données vont sur la même ligne)

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 = TextBox1.Value 'PIECE

Sheets("ENTRÉE").Range("C" & X).Value = TextBox2.Value ' INDIRECT

Sheets("ENTRÉE").Range("b" & X).Value = TextBox3.Value ' EQUIPEMENT

Sheets("ENTRÉE").Range("F" & X).Value = TextBox4.Value ' QUATITÉ

Sheets("ENTRÉE").Range("D" & X).Value = TextBox5.Value ' DE

Sheets("ENTRÉE").Range("E" & X).Value = TextBox6.Value ' a
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


Bon courage

Pascal

 

[Eric C]

Bonjour le forum
Bonjour Ricardo, bonjour Pascal

Pour ton soucis de saisie d'heure :

Private Sub TextBox1_Change()
Dim Val As Byte
TextBox1.MaxLength = 5
Val = Len(TextBox1)
If Val = 2 Then TextBox1 = TextBox1 & ":"
End Sub

@ ++ Eric C