Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Transposer lignes vers planche d'étiquette

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

Tophe2845

XLDnaute Nouveau
Bonjour à tous
Lecteur régulier du forum , celui-ci m'a souvent sauvé la mise sur certains projets , cependant aujourd'hui je bute sur un problème que j'ai du mal à solutionner , je fais donc appel a vous , je pense que la solution doit être simple , mais je maitrise mal les boucles en VBA

je cherche a créer un module VBA pour transposer les lignes de la feuille "Report" vers une feuille "Eti"
"Report" est alimenté par une macro qui fait un copié collé des valeurs d'une autre feuille contenant des formules , filtré pour supprimer les valeurs nulle et contient 2000 lignes maximum
"Eti" est une feuille mise en forme pour correspondre à des planches d'étiquettes A4 ( 8 étiquettes au format paysage) , tout effacement de cette feuille doit conserver la mise en forme , entre chaque étiquette ( qui contient 9 champs) une ligne vide est présente
Je pense qu'il faut constituer une boucle qui vérifie la feuille "Report" jusqu'a la première ligne vide puis un collage transposé des valeurs vers la feuille "Eti" par contre je n'arrive pas à mettre en forme pour qu'a la 4eme colonne le collage se fasse 10 lignes plus bas

Je joins un exemple anonymisé avec le résultat souhaité

Merci par avance pour l'aide que vous pourrez m'apporter
 

Pièces jointes

Solution
Bonjour Tophe,
Un essai en PJ avec :
VB: 
Sub Etiquettes()
Dim L As Integer, C As Integer, Leti As Integer, Ceti As Integer, NoBloc As Integer
Sheets("Eti").Range("A1:D1000").ClearContents    ' Efface contenu étiquettes
Derlig = Sheets("Report").Range("A65500").End(xlUp).Row ' Calcul nb lignes de report
Leti = 1: Ceti = 1      ' Ligne colonne dans feuille Eti
NoBloc = 1              ' Donne le N° de bloc ( 1 bloc c'est 4 étiquettes horizontales )
For L = 1 To Derlig     ' Pour toutes les lignes de report
    For C = 1 To 9      ' Pour chaque colonne de Report
        Sheets("Eti").Cells(Leti, Ceti) = Sheets("report").Cells(L, C)
        Leti = Leti + 1 ' Ligne suivante
    Next C
    ' Gestion Ligne Colonne de Eti
    Ceti = Ceti + 1...
Trier par date Trier par votes
Bonjour Tophe,
Un essai en PJ avec :
VB: 
Sub Etiquettes()
Dim L As Integer, C As Integer, Leti As Integer, Ceti As Integer, NoBloc As Integer
Sheets("Eti").Range("A1:D1000").ClearContents    ' Efface contenu étiquettes
Derlig = Sheets("Report").Range("A65500").End(xlUp).Row ' Calcul nb lignes de report
Leti = 1: Ceti = 1      ' Ligne colonne dans feuille Eti
NoBloc = 1              ' Donne le N° de bloc ( 1 bloc c'est 4 étiquettes horizontales )
For L = 1 To Derlig     ' Pour toutes les lignes de report
    For C = 1 To 9      ' Pour chaque colonne de Report
        Sheets("Eti").Cells(Leti, Ceti) = Sheets("report").Cells(L, C)
        Leti = Leti + 1 ' Ligne suivante
    Next C
    ' Gestion Ligne Colonne de Eti
    Ceti = Ceti + 1     ' Prochaine colonne
    If Ceti = 5 Then    ' Si 5eme colonne alors
        Ceti = 1        ' On revient à la première colonne
        Leti = Leti + 1 ' On passe à ligne +1
        NoBloc = NoBloc + 1 ' 4 étiquettes étant générées on passe au bloc suivant
    Else
        Leti = 10 * NoBloc - 9    ' Sinon si pas 5eme colonne, on recalcul le No de ligne ( NoLigne=10 NoBloc - 9)
    End If
Next L
End Sub
Il faut gérer ligne colonne report et ligne colonne Eti de façon indépendante, et compter le nombre de fois qu'on a générer 4 étiquettes pour passer 10 lignes plus bas.
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
Bonjour Sylvanu

Cela parait si simple quand on maitrise pleinement le VBA , j'ai encore des progrès a faire , j'avais cette idée précise de colonne =4 alors on descend de 9 lignes mais j'étais incapable de le mettre en forme
Merci beaucoup pour cette procédure très bien commentée que je pourrais ajuster si besoin
 
Vote positif 0 Vote négatif
Bonjour

