XL 2019 changer Police d'une cellule sous condition via VBA

[Aleks Shadows]

Bonjour a tous et a toutes ,
je me tourne vers vous car je bloque sur un truc probablement tout bête ^^'
je vous explique mon problème :

je souhaiterais en VBA que dans la colonne G de la feuille "BDArticles" convertir la cellules dans une police "Code 3 de 9" si le format est ex: *123456* (le nombre de caractères entre * peut varier )
et une autre police "Code EAN13" si le format est ex : 3GBORKF*cbjaig+
et que le tout ce fasse de façon automatique

je vous remercie pour votre aide
en espèrent avoir été claire de ce que je recherche a mon problème ^^
bonne journée

 

[Aleks Shadows]

Bonjour,
Ah mais quel nouille que je suis ^^' j'ai pas fait gaffe désolé
tien je te redonne le bon fichier j'y es rajouter le userfom pour ajouter mes article ainsi que ton code

clique sur le bouton a droite dans userform pour generer un code pour le code 3 de 9
et met celui la 3250391631698 (ou tout numero que tu peux trouver sur les code barre de produit en magsin) pour le code ean13
Bonne journée

 

[xUpsilon]

Bonjour,

Ce sont des module 32 bits et je suis en 64 malheureusement.
Désolé, mais traduire les macros en 64 bites sort de ma maitrise.
Je suis arrivé au bout de ce que je sais faire, il va falloir l'aide de quelqu'un d'autre.

Bonne journée,

 

[Aleks Shadows]

Bonjour ,
je savais même pas qu'il y avait des différences la dessus x)
je te remercie quand même du temps que tu ma accordé pour m'aider
je vais continuer de chercher une solution ou si jamais quelqu'un a une solution a me proposer je suis preneur