Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel mise en forme en utilisant des balises ?

mise en forme en utilisant des balises ?

6 réponses
Avatar
Emcy
Bonjours,

dans une cellule, j'ai :
comment ça <souligner><gras>roule</gras> ma poule</souligner> ?

comment faire en vba pour transfomer la cellule de façon à avoir "roule" qui
s'affiche en caractère gras et que "roule ma poule" soit soligner ?
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Patrick Fredin
Bonjour,

Le mieux et surtout le plus simple c'est que tu utilises l'enregistreur de
macro.

Comme tu dois le savoir, on peut appliquer un format à certains caractères
dans une cellule sans l'appliquer à toute la cellule. Il faut éditer le
contenu de la cellule, sélectionner les caractères à mettre en forme et, dans
le menu "Format" tu verras "Cellule", dans la boîte de dialogue qui apparait
il n'y a que l'onglet "Police".

Avec l'enregistreur de macro, tu verras comment cela se traduit en VBA.

--
Patrick


"Emcy" wrote:

Bonjours,

dans une cellule, j'ai :
comment ça <souligner><gras>roule</gras> ma poule</souligner> ?

comment faire en vba pour transfomer la cellule de façon à avoir "roule" qui
s'affiche en caractère gras et que "roule ma poule" soit soligner ?





Avatar
michdenis
Bonjour Emcy,

voici une façon de faire que tu devras adapter selon ton application :

La méthode Split requiert Excel 2000 ou plus récent.

'-------------------------------------
Sub Extraire()
Dim C As String, A As Integer
Dim D As Variant, E As Variant
Dim S As String, T As Integer

'pour extraire la chaine : roule ma poule
C = "<souligner><gras>roule</gras> ma poule</souligner>"
For A = 2 To 3
D = Split(C, ">")(A)
E = Split(D, "<")(0)
S = S & E & " "
Next

'Pour affecter le résultat à une cellule donnée
'et formater cette cellule.
With Range("A1")
.Value = S
T = InStr(1, S, " ", vbTextCompare)
.Characters(1, T).Font.Bold = True
.Characters.Font.Underline = True
End With

End Sub
'-------------------------------------


Salutations!



"Emcy" a écrit dans le message de news:
Bonjours,

dans une cellule, j'ai :
comment ça <souligner><gras>roule</gras> ma poule</souligner> ?

comment faire en vba pour transfomer la cellule de façon à avoir "roule" qui
s'affiche en caractère gras et que "roule ma poule" soit soligner ?
Avatar
Emcy
bonjours,

merci


"michdenis" a écrit dans le message de news:

Bonjour Emcy,

voici une façon de faire que tu devras adapter selon ton application :

La méthode Split requiert Excel 2000 ou plus récent.

'-------------------------------------
Sub Extraire()
Dim C As String, A As Integer
Dim D As Variant, E As Variant
Dim S As String, T As Integer

'pour extraire la chaine : roule ma poule
C = "<souligner><gras>roule</gras> ma poule</souligner>"
For A = 2 To 3
D = Split(C, ">")(A)
E = Split(D, "<")(0)
S = S & E & " "
Next

'Pour affecter le résultat à une cellule donnée
'et formater cette cellule.
With Range("A1")
.Value = S
T = InStr(1, S, " ", vbTextCompare)
.Characters(1, T).Font.Bold = True
.Characters.Font.Underline = True
End With

End Sub
'-------------------------------------


Salutations!



"Emcy" a écrit dans le message de news:

Bonjours,

dans une cellule, j'ai :
comment ça <souligner><gras>roule</gras> ma poule</souligner> ?

comment faire en vba pour transfomer la cellule de façon à avoir "roule"
qui
s'affiche en caractère gras et que "roule ma poule" soit soligner ?





Avatar
Emcy
en fait ça ne marche pas totalement

si je mets une chaine plus complexe ça ne met pas la fin du text. ex :
<souligner><gras>coucou</gras> comment ça va ?</souligner> Moi je
<gras>vais</gras> bien

m'affiche "coucou comment ça va ? : "Moi je vais bien" n'apparait pas

"Emcy" a écrit dans le message de news:
urJ3pb$
bonjours,

merci


"michdenis" a écrit dans le message de news:

Bonjour Emcy,

voici une façon de faire que tu devras adapter selon ton application :

La méthode Split requiert Excel 2000 ou plus récent.

'-------------------------------------
Sub Extraire()
Dim C As String, A As Integer
Dim D As Variant, E As Variant
Dim S As String, T As Integer

'pour extraire la chaine : roule ma poule
C = "<souligner><gras>roule</gras> ma poule</souligner>"
For A = 2 To 3
D = Split(C, ">")(A)
E = Split(D, "<")(0)
S = S & E & " "
Next

'Pour affecter le résultat à une cellule donnée
'et formater cette cellule.
With Range("A1")
.Value = S
T = InStr(1, S, " ", vbTextCompare)
.Characters(1, T).Font.Bold = True
.Characters.Font.Underline = True
End With

End Sub
'-------------------------------------


