extraction de données avec une macro pour impression multiple

doudou080

XLDnaute Nouveau
Bonjour a tous

je cherche le moyen de récolter des données d'une feuille pour les faire apparaître dans un masque avec un n° de chrono qui change a chaque fois.
une ligne par bon a la date du jour ou on ouvre le fichier.
pouvoir imprimer tous les bon les un apres les autres en double exemplaire si posible

je ne sais pas si je suis claire dans mes explications
 

Pièces jointes

  • recept. palette + numerot facture 1.xls
    73.5 KB · Affichages: 40

doudou080

XLDnaute Nouveau
bonjour a tous
j'arrive a extraire la première ligne.
il reste a mettre un chrono en G1
faire la meme chose pour les autres lignes + n° chrono
puis editer tous les bon un par un.
ci joint un fichier
 

Pièces jointes

  • recept. palette + numerot facture 1.xls
    86 KB · Affichages: 73

doudou080

XLDnaute Nouveau
je re formule ma demande

ce que je voudrais

copier mes données souhaitées dans un masque.
chaque ligne = un masque
incrémenter un n°de chrono pour chaque masque
imprimer 2 exemplaires par masque avec le même n° de chrono.
et pour finir lancer l'impression de tout les masques

c'est pas simple !!!
 

Patrice33740

XLDnaute Impliqué
Bonjour,

Poster sur plusieurs forums, sans en informer personne, est un manque de respect envers tous les bénévoles qui te consacrent de leur temps pour résoudre ton problème !
N'étant pas au courant, ils perdent leur temps sans connaître les réponses, souvent très interressantes, des autres forums.
Pendant ce temps là, ils pourraient répondre à d'autres personnes qui eux aussi ont besoin d'aide.

http://www.commentcamarche.net/foru...-donnees-pour-remplir-un-formulaire#newanswer
http://codes-sources.commentcamarche.net/forum/affich-10077031-extraction-de-donnees
https://forum.excel-pratique.com/excel/extraction-de-donnees-t94350.html

Patrice
 

cp4

XLDnaute Accro
Bonjour doudou80, Patrice,:(
bonsoir
je ne veux en aucun cas manquer de respect a qui que ce soi.
je suis juste dans la merde et je cherche une solution a mon probleme.
plusieurs solutions peuvent etre utile

Initialement, sur ton fichier les dates n'étaient pas des dates au sens propre du mot.
Ensuite, tu n'expliques pas vraiment ton problème, à la limites tu aurais pu mettre sur une feuille le résultat escompté. L'effort, toi tu ne me fais pas résoudre ton problème. Tu voudrais qu'on fasse cet effort à ta place.

Et comme le dit Patrice, tu ouvres la même discussion sur plusieurs Forums. Tiens, il te manques Developpez.com.

Je te dis franchement, j'ai ouvert ton fichier. Mais j'ai constaté que tu ne t'étais pas cassé la tête. Je ne vais pas le faire à ta place.

Fais au moins l'effort de nous expliquer qu'est-ce qui va dans quoi?

J'espère que tu résoudras ton problème. Généralement, quand il n'y a pas foule dans une discussion c'est que le sujet est tordu.

Cordialement,

Cp4
 

doudou080

XLDnaute Nouveau
bonjour
tout d'abord merci de me répondre.
le problème pour aller plus loin c'est que je suis une quiche,J'arrive a enregistrer une macro simple mais je ne connais pas du tout le langage .mes compétences s’arrête au seul fichier que j'ai mis en pièce jointe.
cordialement
 

doudou080

XLDnaute Nouveau
ci joint les données que je doit copier sur mon bon
upload_2017-6-8_9-59-14.png

upload_2017-6-8_9-59-14.png

cordialement
 

cp4

XLDnaute Accro
Re,
Loin de moi l'idée de te diminuer ou de te saper le moral.
Je ne suis pas meilleur que toi, j'ai juste eu la chance d'avoir reçu quelques notions de VBA.
Il ne faut lâcher le morceau et montre-nous ce que tu veux obtenir.
J'espère pouvoir t'aider avec mes maigres connaissances.
 

cp4

XLDnaute Accro
Petite précision.
Si je comprends bien, tu veux seulement récupérer l'entête pour chaque ligne de la feuille 'plan chargement'.
c-à-d que ton compteur au final sera le n° de la dernière ligne de la feuille.

Pourquoi as-tu des lignes cachées et pourquoi pour celles-ci la date n'est pas au bon format?
edit:ta macro allégée
VB:
Sub Macro2()
' Touche de raccourci du clavier: Ctrl+a
        Sheets("plan chargement").Range("A5").Copy Sheets("gestion des supports").Range("F4:G4")
    Sheets("plan chargement").Range("L5").Copy Sheets("gestion des supports").Range("F7:G7")
    Sheets("plan chargement").Range("I5").Copy Sheets("gestion des supports").Range("D20")
    Sheets("plan chargement").Range("J5").Copy Sheets("gestion des supports").Range("E20:F20")
End Sub
@+
 

doudou080

XLDnaute Nouveau
pour le premier bon j'ai besoin de récupérer sur le plan de chargement :a la date du jour (aujourd'hui)A2/L2/i2/J2
avec un n° de chrono en :G1
le compteur doit incrémenter un chrono pour le premier bon = 1 ( pour le deuxième bon = 2 )
pour le format je galère aussi le fichier plan de chargement provient d'une extraction faite d'un autre système que je reçois par mail avec une extension .gsv
merci a toi
 

cp4

XLDnaute Accro
Pas tout compris, mais voici une proposition à tester avec touche F8.
VB:
Sub Macro2()
' Touche de raccourci du clavier: Ctrl+a
    Dim DerLig As Long, i As Long
    DerLig = Range("A" & Rows.Count).End(xlUp).Row

    With Sheets("gestion des supports")
        For i = 2 To DerLig
            .Range("G1") = i - 1
            .Range("F4:G4") = Sheets("plan chargement").Range("A" & i)
            .Range("F7:G7") = Sheets("plan chargement").Range("L" & i)
            .Range("D20") = Sheets("plan chargement").Range("I" & i)
            .Range("E20:F20") = Sheets("plan chargement").Range("J" & i)
        Next i
    End With
End Sub
 

doudou080

XLDnaute Nouveau
pas mal du tout le chrono
j'ai intègre ton module a mon fichier Ctrl+e
il tourne pas pour la date du jour 08/06 #############
et en D20 il ne garde pas la bonne hauteur de police = 16
cordialement
 

Pièces jointes

  • recept. palette + numerot facture 1 - Copie.xls
    96.5 KB · Affichages: 35

Discussions similaires

Statistiques des forums

Discussions
300 872
Messages
1 987 938
Membres
210 022
dernier inscrit
lu_di