extraction de données avec une macro pour impression multiple

[doudou080]

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

 

[doudou080]

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

 

[doudou080]

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]

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

 

[doudou080]

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

 

[cp4]

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]

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]

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

cordialement

 

[cp4]

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]

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

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]

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]

Pas tout compris, mais voici une proposition à tester avec touche F8.

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]

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

 

[doudou080]

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

 

[cp4]

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?