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

Microsoft 365 création planche code-barre

  • Initiateur de la discussion Initiateur de la discussion gothc
  • Date de début Date de début

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 !

gothc

XLDnaute Occasionnel
Bonjour le forum
je cherche la solution à laide d'une macro de préférence pour remplir les champs de l'onglet Etiquettes L7125 avec l'onglet feuil 1 Info des colonnes A (numero du code barre) ET B (information du produit) je laisse un exemple sur l'onglet Étiquettes L7125
sur l'onglet feuil 1 je rajoute régulièrement des articles pour info
Merci pour votre aide
 

Pièces jointes

Dernière édition:
Bonsour®

Ah ! non ! c’est un peu court, jeune homme ! On pouvait dire… Oh ! Dieu ! … bien des choses en somme…
Voir aussi :
 
Bonjour,
Une proposition avec ce code à placer dans la feuille "Etiquettes L7125"
Elle s'exécute à chaque sélection de cette feuille

VB:
Private Sub Worksheet_Activate()
    Dim i&, lig&
    Application.ScreenUpdating = False
    lig = 4
    Sheets("Etiquettes L7125").Cells.ClearContents
    With Sheets("Feuil1")
        For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row Step 4
            Cells(lig, 1) = .Cells(i, 2): Cells(lig + 1, 1) = .Cells(i, 1)
            Cells(lig, 2) = .Cells(i + 1, 2): Cells(lig + 1, 2) = .Cells(i + 1, 1)
            Cells(lig, 3) = .Cells(i + 2, 2): Cells(lig + 1, 3) = .Cells(i + 2, 1)
            Cells(lig, 4) = .Cells(i + 3, 2): Cells(lig + 1, 4) = .Cells(i + 3, 1)
            lig = lig + 2
        Next
    End With
End Sub
 
Dernière édition:
Merci jacky67 Le code fonctionne très bien j'ai juste un problème avec le format du code barre je dois avoir en résultat pour avoir le code barre =@fean13(400000000012) avec votre macro j'ai 400000000012
pour information j'ai un module qui tourne pour l'affichage du code barre Function FEAN13$(ByVal Chaine$) voir dans les modules je laisse le fichier avec votre macro en pièce jointe
Merci
 

Pièces jointes

Re..

Pj supprimer😱
Voir Message #8👍
 
Dernière édition:
- 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éponses
2
Affichages
834
Réponses
5
Affichages
4 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…