extraction de données avec une macro pour impression multiple

D

doudou080

XLDnaute Nouveau

• 7 Juin 2017

• #2

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

Vote positif 0 Vote négatif

D

doudou080

XLDnaute Nouveau

• 7 Juin 2017

• #3

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 !!!

 

Vote positif 0 Vote négatif

Patrice33740

XLDnaute Impliqué

• 7 Juin 2017

• #4

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

 

Vote positif 0 Vote négatif

D

doudou080

XLDnaute Nouveau

• 7 Juin 2017

• #5

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

cordialement

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 8 Juin 2017

• #6

Bonjour doudou80, Patrice,

doudou080 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

D

doudou080

XLDnaute Nouveau

• 8 Juin 2017

• #7

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

 

Vote positif 0 Vote négatif

D

doudou080

XLDnaute Nouveau

• 8 Juin 2017

• #8

ci joint les données que je doit copier sur mon bon


cordialement

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 8 Juin 2017

• #9

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.

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 8 Juin 2017

• #10

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

@+

 

Vote positif 0 Vote négatif

D

doudou080

XLDnaute Nouveau

• 8 Juin 2017

• #11

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

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 8 Juin 2017

• #12

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

 

Vote positif 0 Vote négatif

D

doudou080

XLDnaute Nouveau

• 8 Juin 2017

• #13

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: 38

Vote positif 0 Vote négatif

D

doudou080

XLDnaute Nouveau

• 8 Juin 2017

• #14

je pense que je doit changer le format de date du fichier que j'importe avant de pouvoir faire tourner la macro

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 8 Juin 2017

• #15

Alors pas compris!

Est-ce que tu veux afficher les dates qui se trouvent en colonne A?
(dans ce cas il faut normaliser tes formats date pour toutes les lignes)
ou

Tu veux afficher la date du jour?

 

Vote positif 0 Vote négatif