Re : Création d'étiquettes
Voilà la macro que tu avais faites :
'Début de routine Construit
Sub Construit()
'Déclaration des variables
Dim Lignemax As Long, Tourne As Long, Destination As Long
Dim lecture As Variant, Modele As Variant
'Copie du modéle pour définir les colonnes
Sheets("Etiquette").Columns("A:F").Copy
Sheets("Planche").Select
Range("A1").Select
ActiveSheet.Paste
'Trouve la derniere ligne de données
Lignemax = Sheets("Donnees").Range("A" & Rows.Count).End(xlUp).Row
'Premiere ligne de la feuille planche
Destination = 1
'Scrute de la ligne 2 à la derniere ligne de l'onglet données
For Tourne = 2 To Lignemax
'Mise en variable tableau de la ligne de données lue
lecture = Sheets("Donnees").Range("a" & Tourne & ":T" & Tourne)
'Mise en variable tableau du modéle d'étiquette
Modele = Sheets("Etiquette").Range("A1:F3")
'Transfert à la demande d'une variable vers l'autre
Modele(1, 1) = lecture(1, 8)
Modele(1, 2) = "*" & lecture(1, 20) & "*"
Modele(1, 4) = lecture(1, 2)
Modele(1, 5) = lecture(1, 4)
Modele(1, 6) = lecture(1, 11)
Modele(2, 3) = "S = " & lecture(1, 18)
Modele(2, 4) = lecture(1, 3)
Modele(3, 3) = "R =" & lecture(1, 19)
Modele(3, 4) = lecture(1, 5)
'Copie du formatage du modéle d'étiquette
Sheets("Etiquette").Range("A1:F3").Copy
Sheets("Planche").Select
Range("A" & Destination).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'Réglage de la hauteur de ligne
Rows(Destination).RowHeight = Sheets("Etiquette").Rows(1).RowHeight
Rows(Destination + 1).RowHeight = Sheets("Etiquette").Rows(2).RowHeight
Rows(Destination + 2).RowHeight = Sheets("Etiquette").Rows(3).RowHeight
'Remplissage du modéle avec les données transférées
Sheets("Planche").Range("A" & Destination & ":f" & Destination + 2) = Modele
'Calcul de la prochaine ligne de copie
Destination = Destination + 3
'Si indice de boucle non atteint la valeur de sortie alors reprise aprés For
Next Tourne
'Affichage de la feuille Planche
Sheets("Planche").Activate
'Fin de routine Construit
End Sub
Concernant de lister l'utilisation et le renseignement des autres onglets, je ne comprends pas trop la question lol.
L'onglet Etiquette sert de modèle que ce soit pour la largeur de colonne que pour la mise en forme pour les 3 autres onglets (Ligne 1/2 onglet Zone, ligne 3/4 onglet Fiche Reappro et ligne 5/6/7 onglet Code Barre. Pour la longueur totale des etiquettes elles doivent faire 48.5 et 25.4 de largeur que ce soit 1 2 ou 3 4 ou 5 colonnes et 1 2 3 lignes. J'espère que je suis assez clair dans mes explications
