Microsoft 365 création planche code-barre

[gothc]

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

 

[Modeste geedee]

Bonsour®

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

Symbologies​

La symbologie est le système de transposition entre un texte et un code-barres. Cette transposition implique un codage, ainsi que des marqueurs de début et de fin de l'information.

Quelques types de codes-barres unidimensionnels (1D) :

• les codes-barres EAN : EAN 8, EAN 13, Code Universel des Produits (CUP)
• le Codabar Monarch (en) (alias 2 parmi 7, 2 of 7, Ames Code, Rationalized Codabar)7 : format obsolète utilisé dans les bibliothèques
• le Code 11 (en) : format obsolète utilisé en téléphonie
• le Code 39
• le Code 93
• le Code 128
• le 2 parmi 5
• le Code Plessey (en) et le Code MSI (en) : utilisé pour les magasins à rayons, les entrepôts et les inventaires8
• le code GS1 et ses variantes GS1-128 (en), GS1 DataBar (en) et ITF-14 (en)
• le code PostBar (en) : utilisé par Postes Canada
• le code Postnet : utilisé par la poste américaine

Quelques types de codes-barres bidimensionnels (2D) :

• le PDF-417 : Portable Data File, code avec une grande capacité de stockage
• le Code 1 : de domaine public, utilisé pour les étiquettes médicales et l'industrie du recyclage
• le Code 16K
• le Code 49 (en)
• le Code One
• le DataMatrix surnommé Tag pour certaines applications
• le DPM : Direct Part Mark, code DataMatrix gravé dans la matière comme le métal, le verre, le caoutchouc…
• le Flashcode : spécification issue de DataMatrix
• le MaxiCode : de domaine public, utilisé par United Parcel Service
• le Code Aztec
• le Bokode : code expérimental, prévu pour contenir beaucoup plus d’informations que les autres codes-barres tout en étant bien plus petit
• le Code QR : Quick Response, conçu pour être décodé rapidement, stocker une grande quantité d'informations et être lu par plusieurs types d'appareils
• l’EZcode
• le High Capacity Color Barcode : créé par Microsoft[réf. souhaitée]
• le MMCC : Mobile Multi-Coloured Composite (en)[réf. souhaitée]

Les codes dits « postaux » :

• codes à deux états[Quoi ?] : Postnet et Planet[réf. souhaitée]
• codes à quatre états: Australia Post, British Post, Canada Post, Dutch Post, Infomail, Intelligent Mail (en), Japan Post, Swedish Post

Voir aussi :

Résultats de la recherche pour la requête: Code Barre

www.excel-downloads.com

 

[gothc]

Bonsour®

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

Voir aussi :

Résultats de la recherche pour la requête: Code Barre

www.excel-downloads.com

Bonjour je n’ai pas trop compris ta phrase tu veux savoir le type de code barre que j'utilise ?
EAN 13

 

[Jacky67]

Bonjour,
Une proposition avec ce code à placer dans la feuille "Etiquettes L7125"
Elle s'exécute à chaque sélection de cette feuille

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

 

[gothc]

Bonjour,
Une proposition avec ce code à placer dans la feuille "Etiquettes L7125"
Elle s'exécute à chaque sélection de cette feuille

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

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

 

[Jacky67]

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

Re..

Pj supprimer
Voir Message #8

 

[gothc]

Merci oui super Merci Merci
Bonne fin Journée Jacky tu es très fort

 

[Jacky67]

Merci oui super Merci Merci
Bonne fin Journée Jacky tu es très fort

Re..
En regardant d'un peu plus près.......
Une version simplifiée et plus rapide, sans formula()

 

[gothc]

Je viens de modifier mon fichier avec ta nouvelle Macro
Merci Jacky