Mise en forme et casse tête chinois

[recovery]

Bonjour tout le monde

Une nouvelle fois j'en appelle à vos compétence car sacrément énervé voici mon problème.

Dans la syntaxe ci dessous je fais en sorte que le contenu de chaque cellule dans la zone spécifiée adopte la mise en forme suivante cellule.Font.Bold = True dans la mesure ou ces derniers sont prédéfinis avec la condition case.

Cela fonctionne parfaitement pour l'ensemble des critères sauf un "Isabelle", j'ai tout essayé rien à faire la mise en forme ne s'applique pas.

Merci de consacrer un peu de votre temps avec les non initiés.

Private Sub Worksheet_Activate()
Dim ZoneDeMiseEnForme As Range
Dim cellule As Range

Set ZoneDeMiseEnForme = Range("a2:k80")

For Each cellule In ZoneDeMiseEnForme

Select Case cellule

Case "Agnes", "Aurélie", "Isabelle", "Isabelle M", "Débutants", "Intermédiaires", "Performants"

cellule.Font.Bold = True


End Select
Next
End Sub

 

[Odesta]

Re : Mise en forme et casse tête chinois

Bonjour
Si Isabelle est grasse, c'est peut-être à cause d'une mise en forme conditionnel ? Avez-vous vérifier ?

Si ce n'est pas ca, merci de joindre le fichier, parceque là, comme ca, ben, "pffff !!!! aucune idée !!"


Cdt

Olivier

 

[JNP]

Re : Mise en forme et casse tête chinois

Bonsoir le fil 🙂,
@ Odesta : Elle est pas grasse, Isabelle, elle est maigre (tellement maigre, que pour qu'elle maigrisse encore, il faudrait qu'elle perde un os 😛)...

Un bête espace peux faire bien du mal 🙄...
A tester

Select Case Trim(cellule)

Bonne soirée 😎

 

[Gorfael]

Re : Mise en forme et casse tête chinois

Salut recovery, Odesta et le forum
Soit la mise en forme se fait correctement, mais elle est masquée par une MFC
soit le contenu de la cellule n'est pas égal à "Isabelle" ("Isabelle ", "isabelle", etc)
A+

 

[recovery]

Re : Mise en forme et casse tête chinois

Merci à tous pour votre aide Odesta, Gorfael

Effectivement JPN ta syntaxe fonctionne parfaitement " Select Case Trim(cellule) " peux tu m'en dire plus sur cette dernière.

Encore un grand merci tout le monde

 

[JNP]

Re : Mise en forme et casse tête chinois

Re 🙂,
Moi, c'est JNP (pourquoi ils veulent tous que ce soit JPN 😕 ?) 😛...
Trim supprime les espaces avant et après, donc si dans la cellule est saisi "Isabelle " ou " Isabelle", ça fonctionne. Pour encore plus de sécurité

Select Case UCase(Trim(cellule))

permettra de tester sur les majuscules, mais dans le Select Case, il faudra mettre "ISABELLE", ce qui permetra d'accepter aussi bien "Isabelle" qu'"isabelle" 🙄...
Bon courage 😎

 

[recovery]

Re : Mise en forme et casse tête chinois

Merci "JNP"🙂 pour l'explication "facile" le vba dés lors qu'il y a la maitrise.
Pour ma part ravi de m'initier mais j'en ai pour plusieurs décennies LOL