Gestion de stock (Macro)

Bonjour aux pépites d'Excel,

Après maintes et maitnes recherches sur internet sans résultat, je me retourne vers vous pour un peu d'aide !

Voici mon fichier :

Je souhaiterais réaliser une macro (avec le bouton "Ajouter un article" dont la désignation, référence... s'insèrent automatiquement sur l'onglet stock, paris, marseille, lyon, bordeaux ... Et sur la même ligne ! (Tous les onglets sauf entrées et sorties)

Je ne sais pas si c'est assez claire !

Cordialement,

C.T

bonjour,

peut être un truc de ce style ?

code à placer dans l'userform8

Private Sub Valide_Click()

'Sheets("Stock").Select
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
    If ws.Name <> "Entrées" And ws.Name <> "Sorties" And ws.Name <> "Feuil1" Then

   ws.Range("A65536").End(xlUp).Offset(1, 0).Value = Me.TextBox7.Value
   ws.Range("A65536").End(xlUp).Offset(0, 1).Value = Me.TextBox4.Value
   ws.Range("A65536").End(xlUp).Offset(0, 2).Value = Me.TextBox8.Value
   ws.Range("A65536").End(xlUp).Offset(0, 3).Value = Me.TextBox9.Value
   End If
   Next ws

 End Sub

cdt

Merci beaucoup !

Par contre la ligne s'insère automatiquement dans les onglets sauf l'onglet principal "Stock".

Je ne sais pas pourquoi !

Dernière petite question à savoir comment coller automatiquement les formules et le format lors de l'ajout de ligne?

Cdt,

C.T

Tout est bon au final

Par contre je suis toujours intéressé par la macro pour coller automatiquement les formules et le format

Cdt,

C.T

bonjour,

largement inspiré de h2so4 !

je n'ai pas fait l'essai.

Dim ws As Worksheet
Dim a As Long
Dim b As Long

   Sheets("Stock").Range("A65536").End(xlUp).Offset(1, 0).Value = Me.TextBox7.Value
   Sheets("Stock").Range("A65536").End(xlUp).Offset(0, 1).Value = Me.TextBox4.Value
   Sheets("Stock").Range("A65536").End(xlUp).Offset(0, 2).Value = Me.TextBox8.Value
   Sheets("Stock").Range("A65536").End(xlUp).Offset(0, 3).Value = Me.TextBox9.Value

For Each ws In ActiveWorkbook.Worksheets
   If ws.Name <> "Stock" Then
a = Sheets("Stock").Range("A" & Rows.Count).End(xlUp).Row
b = ws.Range("A" & Rows.Count).End(xlUp).Row

Sheets("Stock").Range("A" & a & ":M" & a).Copy ws.Range("a" & b + 1)

 End If
   Next ws

End Sub