Macro impression

[vinceda]

Bonjour à tous et mes meilleurs voeux pour cette nouvelle année.....

Je viens vers vous pour une aide sur un PB qui me parait insoluble mais dont je me doute que les spécialiste que vous etes sauront m'aider...


Dans mes taches journalieres, je dois créer des planches d'étiquettes pour que mes préparateurs de commandes puissent coller sur les colis et cette opération fastidieuse est faite jusque la manuellement.....cela me prend 2 fois 40mn par jour...

mon idée serait d'automatiser cette tache:

J'ai réussi à récuoérer sur mon logiciel de travailles éléments que je dois faire apparaitre sur mes étiquette à l'aide d'un bouton. Jusque la pas de PB. Les éléments sont copiés sur la feuille2 du classeur et c'est là que ca se complique pour moi:

Je souhaite que par l'appuie sur le bouton4 de la feuille 1, l'impression debute avec les éléments de la feuille2 copié sur la feuille 3 comme indiqué sur le fichier soit 4 fois la même mention par page sans doublon de feuille.....

je ne sais si j'ai été clair mais je me tiens a votre disposition pour tout eclaircissement....

 

[Papou-net]

Re : Macro impression

Bonsoir vinceda,

Vois si ton fichier modifié répond à ta demande.

Cordialement.

 

[vinceda]

Re : Macro impression

Bonjour Papou-net,

merci pour le coup de main mais lorsque j'execute la macro, il ne se passe rien !!!!

Pourrais tu me guiser STP.

Merci encore....ce me parait pas mal au premier coup d'oeil.

 

[Papou-net]

Re : Macro impression

Bonjour vinceda,

Désolé pour ce contre-temps, mais la fatigue de cette nuit y est pour beaucoup.

Il te faut donc modifier la macro "Etiquetage" affectée au "Bouton 4" comme suit :

Sub Etiquetage()
Dim Pge As Integer
With Sheets("Feuil3")
  Pge = 1
  For Each cel In [COLOR="red"][B][SIZE="5"].[/SIZE][/B][/COLOR]Range("A1,A18,A35,A52,A69")
    If cel.Value > 0 Then Sheets("Feuil3").PrintOut From:=Pge, To:=Pge, Copies:=1, _
        Collate:=True
    Pge = Pge + 1
  Next
End With
End Sub

Il manquait le point devant Range("A1,A18,A35,A52,A69").

Voilà qui est réparé.

Cordialement.

 

[vinceda]

Re : Macro impression

Bonjour Papou-net,

merci pour la modif, je t'avoue que je n'avais pas vu qu'il manquait le point.

Une autre petite question: quand je lance la macro, il ne me récupere pas la liste des éléments dans la feuil2! mais imprime ce qu'il y a déjà d'inscrit dans la feuil3.

Or cela changera toutes les 1/2 journée.

Merci encore pour ton aide.

 

[Papou-net]

Re : Macro impression

Re vinceda,

J'ai voulu modifier les formules de la feuille 3, mais comme il y a apparemment des bugs sur cet onglet, j'ai créé la feuille 4. Celle-ci se met à jour automatiquement suite à l'import des données sur la feuille 2. Par contre, je te laisse le soin de terminer la mise en forme de cette nouvelle feuille. Si ça te convient, tu n'as plus qu'à supprimer la feuille 3.

Pour détailler les erreurs que j'ai trouvées :

Dans certaines cellules, la formule s'affiche sous forme de texte et non sous forme de valeur. Je n'ai pas réussi à en déterminer la cause, d'où cet ajout d'une nouvelle feuille.

Espérant avoir répondu à tes attentes.

Cordialement.

PS : j'ai prévu pour le moment la possibilité de créer 10 pages. Si tu dois en rajouter, il faut recopier les formules de la feuille 4 vers le bas, et rajouter les références de cellules dans la macro "Etiquetage"

 

[vinceda]

Re : Macro impression

🙂Papou-net, tu es un chef !!!!

ca marche du tonnerre!! je te remercie pour l'aide que tu m'as apporté !!!