probleme pour mettre en gras

Question

Soyez indulgent, je suis très novice avec Excel....

Bonjour à vous tous!

je suis un gros débutant, je ne sais pas si j'ai posté dans le bon thème alors excusez moi si je me suis trompé! Je cherche le thème " VBA et Excel". Je vais essayé de vous expliquer mon problême le plus clair possible .

J'ai un userform avec une variable appellée "Destination" ou je peux choisir plusieurs thèmes, voila le code :

CODE

    With cboDestination
        .Clear
        .AddItem "PMA"
        .AddItem "Urgences Adultes CH"
        .AddItem "Urgences Pédiatrie CH"
        .AddItem "Clinique St Etienne"
        .AddItem "Clinique Paulmy"
        .AddItem "Clinique Lafourcade"
        .AddItem "Polyclinique Aguilera"
    End With"

FIN DE CODE

J'aimerais que lorsque je choisis :
        "Urgences Adultes CH"
        "Urgences Pédiatrie CH"
        "Clinique St Etienne"
        "Clinique Paulmy"
        "Clinique Lafourcade"
        "Polyclinique Aguilera"

J'aimerais que se soit écrit en gras et en rouge.

Mais pour "PMA", je le laisse tel quel.

Vous pourriez vous dire que si j'ai reussi à faire ça, je pourrai me débrouiller pour mettre en forme, mais j'avoue que j'ai déjà été aidé pour la réalisation de mon code VBA.

mortalino · Answer

salut,

essaie comme ceci :

With cboDestination
    If .Text "Urgences Adultes CH" Or .Text "Urgences Pédiatrie CH" Or _
    .Text "Clinique St Etienne" Or .Text "Clinique Paulmy" Or _
    .Text "Clinique Lafourcade" Or .Text "Polyclinique Aguilera" Then

        .Font.Bold = True
        .ForeColor = &HFF&

    Else
        .Font.Bold = False
        .ForeColor = &H0&

    EndIf
EndWith

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Probleme pour mettre en gras

1 réponse

Votre réponse

Discussions similaires