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

abderraouf

XLDnaute Nouveau
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.
 

Pièces jointes

  • Test.xlsx
    25.3 KB · Affichages: 11

job75

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

XLDnaute Nouveau
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.
 

Pièces jointes

  • Test.xlsx
    25.3 KB · Affichages: 16

Discussions similaires

Réponses
15
Affichages
665
Compte Supprimé 979
C
Réponses
9
Affichages
380

Statistiques des forums

Discussions
311 724
Messages
2 081 938
Membres
101 844
dernier inscrit
pktla