Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Couleur de police dans textbox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion sev
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

sev

Guest
Bonsoir à tous,
Je voudrais appliquer le même format de police sur des textbox que celles d'origine sur des textbox.
Voici le fichier
 

Pièces jointes

Trier par date Trier par votes
Re : Couleur de police dans textbox

Bonjour

ton code d'initialisation serait à peu près ainsi
Code: 
Private Sub UserForm_Initialize()
TextBox1 = Range("BOX!G8")
TextBox1.Font.Bold = Range("BOX!G8").Font.Bold
TextBox1.Font.Name = Range("BOX!G8").Font.Name
TextBox1.Font.Size = Range("BOX!G8").Font.Size
TextBox1.Font.Italic = Range("BOX!G8").Font.Italic
TextBox1.ForeColor = Range("BOX!G8").Font.Color

TextBox2 = Range("BOX!G9")
TextBox2.Font.Bold = Range("BOX!G9").Font.Bold
TextBox2.Font.Name = Range("BOX!G9").Font.Name
TextBox2.Font.Size = Range("BOX!G9").Font.Size
TextBox2.Font.Italic = Range("BOX!G9").Font.Italic
TextBox2.ForeColor = Range("BOX!G9").Font.Color
End Sub
 
Vote positif 0 Vote négatif
Re : Couleur de police dans textbox

Ah oui j'oubliais ,en réalité sur mon fichier dans les cellules G8 et G9 il y à un format conditionnel qui change la couleur de police.
Je voudrais avoir les couleures vues sur G8 et G9.
 
Vote positif 0 Vote négatif
Re : Couleur de police dans textbox

RE,

Dans ce cas là, il faut tester la condition ...

un exemple ci-joint.

Range("F8") > 10 et Range("F9") > 10 sont les conditions de mon exemple

Private Sub UserForm_Initialize()
If Range("F8") > 10 Then
TextBox1.ForeColor = Range("G8").FormatConditions(1).Font.Color
Else
TextBox1.ForeColor = Range("G8").Font.Color
End If

If Range("F9") > 10 Then
TextBox2.ForeColor = Range("G9").FormatConditions(1).Font.Color
Else
TextBox2.ForeColor = Range("G9").Font.Color
End If
TextBox1 = Range("G8")
TextBox2 = Range("G9")
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

S
  • Question Question
XL 2016 Conserver la police et couleur
Réponses
4
Affichages
226
SVI
S
  • Question Question
XL 2019 Conflit entre taille et couleur de la police dans les commentaires
2
Réponses
15
Affichages
536
Magic_Doctor
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
714
jeff1494
N
  • Résolu(e)
Microsoft 365 Garder le focus tant que vide
2 3
Réponses
30
Affichages
924
NONO14
N
T
  • Résolu(e)
XL 2021 Charte graphique ou template graphique
Réponses
1
Affichages
234
Nain porte quoi
B
  • Question Question
XL 2016 Excel plante lors de la sélection de la couleur de police A sur le ruban
Réponses
13
Affichages
473
TooFatBoy
  • Question Question
Microsoft 365 Montant dans une TextBox
Réponses
4
Affichages
232
Yann71
C
  • Question Question
XL 2019 Clic cellule
Réponses
5
Affichages
199
Caller
C
N
  • Question Question
Microsoft 365 TEXTBOX pour filtrer un TCD
Réponses
6
Affichages
404
Hecatonchire
H
R
  • Question Question
Microsoft 365 Ecrire un texte dans une cellule sous condition et changer couleur ligne
Réponses
4
Affichages
214
Rikko14
R
E
  • Résolu(e)
XL 2010 Affichage d'un USF sans module mais avec du code inscrit dans le VBE de la feuille1
2
Réponses
16
Affichages
1 K
ericcool
E
J
  • Question Question
Autres Protection de données
Réponses
6
Affichages
316
TooFatBoy
B
  • Question Question
XL 2019 Extraction glyphes arabe
Réponses
7
Affichages
697
bazzi
B
T
  • Question Question
XL 2021 Additionner la couleur du fond et la police de plusieurs cellule en vba
Réponses
7
Affichages
652
Tophe2
T
  • Résolu(e)
XL 2010 Formulaires interdépendants
2
Réponses
15
Affichages
635
cathodique
E
  • Résolu(e)
XL 2019 défiler listbox en même temps que textbox dans une frame
Réponses
5
Affichages
484
escudo
E
G
  • Question Question
XL 2019 Police étiquette graphique
Réponses
7
Affichages
279
job75
D
  • Résolu(e)
XL 2019 plusieurs critères
Réponses
5
Affichages
250
Dand87
D
E
  • Question Question
Microsoft 365 reference ou famille
2 3
Réponses
32
Affichages
777
Piment
P
K
  • Question Question
XL 2016 Modification dans userform et sheet
Réponses
13
Affichages
481
Valtrase
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…