XL 2021 Etiquette d'un Userform - bizarreries des propriétés modifiées par VBA

[Jean BUSSER]

Bonjour.
Dans un Userform, j'ai une étiquette où j'affiche une information (dans mon exemple format d'une vidéo 2 caractères).
Je voulais l'afficher en Gros, Gras, Italique et Rouge sur fond jaune en cas de format obsolète.
J'ai donc codé ceci (où il n'y a rien de bien sorcier) :

With etq_PRExiste_Vidéos_Format
Select Case etq_PRExiste_Vidéos_Format
Case "EP", "LP", "SP", "XP", "DR", "ZX", "ZP"
.Font.Size = 12
.Font.Italic = true
.ForeColor = vbRed
.BackColor = vbYellow
Case Else
.Font.Size = 11
.Font.Italic = False
.ForeColor = vbBlack
.BackColor = vbWhite
End Select
End With

Cela marche très bien lorsque une vidéo obsolète est détectée mais ensuite, pour des vidéos normales, le texte passe bien en noir taille 11 mais reste en italique gras. Il faut que je ferme et réouvre mon classeur pour que l'affichage soit correct... seulement jusqu'à la première vidéo obsolète rencontrée !
Y a-t-il une astuce diabolique que j'ignore ?
Merci.
J.BUSSER
(Pourquoi mon indentation disparaît-elle ?)

 

[patricktoulon]

re
Bonjour
Non c'est ton Pc qui est diabolique ou tu nous a pas tout dis
il est ou ce with?
car il faut voir le contexte

 

[Jean BUSSER]

re
Bonjour
Non c'est ton Pc qui est diabolique ou tu nous a pas tout dis
il est ou ce with?
car il faut voir le contexte

Merci de t'intéresser à mon tout petit problème, alors que tu es plutôt un "ténor" sur ce site (j'ai d'ailleurs installé ton indenteur).
Mon WITH se trouve dans un classeur de 2 Mo qui compte 20 feuilles, 9 Userforms et 11 modules pour des centaines de lignes. Te l'envoyer tel quel ne serait pas très utile. J'en ai fait un extrait en gardant quelques lignes dans les principales feuilles, sans rien toucher au VBA. Je peux te l'envoyer en te disant où se trouve ce WITH farceur et comment le déclencher. Cela se fait ici ou peut-être par une voie privée que j'ignore ?
Pourtant, je ne voudrais pas prendre de ton temps pour ça alors que tu as d'autres sujets beaucoup plus importants.
En tout cas, merci.

 

[patricktoulon]

re
va y envoie la patate

nb:
il n'y a pas de ténor ici il y a que des gens de bonne volonté (pour la plus part😉)

 

[Nain porte quoi]

(Pourquoi mon indentation disparaît-elle ?)

Pour mettre du code il faut utiliser le bouton "qui ressemble à ça "</>"