Un grand merci pour cette fonctionnalité qui me sert toujours aujourd'hui , cependant afin de ne pas gacher les planches d'étiquettes entamées , je souhaite choisir la première etiquette à imprimer , j'ai ajouté un userform pour choisir l'étiquette de départ ( dans mon fichier source ça fonctionne jusqu'a l'étiquette 4 , mais a la 5eme etiquette c'est là que les problèmes commencent ) par contre dans la copie fournie ça ne marche pas quelque soit la saisie dans l'userform
Je suis a votre disposition pour tout renseignement complémentaire , au cas ou mon explication ne serait pas claire
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour Tophe,
Pas tout compris, dans votre userform vous écrivez : 1234 et 5678, à quoi cela correspond il ?
En PJ sur appui sur le bouton il faut entrer le N° de la première étiquette choisie, un des nombres de la colonne D de Report.
 

Pièces jointes

Vote positif 0 Vote négatif
Merci pour votre retour rapide
1234 5678 correspond à la position de la première étiquette à imprimer , toutes les valeurs de la feuille "report" sont à imprimer , il s'agit juste de décaler l'impression de 1 à 8 etiquette
Si on imagine une planche d'étiquette de 8 au format paysage la 1ere etiquette est en haut à gauche et la 8eme etiquette en bas à droite , j'ai réussi à reproduire le fonctionnement du fichier original dans la pj
Cela fonctionne jusqu'a la 4eme etiquette , a la 5eme cela plante ( au deuxieme bloc )
Pour le fichier envoyé je n'ai pas compris le fonctionnement
 

Pièces jointes

Vote positif 0 Vote négatif
Tophe2845 à dit:
il s'agit juste de décaler l'impression de 1 à 8 etiquette
Cliquez pour agrandir...
Désolé, je ne comprends pas.
Peux être que quelqu'un d'autre se montrera plus perspicace.
Tophe2845 à dit:
Pour le fichier envoyé je n'ai pas compris le fonctionnement
Cliquez pour agrandir...
Je pensais qu'il fallait imprimer par ex de l'étiquette N°536 à la fin. Donc dans l'uerform on entrait 536. Donc à coté de la plaque.
Sorry.
 
Vote positif 0 Vote négatif
Les planches d'etiquette se présentent comme ceci , il faut l'imaginer au format paysage , la feuille eti du fichier excel représente ces planches
les cellules A1 à A10 représentent la première etiquette B1 à B10 la 2eme et ainsi de suite
Dans le cas d'une planche entamée , je souhaite faire demarrer l'impression sur l'une de ces 8 etiquette au choix , imaginons qu'il manque 4 etiquettes ( au format paysage les 4 etiquettes du haut de la feuille ) je souhaite commencer l'impression à la 5eme etiquette ( au format paysage la première etiquette en bas a gauche )
Je ne sais pas si c'est plus clair
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2019 Problème de copie de plages non contiguës vers une autre feuille en VBA
Réponses
9
Affichages
289
flc13090
V
  • Question Question
Autres Exporter les données vers un autre onglet sans laisser d'espaces entre les lignes
Réponses
13
Affichages
460
Vakarm31
V
  • Résolu(e)
XL 2021 PB Alimentation Tableau structuré depuis un ListBox
2
Réponses
27
Affichages
765
jeff1494
  • Question Question
Microsoft 365 faire une copie d'un fichier stocké dans un sous sous... sous répertoire
2
Réponses
20
Affichages
619
TooFatBoy
  • Question Question
XL 2016 copie de donnees horizontale en verticale
2
Réponses
25
Affichages
690
job75
L
  • Question Question
XL 2021 Transformer des données verticales en horizontales et mettre à jour un graphique automatiquement
Réponses
11
Affichages
367
Leina
L
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
702
desto
D
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
309
vgendron
T
  • Résolu(e)
Microsoft 365 Exporter les plages nommées vers un nouveau classeur - plage nommée invalide selon VBA
Réponses
2
Affichages
396
tnion
T
H
  • Résolu(e)
Microsoft 365 Packing list automatisée
Réponses
10
Affichages
959
HugoLaChips
H
E
  • Question Question
Power Query Index TP de l'INSEE - Ajuster une formule à chaque mise à jour d'un tableau généré avec PQ
2
Réponses
21
Affichages
1 K
laurent950
C
  • Résolu(e)
Copier/Masquer des lignes de couleur pour alimenter un tableau
Réponses
9
Affichages
793
vgendron
M
  • Question Question
Microsoft 365 Calcul du nombre de chiffres dans une cellule. Mise en page d'un fichier.
Réponses
2
Affichages
483
MCOTTEND
M
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
2 K
Banbara
B
F
  • Résolu(e)
XL 2021 recherche doublons dans colonne puis suppression des lignes
Réponses
5
Affichages
626
ftpo69
F
7
  • Question Question
Microsoft 365 Tableau de Géolocalisation de vidéos de drone avec lien vers Google Earth
2
Réponses
15
Affichages
884
sylvanu
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
471
zendb
Z
M
  • Question Question
Extraire des lignes
2 3
Réponses
41
Affichages
2 K
matthieu2701
M
W
  • Résolu(e)
XL 2016 Ordonner une cellule ou un pavé de cellules contenant des chr(10)
Réponses
5
Affichages
713
Webperegrino
W
J
  • Question Question
XL 2016 Tableau de bord - report de données
2
Réponses
16
Affichages
2 K
chris
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…