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

 

[patricktoulon]

Bonjour
un exemple de fichier avec toute les possibilité serait le bien venu
cela dit c'est assez simple dans l'event sheet_change

 

[xUpsilon]

Bonjour,

Parle t'on vraiment de Format ? (voir ci-dessous)

Ou est-ce qu'on cherche simplement des valeurs qui contiennent une * puis une série de X chiffres puis encore un * ?

Bonne journée,

PS : Bonjour patrick

 

[Aleks Shadows]

je vous met une copy de mon tableau (qui sera dynamique dans le sens ou les articles peuvent être ajouter/supp)

Ou est-ce qu'on cherche simplement des valeurs qui contiennent une * puis une série de X chiffres puis encore un * ?

oui voila c'est ça ce que je voulais dire

 

[xUpsilon]

Re,

Voir ci-joint pour "Code 3 de 9".
J'ai considéré qu'on cherche une valeur numérique entourée de deux *.
Si la condition est différente, merci de l'expliciter.
J'ai considéré que si ce n'est pas le cas, il faut revenir à une police Calibri.

Même chose pour 3GBORKF*cbjaig+, quelle est la structure à suivre ? Est-ce que c'est 1 chiffre puis un texte majuscule sur 6 charactère puis un * puis un texte minuscule sur 6 char puis un + ?

Bonne journée,

 

[Aleks Shadows]

Voir ci-joint pour "Code 3 de 9".
J'ai considéré qu'on cherche une valeur numérique entourée de deux *.
Si la condition est différente, merci de l'expliciter.
J'ai considéré que si ce n'est pas le cas, il faut revenir à une police Calibri.

dans l'idée c'est ca sauf que si c'est pas du code "3 de 9" alors c'est du c'est du "Code EAN13" même si jamais ce n'est pas le bon format il faudrait que ca soit du Calibri par ex

Même chose pour 3GBORKF*cbjaig+, quelle est la structure à suivre ? Est-ce que c'est 1 chiffre puis un texte majuscule sur 6 charactère puis un * puis un texte minuscule sur 6 char puis un + ?

je sais pas si la structure des code ean13 sont tous les meme mais j'en ai bien l'impression quand meme donc on va partir sur ce postula (1 chiffre puis un texte majuscule sur 6 charactère puis un * puis un texte minuscule sur 6 char puis un + )
parcontre il y a un petit bug lorsque je supprime une ligne cela crée un bug

 

[xUpsilon]

Re,

Comme ceci ?
Bug corrigé.

Bonne journée,

 

[Aleks Shadows]

oui c'est exactement ça sauf (le relou ^^)
je dois revalider la cellule pour que la macro que tu as fait s'exécute ,j'aimerai que ca se fasse de façon automatique des qu'il détecte le "format" il met la bonne police (je sais pas si je suis clair x))
en tout cas merci beaucoup

 

[xUpsilon]

En fait j'ai associé la macro à l'évènement "changement de la valeur d'une cellule en colonne G".
Le problème, c'est que si ça s'exécute en permanence, ça va juste saturer ton ordi pour rien.

Donc dis moi à quel évènement tu préfèrerais que ce soit associé. Un simple changement de sélection de cellule pour recalculer toute la feuille ?

 

[Aleks Shadows]

j'avoue ne pas trop savoir toute les différente façon faire ,mais les 5 premières colonne sont sont ajouter/supp/modifier via un userform puis les 2 dernières colonnes ont une formule qui s'agrémente automatiquement donc peut être des qu'un ajout d'article est fait recalculer la feuille ?
qu'en pense tu ? je suis pas un expert en excel donc je prend tout les bon conseil

 

[xUpsilon]

Si les premières colonnes sont remplies, alors la colonne G (qui est une formule) va changer. Et ma macro surveille le changement de valeur de la colonne G, donc ça devrait fonctionner à merveille.

Teste avec ton USF et dis moi

 

[Aleks Shadows]

justement ca ne le fait pas^^' ou plutôt il met de base la police code ean13 donc pour les valeurs "3GBORKF*cbjaig+" pas de soucis mais pour les valeurs "*123456*" Ducoup ca ne marche que si je revalide la cellules

 

[xUpsilon]

Je dois t'avouer que je ne sais pas voir comme toi dans le tableau car je n'ai pas le module codeEAN.
Mais mes tests sur des valeurs saisies à part fonctionnent très bien, donc je ne comprends pas ...

 

[Aleks Shadows]

pourtant les 2 modules codeEAN13 et code39 ce trouve dans le fichier vba/module 1 et la police c'est Code39.ttf et ean13
je peux si ca peut t'aider t'envoyer le fichier entier peut être qu'il y un conflit quelque part qui empêche le bon fonctionnement
en tout cas merci de ton aide ,ca m'aide beaucoup

 

[xUpsilon]

Bonjour,

Etant donné que le fichier que tu m'as envoyé est un .xlsx, il n'est purement et simplement pas possible qu'il contienne un Module VBA.
Donc soit tu ne m'as pas envoyé le bon fichier, soit tu as juste oublié d'enregistrer le fichier en xlsm (fichier prenant en charge les macros/modules).

Bonne journée,