Discussion :

[NujWex]

Bonjour,

j'ai créé une macro qui me permet de modifier la police d'une cellule et de l'afficher dans une TextBox.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CommandButton1_Click()
 
Sheets("Feuil1").Activate
Range("A1").Select
 
Application.Dialogs(xlDialogFontProperties).Show
 
With Me.TextBox1
        .Value = Sheets("Feuil1").Range("A1")
        .ForeColor = Sheets("Feuil1").Range("A1").Font.Color
        .FontName = Sheets("Feuil1").Range("A1").Font.Name
        .FontSize = Sheets("Feuil1").Range("A1").Font.Size
        .FontBold = Sheets("Feuil1").Range("A1").Font.Bold
        .FontUnderline = Sheets("Feuil1").Range("A1").Font.Underline
        .Font.Strikethrough = Sheets("Feuil1").Range("A1").Font.Strikethrough
    End With
 
End Sub

Le code marche parfaitement pour modifier la cellule mais quoi que je fasse ma Textbox est souligné.
Je suppose que la ligne qui pose problème est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.FontUnderline = Sheets("Feuil1").Range("A1").Font.Underline

Mais je trouve pas pourquoi.

Si quelqu'un peut m'aider...

Merci d'avance

[ARTURO83]

Bonjour,

Supprimez cette ligne puisque c'est elle qui fixe le soulignement

Cdlt

[NujWex]

Ma macro me sert aussi à modifier un titre et donc je veux que le soulignement soit visible quand il est présent dans la cellule, supprimer la ligne ne résout pas mon problème.

[unparia]

Bonjour
Parce que la propriété Font.Underline d'un objet range peut prendre l'une des valeurs suivantes :
xlUnderlineStyleNone
xlUnderlineStyleSingle
xlUnderlineStyleDouble
xlUnderlineStyleSingleAccounting
xlUnderlineStyleDoubleAccounting
alors que la propriété Font.Underline d'une textbox n'est qu'une booléenne (True ou False).
Et il se trouve que VBA/Excel traduit en valeur booléenne True toute valeur différente de 0

La propriété Font.Underline d'une textbox ne pouvant enfin qu'être True ou False, le soulignement éventuel ne saurait avoir qu'un seul style et non tous ceux prévus pour un objet range.
Il te faut donc traiter par exemple ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Textbox1.font.underline = range("A1").font.underline <> xlunderlinestylenone

[NujWex]

Génial, merci beaucoup pour cette solution et les explications