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

Creer un Bon de livraison

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion miko91130
  • 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 !

S'inscrire
M

miko91130

XLDnaute Nouveau
bonjour a tous

je voudrais creer un bon de livraison avec ajout d'un N° de BL en automatique et aussi une formule pour creer un historique sur une deuxiéme feuille.

Merci de votre aide je vous mais un fichier Zip en pcs jointe, c'est un essai que j'ai creer.

Encore Merci
 

Pièces jointes

Trier par date Trier par votes
Re : Creer un Bon de livraison

J'ai un petit truc pour toi que j'ai adapter à tes besoins
voici le code que j'utilise
Code: 
Sub test()
Sheets("Feuil1").Range("L1").Value = Sheets("Feuil1").Range("A1").Value
With Sheets("Feuil2")
    .[B65536].End(xlUp).Offset(1, 0) = Sheets("Feuil1").Range("L1").Value
    .[C65536].End(xlUp).Offset(1, 0) = Sheets("Feuil1").Range("B8").Value
    .[D65536].End(xlUp).Offset(1, 0) = Sheets("Feuil1").Range("J30").Value
    .[E65536].End(xlUp).Offset(1, 0) = Sheets("Feuil1").Range("K5").Value
End With
Sheets("Feuil1").Range("B8").Value = ""
Sheets("Feuil1").Range("J30").Value = ""
Sheets("Feuil1").Range("K5").Value = ""
Sheets("Feuil1").Range("A1").Value = Sheets("Feuil1").Range("L1").Value + 1
End Sub

