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

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

  • outil.xlsm
    84.9 KB · Affichages: 33
Dernière édition:

Modeste geedee

XLDnaute Barbatruc
Bonsour®

Ah ! non ! c’est un peu court, jeune homme ! On pouvait dire… Oh ! Dieu ! … bien des choses en somme…
Voir aussi :
 

Jacky67

XLDnaute Barbatruc
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:

gothc

XLDnaute Occasionnel
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

  • outil.xlsm
    86.5 KB · Affichages: 17

Jacky67

XLDnaute Barbatruc
Re..

Pj supprimer
Voir Message #8
 
Dernière édition:

Discussions similaires

  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
765
  • Question Question
Microsoft 365 appel des sous-routine
Réponses
3
Affichages
209
Réponses
3
Affichages
473
  • Question Question
Réponses
2
Affichages
796
  • Question Question
Microsoft 365 Création de code barre
Réponses
5
Affichages
4 K
  • Question Question
Microsoft 365 écriture via code vba
Réponses
10
Affichages
839
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…