Bonjour , ok avec ce programme j'entre dans un userform c'est a dire un carré avec des case , un pop pop et la j'en avait 6 et je veut en rajouté 2 autres puis j'ai rajouté deux autres et puis cela ne fonctionne pas car le curseur ne va que dans les six déja exitante et les autre sont la visuelle mais cé tout..pour le programme j'ai essayer de le réduire au plus simple expression et le max obtenue cé 74 k zipper. alor...
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