extraction de données avec une macro pour impression multiple

doudou080 · 6 Juin 2017

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 · 8 Juin 2017

un tri sur toutes les ligne a la date du jour

cp4 · 8 Juin 2017

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") = 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 · 8 Juin 2017

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 · 8 Juin 2017

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 · 8 Juin 2017

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 · 8 Juin 2017

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 · 8 Juin 2017

tanpis
merci quand meme
cordialement

doudou080 · 8 Juin 2017

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 · 8 Juin 2017

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 · 8 Juin 2017

cp4 à dit:
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 · 8 Juin 2017

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 · 8 Juin 2017

doudou080 à dit:
non je me suis démerdé tout seul.

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

@+

doudou080 · 8 Juin 2017

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 · 8 Juin 2017

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

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

cp4 · 8 Juin 2017

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

extraction de données avec une macro pour impression multiple

doudou080

XLDnaute Nouveau

Pièces jointes

doudou080

XLDnaute Nouveau

cp4

XLDnaute Barbatruc

doudou080

XLDnaute Nouveau

cp4

XLDnaute Barbatruc

doudou080

XLDnaute Nouveau

cp4

XLDnaute Barbatruc

doudou080

XLDnaute Nouveau

doudou080

XLDnaute Nouveau

Pièces jointes

doudou080

XLDnaute Nouveau

Patrice33740

XLDnaute Impliqué

doudou080

XLDnaute Nouveau

cp4

XLDnaute Barbatruc

doudou080

XLDnaute Nouveau

Pièces jointes

cp4

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Discussions similaires