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

Liste bon avec vba

  • Initiateur de la discussion Initiateur de la discussion bennisay
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

bennisay

XLDnaute Occasionnel
BONJOUR
Ce que je veux , c est on remplissant le bon livraison , je reçois automatiquement tous les information dans le tableau comme presnté dans la feuille LISTE BON . Et ca pour tous les bons a saisir apres .vous allez trouvez ci joint un fichier bien expliqué
 

Pièces jointes

Re : Liste bon avec vba

Bonjour à tous

Hasco
Quoi! Que m'apprends-tu là !!
Moi aussi j'aurai mis les mains dans VBE, juste pour l'amour du geste 😉
Heureusement que j'aime bien mes mains 😉
Salut à toi au passage 😉
NB: sur XLD, on ne travaille pas (ou alors on m'aurait menti), on est bénévole 😉
Pour autant, c'est pas une raison pour ....
Code:
Sub ab()
Dim derArt&, rngV As Range, X&, i, col, Dlg&, f As Worksheet
Set f = Sheets("Bon Liv")
derArt = f.Cells(Rows.Count, "C").End(xlUp).Row
col = Array("D", "H", "E", "F", "G", "I")
Set rngV = f.Range(Cells(7, "C"), f.Cells(derArt, "H")): X = rngV.Rows.Count
With Sheets("LISTE BON")
    Dlg = .Cells(Rows.Count, "A").End(xlUp).Row + 1
    For i = 1 To 6
    .Cells(Dlg, col(i - 1)).Resize(X).Value = rngV.Item(i).Resize(derArt - 6).Value
    Next i
.Cells(Dlg, 1).Resize(X) = f.[C4]: .Cells(Dlg, 2).Resize(X) = f.[F4]: .Cells(Dlg, 3).Resize(X) = f.[H4]
End With
End Sub
 
Dernière édition:
Re : Liste bon avec vba

BONJOUR HASCO
Non je suis desole au contraire tu n as pas travailler pour rien la demande que j ai pose tu l as bien fait mais c etait pour imprimer un bon livraison une fois j aurai un client qui demande sur place son bon liv comment j aurai pu le faire avec ma liste de saisie si tu te souviens
Merci hasco une autre fois ce que tu as fait est tres preceiux pour moi et tu as realise un travail irreprochable
mais cette demande maintenant consiste a remplir ma liste avec cette methode
 
Re : Liste bon avec vba

Re

bennisay
Je pue de la g***le peut-être ?
(Je te demande pas de me claquer la bise, mais me saluer serait la moindre des choses, non ?)
Au fait, tu as essayé ma proposition ?
(voir message précédent)
 
Re : Liste bon avec vba

Re,

Ok, peut-être aurions nous du commencer par là: constitution de la base de données et ensuite les formulaires.
As-tu vu la proposition de mon ami Staple🙂 deux posts (...arf) plus haut?

A+
 
Re : Liste bon avec vba

REBONJOUR
Staple 1600
desole j ai encore ouvert le code
j ai juste repondu hasco car j avais l impression qu on m accuse de jouer avec ces questions
par contre merci bien pour ta reponse sur place j en suis tres reconnaissant
 
Re : Liste bon avec vba

Re

j ai juste repondu hasco car j avais l impression qu on m accuse de jouer avec ces questions
On accuse personne 😉
On exprime des opinions personnelles et accessoirement on aide des frères et sœurs de Cellule XL (ou vice et versa)
(La routine quoi sur un forum public d'entraide dédié à Excel)
 
Re : Liste bon avec vba

Re

bennisay
Je sais toujours pas si tu as essayé le code VBA que je t'ai proposé dans le message #3

Au cas ou: voici un bref mode opératoire
Dans Excel faire ALF+F11 puis Insertion/Module -> Y copier/coller le code VBA en question
Ensuite lancer la macro
(Voir ici pour de plus de détails)
 
Re : Liste bon avec vba

RE
j ai copie le code mais ca marche pas
j ai copie le code et j ai ouvert l onglet developpeur double clic sur fichier (feuille 1) bon liv
j ai coller le code j ai nome la macro
ensuit j ai ouvert excel j ai trouve la macro j ai tape dessus mais rien ne se passe
il y a quelque chose que j ai du loupe peut etre
 
Re : Liste bon avec vba

Re

Si cela fonctionne.
1) Ouvres ton fichier LISTE BON.xlsx
2) ALT+F11 -> Insertion/Module
Dans la partie droite (et blanche de l'écran) tu copies le code VBA
3) ALT+Q pour revenir dans Excel
4) Tu enregistres ton fichier en *.xlsm
5) Tu te positionnes sur la feuille Bon Liv et là tu lances la macro.

Voir ci-dessous que cela fonctionne bel et bien
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 agrandir la liste
Réponses
21
Affichages
361
Réponses
5
Affichages
248
Réponses
0
Affichages
167
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…