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

Impossible de définir la propriété FontStyle de la classe Font

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion matiousky
  • 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
M

matiousky

XLDnaute Junior
Bonsoir,

A l'ouverture de mon classeur Excel cette erreur apparait:

"Erreur 1004: Impossible de définir la propriété FontStyle de la classe Font"

Mon code qui contient "Font" est :

Private Sub ComboBox1_Change()
For i = 2 To 5
With Sheets("Simulation").DrawingObjects("Bouton " & i)
If .Text = ComboBox1.Value Then
.Characters.Font.FontStyle = "Gras"
.Characters.Font.ColorIndex = 9
Else
.Characters.Font.FontStyle = "Normal"
.Characters.Font.ColorIndex = 0
End If
End With
Next
End Sub

Pouvez-vous m'aider à résoudre ce problème?

Je vous remercie,
Mat
 
Trier par date Trier par votes
Re : Impossible de définir la propriété FontStyle de la classe Font

bonsoir,
voici un exemple obtenu par enregistrement de macro :
With Selection.font
.Name = "Times New Roman"
.FontStyle = "Gras"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ici, il est bien question de "Gras" et non de "Bold" ...
bye
 
Vote positif 0 Vote négatif
Re : Impossible de définir la propriété FontStyle de la classe Font

bonjour,
ceci fonctionne également (en Excel 2000) :
Range("A5").Characters.font.FontStyle = "Gras italique"
alors que ceci ne fonctionne pas :
Range("A5").Characters.font.FontStyle = "Bold italic"
dans la question posée, le problème provient probablement de la définition de l'objet concerné mais ???
bye
 
Vote positif 0 Vote négatif
Re : Impossible de définir la propriété FontStyle de la classe Font

🙄 Salut, peut-être une idée,
Je pense que le souci est ici.
With Sheets("Simulation").DrawingObjects("Bouton " & i)
If .Text = ComboBox1.Value Then
D'ou provient l'expression Text ? Est-ce une variable, faut-il un . ?
Mets nous un fichier, la c'est pas clair.
@+
 
Vote positif 0 Vote négatif
Re : Impossible de définir la propriété FontStyle de la classe Font

Bonjour Mat, Dixit, Papapaul

essaye peut être en modifiant le débute de ta macro omme ci dessous :

Code: 
With Sheets("Simulation").Shapes("Bouton " & i).[B]TextFrame[/B]If .Text = ComboBox1.Value Then
.Characters.Font.Bold = True

bon après midi
@+
 
Vote positif 0 Vote négatif
Re : Impossible de définir la propriété FontStyle de la classe Font

Bonsoir, merci à tous pour vos message,

Voici en fait mon problème:

j'ai 4 boutons, dans une liste déroulante j'ai 4 choix (choix associés aux boutons).
Je veux que lorsque je selectionne 1 choix dans la liste, le bouton associé devienne en gras, dans une certaine couleur.

Ce code marche très bien:

Private Sub ComboBox1_Change()
For i = 2 To 5
With Sheets("Simulation").DrawingObjects("Bouton " & i)
If .Text = ComboBox1.Value Then
.Characters.Font.FontStyle = "Gras"
.Characters.Font.ColorIndex = 9
Else
.Characters.Font.FontStyle = "Normal"
.Characters.Font.ColorIndex = 0
End If
End With
Next
End Sub

Cependant j'ai voulu protéger mes boutons (éviter que d'un simple clic droit on puisse par exemple changer le nom du bouton...) grace à ce code:

ActiveSheet.Protect Password:="dima", Contents:=True, userInterfaceOnly:=True, DrawingObjects:=True

Cependant "DrawingObjects:=True" fait buguer mon premier code.

Pouvez-vous m'aider?
Merci d'avance,
Mat
 
Vote positif 0 Vote négatif
Re : Impossible de définir la propriété FontStyle de la classe Font

Re Mat

as tu essayé d'utiliser l'objet "TextFrame" comme indiqué dans mon précédent message, (saut de ligne a effectuer avant le "if")

bonne soirée
@+
 
Vote positif 0 Vote négatif
Re : Impossible de définir la propriété FontStyle de la classe Font

Salut Pierrot,

Je viens d'essayer mais apparament le code que tu m'as donné n'est pas complet: "Erreur de compilation, Erreur de Syntaxe". Cela semble venir de la 1ere ligne

With Sheets("Simulation").Shapes("Bouton " & i).TextFrameIf .Text = ComboBox1.Value Then
.Characters.Font.Bold = True

Tu peux m'aider ?

Merci de ton aide
 
Vote positif 0 Vote négatif
Re : Impossible de définir la propriété FontStyle de la classe Font

Bonsoir Mat

essaye comme ci dessous :

