Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Macro d'inclusion

SamLion91

XLDnaute Junior
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
 

Pièces jointes

  • Copie de Stock magasin 2023.xlsm
    709.9 KB · Affichages: 5

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 

Pièces jointes

  • Copie de Stock magasin 2023 V2.xlsm
    305.2 KB · Affichages: 3
Dernière édition:

SamLion91

XLDnaute Junior
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
 

Pièces jointes

  • STOCK SLEEVES V2.xlsm
    266.8 KB · Affichages: 1
Dernière édition:
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…