XL 2019 Macro d'inclusion

[SamLion91]

Bonjour à tous

Voici mon pb

J'aimerai créer une macro que j'appelerai "Rajout d'une commande en stock" qui lorsque je clique dessus, apparaisse un message qui me demande
- L'AR de la commande
- Le CP de la commande
- Le type (Bobines/Cartons/Echeveaux)(sur ça j'aimerai pouvoir cocher la réponse voulu)
- L'emplacement (pareil faire un choix entre Visite ou Magasin)
- Le nombre mise en stock
- Le nombre de sleeves par unité
- La signature

Une fois tous cela renseigné, j'aimerai que toutes ses infos apparaissent dans l'avant dernière ligne du tableau "Stock Sleeves" sachant qu'il y a des formules dans les cellules C/D/E/K qui doivent toujours être là (ses formules permettent de trouver les informations nécessaires) et que la date se mette à la date du jour.

Je vous joint le fichier excel

Si vous pouvez m'aider je vous en remercie d'avance

Samuel

 

[sylvanu]

Bonsoir SamLio,
Un essai en PJ.
L'userform se lance avec :

Sub Commande()
    With userform2
        .TYP.List = Array("Bobines", "Cartons", "Echeveaux")
        .EMP.List = Array("Visite", "Magasin")
        .Show
    End With
End Sub

Sur VALIDER, on fait :

Private Sub CommandButton1_Click()
    With Sheets("STOCK SLEEVES")
        Application.ScreenUpdating = False
        L = 1 + .Range("A65500").End(xlUp).Row
        .Cells(L, "A") = userform2.AR
        .Cells(L, "B") = userform2.CP
        .Cells(L, "F") = userform2.EMP
        .Cells(L, "H") = userform2.TYP
        .Cells(L, "J") = userform2.NBR
        .Cells(L, "Q") = userform2.SIG
        '.Cells(L, "A") = userform2.SLE ' Nombre de sleeves par unité, où le mettre
        Unload userform2
    End With
End Sub

A voous de mettre Nombre de sleeves par unité, je ne sais pas où il va. 🙂
A vous de peaufiner.

 

[SamLion91]

Sylvanu

Merci pour ce useform

* Quand je saisi les infos (exemple NB/Sleeves par unité) tout va bien , merci pour cela
* J'ai modifié les infos manquantes (le NB en colonne I et la quantité par unité en colonne J)

mais quand je valide
La ligne apparait bien, mais:
* Les formules des cellules C/D/E/K n'apparaissent pas (ça me laisse des cases vides)
* La ligne qui apparait ne se trouve pas au-dessus de la dernière ligne vierge (où il y a des formules dans certaines colonnes)

Petite quid supplémentaire
* Est-il possible dans ce userform que les colonnes C/D/E/K apparaissent automatiquement comme dans le tableur? (c'est juste une option)

* Comment je fais pour que tout cela marche sur le réel fichier?
Peux tu m'aider?

Je remet le fichier