Code: 
Private Sub ComboBox1_Change()
For i = 2 To 5
With Sheets("Simulation").Shapes("Bouton " & i).TextFrame
If .Text = ComboBox1.Value Then
.Characters.Font.Bold = True
End If
End With
Next
End Sub

Si cela ne marche toujours pas mets un fichier en pièce jointe, ce sera plus facile pour t'aider.

bonne soirée
@+
 
Vote positif 0 Vote négatif
Re : Impossible de définir la propriété FontStyle de la classe Font

Bonsoir, non malheureusement cela ne fonctionne toujours pas.

Je vous ai mis le fichier en pièce jointe. Mon classeur comporte deux feuilles
- accueil (comporte 3 boutons: un qui active un second bouton ; un bouton pour fermer la feuille "Simulation"; un 3eme pour la faire apparaître)
- simulation (avec 1 menu déroulant et 4 boutons)

Je rappelle mes deux objectifs:

- avoir une feuille protégé et les boutons protégés aussi (avec ActiveSheet.Protect Password:="dima", Contents:=True, userInterfaceOnly:=True, DrawingObjects:=True)

- avoir un menu déroulant dont le choix au sein de sa liste met en surbrillance un bouton (Private Sub ComboBox1_Change()
For i = 2 To 5
With Sheets("Simulation").DrawingObjects("Bouton " & i)
If .Text = ComboBox1.Value Then
.Characters.Font.FontStyle = "Gras"
.Characters.Font.ColorIndex = 9
Else
.Characters.Font.FontStyle = "Normal"
.Characters.Font.ColorIndex = 0
End If
End With
Next
End Sub)

Je pense que la protection empêche mon second code de tourner mais je ne connais pas d'alternative.

Pouvez-vous m'aider?
Merci à vous,
Mat
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Impossible de définir la propriété FontStyle de la classe Font

Bonsoir Mat

je viens de testyer ton classeur et chez moi cela fonctionne parfaitement, ou alors je n'ais pas compris ta demande...(pas de débogage)


bonne soirée
@+
 
Vote positif 0 Vote négatif
Re : Impossible de définir la propriété FontStyle de la classe Font

Je ne comprend pas, chez moi à l'ouverture j'ai un message d'erreur 1004 et un debogage qui m'envoit sur:

.Characters.Font.FontStyle = "Gras"

Tu comprends pourquoi ?
J'ai excel 2002, je suis en protection basse.

Merci de ton aide,
Mat
 
Vote positif 0 Vote négatif
Re : Impossible de définir la propriété FontStyle de la classe Font

Salut Matiousky,

As-tu essayé de déprotéger ta feuille avant d'appliquer ton FontStyle !?

Est-ce que ça ne viendrait pas de là !
 
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

Discussions similaires

  • Résolu(e)
XL 2021 Comportement bizarre en Batch
Réponses
12
Affichages
247
jurassic pork
H
  • Question Question
XL 2016 Impossible de définir la propriété currentpage de la classe pivotfied
Réponses
4
Affichages
457
Hamadou
H
T
  • Question Question
XL 2016 Erreur d'exécution 1004 : Impossible de définir la propriété Hidden de la classe Range
Réponses
3
Affichages
440
Phil69970
C
  • Question Question
XL 2016 VBA - Mettre en Indice une partie du contenu d'une cellule : problème avec la propriété Font.Subscript
Réponses
2
Affichages
285
crocrocro
C
M
  • Question Question
XL 2021 Fichier partagé - erreur de l'objet TextRange2
Réponses
7
Affichages
223
macseb
M
  • Résolu(e)
XL 2010 Module de classe avec Dictionary
3 4 5
Réponses
66
Affichages
4 K
patricktoulon
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
332
Lu76Fer
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
647
Gestionnaire_rh
G
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
160
Lu76Fer
N
  • Résolu(e)
Microsoft 365 Mettre la 4ème colonne d'une ListBox au format [h]:mm
3 4 5
Réponses
68
Affichages
2 K
NONO14
N
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
665
AtTheOne
O
  • Question Question
XL 2019 Impossible de définir la propriété list valeur de propriété non valide
Réponses
3
Affichages
745
ogou
O
M
  • Question Question
XL 2010 Demande de quantité d'un produit dans un magasin spécifique selon la date la plus ancienne
2
Réponses
21
Affichages
2 K
Mody200
M
K
  • Question Question
XL 2019 Erreur Impossible de définir la propriété list. Le type ne correspond pas
2
Réponses
17
Affichages
2 K
kevindu63
K
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
422
oguruma
XLSM : Copie massive de ligne de données vers la grille
Réponses
3
Affichages
320
oguruma
  • Résolu(e)
XL 2019 Erreur dans ma macro
Réponses
9
Affichages
583
Nadou69
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
837
bérylion
B
  • Résolu(e)
XL 2010 Mauvaise utilisation de la fonction InStr
Réponses
11
Affichages
768
jurassic pork
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
707
Mody200
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…