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]

un tri sur toutes les ligne a la date du jour

 

[cp4]

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") = Now '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)
          '  .PrintOut copies:=2
        Next i
    End With
End Sub

à toi de voir si ça te conviens, si tu veux imprimer, tu retires l'apostrophe.

 

[doudou080]

il faut chercher dans le plan de chargement toute les lignes a la date du jour.
le but est d’éditer chaque ligne du plan de chargement a la date du jour sur un nouveau bon.
avec le chrono qui bouge pour chaque bon

 

[cp4]

Bon là je te dis franchement que je n'ai rien compris à tes attentes.

Il me semble que le dernier code (si on utilise maintenant le code) il affichera 08/06/2017, récupère les données de chaque ligne et imprime 2 copies. C'est ce que tu voulais, non?!

 

[doudou080]

je sais c'est pas évident de se mettre a la place des autres.

récupère les données de chaque ligne et imprime 2 copies
oui c'est ca
mais il faut qu'il tri juste les lignes du jour.

 

[cp4]

Non. Je n'ai rien compris.
Un coup tu dis: mettre la date du jour. or la date du jour, ç-à-d aujourd'hui on est le 08/06/2017.
et maintenant, tu nous dis: il faut trier les lignes du jour. Quel jour?
Mon ami, tu n'arrives pas à exposer tes attentes clairement.

Désolé, je ne sais ce que tu veux.

bon courage.

 

[doudou080]

tanpis
merci quand meme
cordialement

 

[doudou080]

re
si tu a un peu de temps a m'accordé .
je me suis bougé les fesses et voici ce que j'arrive a faire
ma macro tourne en faisant Ctrl+a
avec un N°chrono
j'arrive a créer le premier bon avec les données demandées de la premiere ligne.

 

[doudou080]

il me faut maintenant faire tourné ma macro pour créer le deuxième bon avec les données de la deuxième ligne du plan de chargement,et ainsi de suite pour les autres lignes et lancer l'impression de tous les bons.
je c'est pas si c'est possible par contre.
cordialement

 

[Patrice33740]

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

Ça y est !
Il a comblé cette lacune :

 

[doudou080]

non je me suis démerdé tout seul.
par contre maintenant j'aurais besoin d'un coup de main svp
si c'est possible.
il me faut maintenant faire tourné ma macro pour créer le deuxième bon avec les données de la deuxième ligne du plan de chargement,et ainsi de suite pour les autres lignes et lancer l'impression de tous les bons.
je c'est pas si c'est possible par contre.
cordialement

 

[cp4]

non je me suis démerdé tout seul.

Montre-nous ce que tu as fait tout seul et surtout explique bien tes attentes.

@+

 

[doudou080]

bonsoir
en faisant ctrl+a
ma macro récupère mes données sur le plan de chargement.
elle incrémente un N° de chrono.
elle imprime un bon.
voila mes compétence s’arrêtent ici.
par contre maintenant j'aurais besoin d'un coup de main svp
si c'est possible.
il me faut maintenant faire tourné ma macro pour créer le deuxième bon avec les données de la deuxième ligne du plan de chargement,et ainsi de suite pour les autres lignes et lancer l'impression de tous les bons.
je c'est pas si c'est possible par contre.

 

[cp4]

Bon, la macro du post#17 faisait bien le boulot, il me semble. C'est tes formats date qui déconnaient.

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)
            .PrintOut copies:=2 'impression 2 copies
        Next i
    End With
End Sub

 

[cp4]

Rien compris à ton histoire de tri. Tu tries par rapport à quoi?