Bonjour,
Après quelques recherche j'ai réussis à faire mon paramétrage ,. voici le code utiliser :
Private Sub CommandButton2_Click()
If Not IsDate(TextBox5) Then
MsgBox "Format Date Incorrect"
TextBox5 = ""
Exit Sub
Else
Sheets("Final").Visible = True
With Sheets("Final")
derlig = .Range("A" & .Rows.Count).End(xlUp).Row + 1
.Cells(derlig, 1) = Sheets("Bon de commande").Range("A3")
.Cells(derlig, 2) = Sheets("Bon de commande").Range("B3")
.Cells(derlig, 3) = .Cells(derlig - 1, 3) + 1
.Cells(derlig, 4) = Sheets("Bon de commande").Range("D3")
.Cells(derlig, 5) = Sheets("Bon de commande").Range("E3")
.Cells(derlig, 6) = Sheets("Bon de commande").Range("F3")
End With
End If
Sheets("Final").Visible = False
Rows("3:3").Select
Selection.Delete Shift:=xlUp
Unload UserForm1
Load UserForm1
UserForm1.Show
End Sub
en conclusion ma feuille final apparait , cela colle le résultat et elle disparait puis cela efface les donné remplis et relance du programme userform .
Après ma feuille est plus complexe mais au final j'ai réussi à supprimer un poids qui me pesais depuis quelques jour .
Il me reste plus qu'a faire une dernière fonction mais cela sera un autre sujet .
Je remercie beaucoup les personnes qui mon aider pour mon problème et j'espère aider aussi des personnes à mon tour pour des question technique sur mon fichier ou des fonction qui pourrais les intéresser .