XL 2016 Imprimer automatiquement Code a barre a partir d'une lits excel avec boucle et condition

[abderraouf]

Bonjour tout le monde,

Je veux créer une commande VBA qui prend tous les numéro des code a barre existant dans une plage de données avec deux conditions et les remplace automatiquement avec boucle dans une autre cellule.

Je partage avec vous mon fichier excel test pour que vous puissiez comprendre ma commende.

Help please.

merci a tous.

 

[job75]

Bonjour abderraouf,

Si vous ne l'avez pas déjà fait téléchargez le code barre EAN 13 et appliquez la police à la colonne E (ou F).

Dans l'UserForm il suffira de filtrer le tableau avec le filtre avancé :

Private Sub CommandButton1_Click() 'bouton Executer
ThisWorkbook.Names.Add "CB_1", ComboBox1 'nom défini
ThisWorkbook.Names.Add "CB_2", Val(ComboBox2) 'nom défini
With [A1].CurrentRegion
    .Cells(2, .Columns.Count + 2) = "=(C2=CB_1)*(B2=CB_2)" 'critère
    .AdvancedFilter xlFilterInPlace, .Cells(1, .Columns.Count + 2).Resize(2) 'filtre avancé
    .Cells(2, .Columns.Count + 2) = ""
    .Parent.PrintPreview 'pour tester
    '.Parent.PrintOut 'pour imprimer
    .AdvancedFilter xlFilterInPlace, "" 'RAZ
    End With
End Sub

A+

 

[abderraouf]

Merci Job75.

pour le EAN 13 J'ai eu la police.

j'ai essayé ton code et ça ne marchera pas, est ce que tu peut l’appliqué ce le fichier test et et me l'envoyer stp.
est commente je fait pour remplacer les code a barre après le filtre dans une cellule avec une manier automatique / boucle du premier a la fin ( je vais rajouter un code pour impression juste après le collage du code a barre a la cellules souhaité ).

d'avance merci.