XL 2019 Macro d'inclusion

SamLion91 · 24 Janvier 2023

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 · 24 Janvier 2023

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

VB:

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

Sur VALIDER, on fait :

Code:

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 · 24 Janvier 2023

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

XL 2019 Macro d'inclusion

SamLion91

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

SamLion91

XLDnaute Junior

Pièces jointes

Discussions similaires