Discussion :

[Nicoyong]

Bonjour à tous.
Mon intitulé paraît simple, mais pour moi ce n'est pas si simple que ça. Tout d'abord je vais vous présenter la partie du code qui me pose problème :

Code :

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

1
2
3
4
5
6
 With Range("A" & LigRecap)
    .Value = "Sondage " & Nsondage & " " & Localisation & " " & localisation2
    .HorizontalAlignment = xlLeft
    .Font.Underline = xlUnderlineStyleSingle
 
    End With:

Jusqu'ici rien de bien sorcier pour moi même si mon code doit être du bidouillage, le problème est que je voudrais mettre en évidence par un changement de taille de police et mettre en gras : sondage et la valeur contenue dans la variable Nsondage.
Je vous remercie d'avance pour l'attention portée à mon problème

[patricktoulon]

bonsoir
exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
    With Range("A10")
        nsondage = "opignion"
        Localisation = "marseille"
        localisation2 = "toulon"
        .Value = "Sondage " & nsondage & " " & Localisation & " " & localisation2
        .HorizontalAlignment = xlLeft
        .Font.Underline = xlUnderlineStyleSingle
        With .Characters(Start:=Len(Split(.Value, nsondage)(0)), Length:=Len(nsondage) + 1).Font
            .FontStyle = "Gras italique"
            .Color = vbRed
        End With
    End With
End Sub

[Nicoyong]

Merci de votre réponse, qui fonctionne parfaitement. Cependant pouvez-vous me fournir s'il vous plaît des explications sur la ligne de code suivante :

Code :

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

 With .Characters(Start:=Len(Split(.Value, Nsondage)(0)), Length:=Len(Nsondage) + 1).Font

C'est la ligne qui permet de sélectionner les caractères sur lequel je veux appliquer les modifications. Le problème c'est que je n'arrive pas à comprendre comment elle fonctionne car je souhaite agir aussi sur le mot sondage et je ne sais pas comment le rajouter.

[patricktoulon]

bonjour


With .Characters(Start:=Len(Split(.Value, Nsondage)(0)), Length:=Len(Nsondage) + 1).Font


Len(Split(.Value, Nsondage)(0)), == te donne le nombre de caractere avant la varvriable nsondage

Length:=Len(Nsondage) + 1). te donne le nombre de caractere que contient nsondage

parti de la c'est facile
*start c'est le debut que l'on choisi et length la duré (nombre de caractere apres a modifier



nsondage='toto"
local1 ="paris"
local2="lyon"

ainsi si j'ai "sondage" & nsondage & local1 & local2

on obtiens dans la cellule

sondage toto paris lyon


et donc !!!:::

split(.value,nsondage)(0) te donne "sondage "

len (split(.value,nsondage)(0) te donne 8

Len(Nsondage) + 1 te donne 5 ( toto plus l'espace )

dons si je fait

Code :

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

1
2
3

With .Characters(Start:=8,Length:=5).Font .fontstyle="gras italic"

tu obtiendra le meme resultat on aura toto en gras italisc

fin du cours

[Nicoyong]

Merci pour ce superbe cours