Salutations!



"Emcy" a écrit dans le message de news:

Bonjours,

dans une cellule, j'ai :
comment ça <souligner><gras>roule</gras> ma poule</souligner> ?

comment faire en vba pour transfomer la cellule de façon à avoir "roule"
qui
s'affiche en caractère gras et que "roule ma poule" soit soligner ?









Avatar
michdenis
Bonjour Emcy,

La proposition que je t'ai faite était basée sur une certaine séquence des balises HTML que tu as proposée dans ta question. Si ces
balises changent régulièrement, il n'est pas surprenant que le résultat attendu ne soit pas au rendez-vous. Je ne suis pas sûr que
ce que tu cherches est possible... comme je ne connais pas le code HTML, il m'est difficile de trouver un pattern général des
balises à partir duquel je pourrais élaborer une procédure. Je m'en tiendrai à ma proposition initiale.

"<souligner><gras>roule</gras> ma poule</souligner>"


Salutations!




"Emcy" a écrit dans le message de news: uSYjkg$
en fait ça ne marche pas totalement

si je mets une chaine plus complexe ça ne met pas la fin du text. ex :
<souligner><gras>coucou</gras> comment ça va ?</souligner> Moi je
<gras>vais</gras> bien

m'affiche "coucou comment ça va ? : "Moi je vais bien" n'apparait pas

"Emcy" a écrit dans le message de news:
urJ3pb$
bonjours,

merci


"michdenis" a écrit dans le message de news:

Bonjour Emcy,

voici une façon de faire que tu devras adapter selon ton application :

La méthode Split requiert Excel 2000 ou plus récent.

'-------------------------------------
Sub Extraire()
Dim C As String, A As Integer
Dim D As Variant, E As Variant
Dim S As String, T As Integer

'pour extraire la chaine : roule ma poule
C = "<souligner><gras>roule</gras> ma poule</souligner>"
For A = 2 To 3
D = Split(C, ">")(A)
E = Split(D, "<")(0)
S = S & E & " "
Next

'Pour affecter le résultat à une cellule donnée
'et formater cette cellule.
With Range("A1")
.Value = S
T = InStr(1, S, " ", vbTextCompare)
.Characters(1, T).Font.Bold = True
.Characters.Font.Underline = True
End With

End Sub
'-------------------------------------


Salutations!



"Emcy" a écrit dans le message de news:

Bonjours,

dans une cellule, j'ai :
comment ça <souligner><gras>roule</gras> ma poule</souligner> ?

comment faire en vba pour transfomer la cellule de façon à avoir "roule"
qui
s'affiche en caractère gras et que "roule ma poule" soit soligner ?









Avatar
Emcy
merci quand même pour ton aide.

"michdenis" a écrit dans le message de news:

Bonjour Emcy,

La proposition que je t'ai faite était basée sur une certaine séquence des
balises HTML que tu as proposée dans ta question. Si ces
balises changent régulièrement, il n'est pas surprenant que le résultat
attendu ne soit pas au rendez-vous. Je ne suis pas sûr que
ce que tu cherches est possible... comme je ne connais pas le code HTML,
il m'est difficile de trouver un pattern général des
balises à partir duquel je pourrais élaborer une procédure. Je m'en
tiendrai à ma proposition initiale.

"<souligner><gras>roule</gras> ma poule</souligner>"


Salutations!




"Emcy" a écrit dans le message de news:
uSYjkg$
en fait ça ne marche pas totalement

si je mets une chaine plus complexe ça ne met pas la fin du text. ex :
<souligner><gras>coucou</gras> comment ça va ?</souligner> Moi je
<gras>vais</gras> bien

m'affiche "coucou comment ça va ? : "Moi je vais bien" n'apparait pas

"Emcy" a écrit dans le message de news:
urJ3pb$
bonjours,

merci


"michdenis" a écrit dans le message de news:

Bonjour Emcy,

voici une façon de faire que tu devras adapter selon ton application :

La méthode Split requiert Excel 2000 ou plus récent.

'-------------------------------------
Sub Extraire()
Dim C As String, A As Integer
Dim D As Variant, E As Variant
Dim S As String, T As Integer

'pour extraire la chaine : roule ma poule
C = "<souligner><gras>roule</gras> ma poule</souligner>"
For A = 2 To 3
D = Split(C, ">")(A)
E = Split(D, "<")(0)
S = S & E & " "
Next

'Pour affecter le résultat à une cellule donnée
'et formater cette cellule.
With Range("A1")
.Value = S
T = InStr(1, S, " ", vbTextCompare)
.Characters(1, T).Font.Bold = True
.Characters.Font.Underline = True
End With

End Sub
'-------------------------------------


Salutations!



"Emcy" a écrit dans le message de news:

Bonjours,

dans une cellule, j'ai :
comment ça <souligner><gras>roule</gras> ma poule</souligner> ?

comment faire en vba pour transfomer la cellule de façon à avoir "roule"
qui
s'affiche en caractère gras et que "roule ma poule" soit soligner ?