Police dans Label dans userform en gras (VBA)

Le
Thierry K
Bonjour à toutes et à tous
La ligne ci dessous "Pour mettre en gras" est erronée,
quelle syntaxe utiliser pour le faire?


If Month(j) <> Month(Jour.Value) Then
'Extrait de CalFr2 de Daniel M Merci à lui.
cntrl.ForeColor = &H80000011 'si le jour est dans le mois, fort
constraste

cntrl.Font.style = "GRAS" '*************** pour
mettre en Gras *********************

Else
cntrl.ForeColor = &H800000 'sinon semaine prec et suiv, faible
contraste
End If

Office Pro 2003
Win XP Pro SP2

Merci d'avance pour vos conseils

pour répondre, enlever w x y z

Thierry K
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Carim
Le #4327541
Bonjour,

cntrl.Font.Fontstyle = "GRAS"

Salutations
Carim
Thierry K
Le #4327501
Merci pour ton aide
mais ça ne marche pas.
"Propriété ou méthode non gérée ..."

Office Pro 2003
Win XP Pro SP2

Merci d'avance pour vos conseils

pour répondre, enlever w x y z

Thierry K
"Carim"
Bonjour,

cntrl.Font.Fontstyle = "GRAS"

Salutations
Carim



Carim
Le #4327491
Désolé ...pour toi ...
Cà marche avec Excel 2000 ...
Jacques93
Le #4327431
Bonjour Thierry K,

cntrl.Font.Bold = True

pour passer en gras, et

cntrl.Font.Bold = False

pore revenir en "normal"

Bonjour à toutes et à tous
La ligne ci dessous "Pour mettre en gras" est erronée,
quelle syntaxe utiliser pour le faire?


If Month(j) <> Month(Jour.Value) Then
'Extrait de CalFr2 de Daniel M Merci à lui.
cntrl.ForeColor = &H80000011 'si le jour est dans le mois, fort
constraste

cntrl.Font.style = "GRAS" '*************** pour
mettre en Gras *********************

Else
cntrl.ForeColor = &H800000 'sinon semaine prec et suiv, faible
contraste
End If

Office Pro 2003
Win XP Pro SP2

Merci d'avance pour vos conseils

pour répondre, enlever w x y z

Thierry K





--
Cordialement,

Jacques.

Thierry K
Le #4327251
ça marche,

c'est bien Bold=true

merci Jacques93
merci également à Carim

pour votre promptitude et vos conseils pour secourir les bidouilleurs
désirant reculer les limites de leurs connaissances.

Cordialement

Thierry K
"Jacques93" a écrit dans le message de news:
%
Bonjour Thierry K,

cntrl.Font.Bold = True

pour passer en gras, et

cntrl.Font.Bold = False

pore revenir en "normal"

Bonjour à toutes et à tous
La ligne ci dessous "Pour mettre en gras" est erronée,
quelle syntaxe utiliser pour le faire?


If Month(j) <> Month(Jour.Value) Then
'Extrait de CalFr2 de Daniel M Merci à lui.
cntrl.ForeColor = &H80000011 'si le jour est dans le mois,
fort constraste

cntrl.Font.style = "GRAS" '*************** pour
mettre en Gras *********************

Else
cntrl.ForeColor = &H800000 'sinon semaine prec et suiv, faible
contraste
End If

Office Pro 2003
Win XP Pro SP2

Merci d'avance pour vos conseils

pour répondre, enlever w x y z

Thierry K



--
Cordialement,

Jacques.



Publicité
Poster une réponse
Anonyme