En esperant que cela t'aide
PS(le code est deja dans le dossier joint
A +++
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Creer un Bon de livraison

Re bonjour Puarai

Desoler de te deranger encore mais j'ai voulus modifier la taille du fichier et ta macro fonctionne plus peut tu anouveau m'aider?

Merci

PS Peut tu ajouter a la macro l'impression du BL en 2 Exemplaire.

Merci encore le format du BL est en pc jointe.🙂
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Creer un Bon de livraison

Bonjour a tous

J'ai reussi a modifier la macro et a ajouter des infos mais par contre je n'arrive pas a ajouter la fonction impression dans la macro.

Merci de votre aide

Voici ma macro:

Sub test()
Sheets("BL Vierge").Range("I1").Value = Sheets("BL Vierge").Range("T1").Value
With Sheets("Historique BL")
.[B65536].End(xlUp).Offset(1, 0) = Sheets("BL Vierge").Range("I1").Value
.[C65536].End(xlUp).Offset(1, 0) = Sheets("BL Vierge").Range("B8").Value
.[D65536].End(xlUp).Offset(1, 0) = Sheets("BL Vierge").Range("H26").Value
.[E65536].End(xlUp).Offset(1, 0) = Sheets("BL Vierge").Range("B10").Value
.[F65536].End(xlUp).Offset(1, 0) = Sheets("BL Vierge").Range("A13").Value
.[G65536].End(xlUp).Offset(1, 0) = Sheets("BL Vierge").Range("B13").Value
.[H65536].End(xlUp).Offset(1, 0) = Sheets("BL Vierge").Range("F13").Value
.[I65536].End(xlUp).Offset(1, 0) = Sheets("BL Vierge").Range("H5").Value

End With
Sheets("BL Vierge").Range("B8").Value = ""
Sheets("BL Vierge").Range("H26").Value = ""
Sheets("BL Vierge").Range("B9").Value = ""
Sheets("BL Vierge").Range("B10").Value = ""
Sheets("BL Vierge").Range("A13").Value = ""
Sheets("BL Vierge").Range("B13").Value = ""
Sheets("BL Vierge").Range("F13").Value = ""
Sheets("BL Vierge").Range("T1").Value = Sheets("BL Vierge").Range("I1").Value + 1
End Sub
 
Vote positif 0 Vote négatif
Re : Creer un Bon de livraison

Je te donne le code à mettre si tu as besoin un jour
Code: 
Sub avec_imprimer_2_copies()
Sheets("Bon de Livraison").Range("I1").Value = Sheets("Bon de Livraison").Range("N1").Value
Sheets("Bon de Livraison").Range("N1").Value = Sheets("Bon de Livraison").Range("I1").Value + 1
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=2, Collate _
        :=True
With Sheets("Bon de Livraison")
    Sheets("Historiques").[B65536].End(xlUp).Offset(1, 0) = .[I1].Value
    Sheets("Historiques").[C65536].End(xlUp).Offset(1, 0) = .[B8].Value
    .[B8].Value = ""
    Sheets("Historiques").[D65536].End(xlUp).Offset(1, 0) = .[H26].Value
    .[H26].Value = ""
    Sheets("Historiques").[E65536].End(xlUp).Offset(1, 0) = .[H5].Value
End With
End Sub
 
Vote positif 0 Vote négatif
Re : Creer un Bon de livraison

bonjour,
je ne sais pas de quoi parler (il faut mieux créer un nouveau post que de reprendre un ancien mais en faisant le lien si tu veux Pascal)
je ne sais pas trop dans excel et excel avancée
c'est pour cela j'ai poser mon fichier sur vos site
et merci d'avance
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

A
  • Question Question
XL 2016 je veux creer un fichier de classement de course à pieds
Réponses
2
Affichages
159
Deleted member 453598
D
B
  • Question Question
Microsoft 365 Comptabilisation de commandes
Réponses
6
Affichages
106
sylvanu
C
  • Question Question
Microsoft 365 calcul de période
Réponses
4
Affichages
144
casimir
C
M
  • Question Question
XL 2021 Base recettes de cuisine
Réponses
11
Affichages
504
cathodique
L
  • Question Question
Autres Graphe évolutif (ligne par ligne)
Réponses
12
Affichages
295
sylvanu
C
  • Question Question
Microsoft 365 comment alimenter ma vba
Réponses
5
Affichages
233
C'est Génial
C
S
  • Résolu(e)
Microsoft 365 Copier automatiquement sur une ligne sur une autre feuille si la date est supérieur à une date définie
2
Réponses
17
Affichages
1 K
S.J
S
J
  • Question Question
XL 2021 Créer liens hypertexte automatiquement
2
Réponses
21
Affichages
973
JMC
J
P
  • Résolu(e)
XL 2010 recherche de donnée
Réponses
6
Affichages
442
PHV62
P
V
  • Question Question
XL 2019 Fonction si
Réponses
7
Affichages
427
vipi61
V
P
  • Résolu(e)
Microsoft 365 creer un dossier et sauvergarder un fichier PDF avec le meme nom
Réponses
5
Affichages
773
Lolote83
L
S
  • Question Question
Microsoft 365 Tableaux Structurées : récupérer des données uniques pour consolider un bilan
Réponses
4
Affichages
369
vgendron
N
  • Question Question
XL 2016 Code VBA pour envoi de mail avec pdf en piece jointe
Réponses
4
Affichages
767
Phil69970
P
  • Résolu(e)
XL 2013 creation d'une arborescence
2 3
Réponses
30
Affichages
1 K
psgm76
P
A
  • Question Question
Microsoft 365 Vérifier si un texte existe dans une cellule contenant une liste
Réponses
9
Affichages
464
arzac
A
B
  • Question Question
Microsoft 365 Protection de zone de cellule selon utilisateur sur un fichier Excel
Réponses
2
Affichages
299
berta8683
B
J
  • Question Question
XL 2016 Bon de commande depuis un liste.
Réponses
14
Affichages
520
Dranreb
X
  • Résolu(e)
Microsoft 365 Formule avec conditions
2
Réponses
20
Affichages
1 K
piegal
  • Question Question
XL pour MAC Besoin d'aide pour calculer automatiquement un jour de livraison dans Excel
Réponses
10
Affichages
1 K
ArnaudSi
  • Question Question
XL 2013 Aléa et comptage
Réponses
3
Affichages
158
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…