Soulignement via une macro

Bonjour;
tu peux essayer :
Selection.Font.Underline = xlUnderlineStyleSingle
Jacks

Bonjour,

Dans la formule ci-dessous, je souhaiterai que dans le résultat de la
cellule (1,1) 'Type de gestion : ' soit souligné et que 'Gestion.Value' ne le
soit pas. J'ai essayé avec &S, mais cela ne fonctionne pas.

Cells(1, 1) = "Type de gestion : " & Gestion.Value

Merci d'avance.

Tucky

Merci Jacks,

J'ai essayé, mais le soulignement s'applique sur tout le résultat ; et je
voudrai que cela ne s'applique que sur une partie (Type de gestion).

Tucky

Bonjour;
tu peux essayer :
Selection.Font.Underline = xlUnderlineStyleSingle
Jacks

Bonjour,

Dans la formule ci-dessous, je souhaiterai que dans le résultat de la
cellule (1,1) 'Type de gestion : ' soit souligné et que 'Gestion.Value' ne le
soit pas. J'ai essayé avec &S, mais cela ne fonctionne pas.

Cells(1, 1) = "Type de gestion : " & Gestion.Value

Merci d'avance.

Tucky

Sub zzz()
With Cells(1, 1)
.Value = "Type de gestion : " & Gestion.Value
y = [find(":",A1)]
.Font.Underline = xlUnderlineStyleNone
.Characters(Start:=1, Length:=y).Font.Underline = xlUnderlineStyleSingle
End With
End Sub

AV

Merci pour cet élément de réponse, mais si il y a deux fois les deux point
("Type de gestion : " & Gestion.Value & " / Périmètre : " & Perimetre.Value),
comment peut-on faire?

Merci d'avance.

Ambroise

Sub zzz()
With Cells(1, 1)
.Value = "Type de gestion : " & Gestion.Value
y = [find(":",A1)]
.Font.Underline = xlUnderlineStyleNone
.Characters(Start:=1, Length:=y).Font.Underline = xlUnderlineStyleSingle
End With
End Sub

AV

| Merci pour cet élément de réponse,

C'est pas un élément de réponse mais la réponse à ta question...si je ne m'abuse

| mais si il y a deux fois les deux point

Est-ce bien le dernier "tiroir" de la question ?

AV

Effectivement ce n'est pas un élément de réponse, mais la réponse; et je t'en
remercie. Quand au "tiroir", c'est bien le dernier.

Tucky

| Merci pour cet élément de réponse,

C'est pas un élément de réponse mais la réponse à ta question...si je ne m'abuse

| mais si il y a deux fois les deux point

Est-ce bien le dernier "tiroir" de la question ?

AV

| Merci pour cet élément de réponse, mais si il y a deux fois les deux point
| ("Type de gestion : " & Gestion.Value & " / Périmètre : " & Perimetre.Value),
| comment peut-on faire?

Sub zzz()
With Cells(1, 1)
.Value = ("Type de gestion : " & Gestion.Value & " / Périmètre : " &
Perimetre.Value
x = [find("Périmètre",A1)]
.Font.Underline = xlUnderlineStyleNone
.Characters(Start:=1, Length:).Font.Underline = xlUnderlineStyleSingle
.Characters(Start:=x, Length:=9).Font.Underline = xlUnderlineStyleSingle
End With
End Sub

AV

Merci pour ta réponse, c'est exactement ce que je cherchais.
Désolé pour "l'élément de réponse..." de tout à l'heure.

Tucky

| Merci pour cet élément de réponse, mais si il y a deux fois les deux point
| ("Type de gestion : " & Gestion.Value & " / Périmètre : " & Perimetre.Value),
| comment peut-on faire?

Sub zzz()
With Cells(1, 1)
.Value = ("Type de gestion : " & Gestion.Value & " / Périmètre : " &
Perimetre.Value
x = [find("Périmètre",A1)]
.Font.Underline = xlUnderlineStyleNone
.Characters(Start:=1, Length:).Font.Underline = xlUnderlineStyleSingle
.Characters(Start:=x, Length:=9).Font.Underline = xlUnderlineStyleSingle
End With
End Sub

AV

| Désolé pour "l'élément de réponse..." de tout à l'heure.

Y a pas de soucis
AV