Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Attributs d'un caractères

Attributs d'un caractères

10 réponses
Avatar
Lulu la Nantaise
Bonjour,
Comment savoir quels sont les attributs (Gras, Italique, ...) du 3ème
caractère de la chaîne situées en A1 ?
Cordialement
Lulu
Signaler un problème avec ce contenu

10 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
Daniel
Bonjour.
Par exemple :
Range("A1").Characters(3, 1).Font.FontStyle
ou
Range("A1").Characters(3, 1).Font.Color
etc.
Cordialement.
Daniel
"Lulu la Nantaise" a écrit dans le message de news:
%23uY$
Bonjour,
Comment savoir quels sont les attributs (Gras, Italique, ...) du 3ème
caractère de la chaîne situées en A1 ?
Cordialement
Lulu



Avatar
Lulu la Nantaise
Merci beaucoup, n'y a t il pas moyen d'avoir tous les attributs d'un "bloc"
pour pouvoir les attribuer à un autre caractère ?
Merci encore
Lulu
"Daniel" a écrit dans le message de news:

Bonjour.
Par exemple :
Range("A1").Characters(3, 1).Font.FontStyle
ou
Range("A1").Characters(3, 1).Font.Color
etc.
Cordialement.
Daniel
"Lulu la Nantaise" a écrit dans le message de news:
%23uY$
Bonjour,
Comment savoir quels sont les attributs (Gras, Italique, ...) du 3ème
caractère de la chaîne situées en A1 ?
Cordialement
Lulu







Avatar
Daniel
Pas à ma connaissance.
Daniel
"Lulu la Nantaise" a écrit dans le message de news:
%
Merci beaucoup, n'y a t il pas moyen d'avoir tous les attributs d'un
"bloc" pour pouvoir les attribuer à un autre caractère ?
Merci encore
Lulu
"Daniel" a écrit dans le message de news:

Bonjour.
Par exemple :
Range("A1").Characters(3, 1).Font.FontStyle
ou
Range("A1").Characters(3, 1).Font.Color
etc.
Cordialement.
Daniel
"Lulu la Nantaise" a écrit dans le message de news:
%23uY$
Bonjour,
Comment savoir quels sont les attributs (Gras, Italique, ...) du 3ème
caractère de la chaîne situées en A1 ?
Cordialement
Lulu











Avatar
FFO
Salut Daniel

Animé d'une trés grande curiosité j'ai essayé ta ligne et me heurte à une
erreur de compilation :

"Utilisation incorrect de la propriété" avec .Color ou .FontStyle
sélectionné

Peux tu m'éclairer sur le sujet

Merci à toi


Bonjour.
Par exemple :
Range("A1").Characters(3, 1).Font.FontStyle
ou
Range("A1").Characters(3, 1).Font.Color
etc.
Cordialement.
Daniel
"Lulu la Nantaise" a écrit dans le message de news:
%23uY$
Bonjour,
Comment savoir quels sont les attributs (Gras, Italique, ...) du 3ème
caractère de la chaîne situées en A1 ?
Cordialement
Lulu








Avatar
Daniel
Bonjour.
Aucune idée; regarde le classeur :
http://cjoint.com/?hypYRmpQJ0
XL2003
Cordialement.
Daniel
"FFO" a écrit dans le message de news:

Salut Daniel

Animé d'une trés grande curiosité j'ai essayé ta ligne et me heurte à une
erreur de compilation :

"Utilisation incorrect de la propriété" avec .Color ou .FontStyle
sélectionné

Peux tu m'éclairer sur le sujet

Merci à toi


Bonjour.
Par exemple :
Range("A1").Characters(3, 1).Font.FontStyle
ou
Range("A1").Characters(3, 1).Font.Color
etc.
Cordialement.
Daniel
"Lulu la Nantaise" a écrit dans le message de news:
%23uY$
Bonjour,
Comment savoir quels sont les attributs (Gras, Italique, ...) du 3ème
caractère de la chaîne situées en A1 ?
Cordialement
Lulu










Avatar
FFO
Rebonjours à toi

Ton classeur présente un code différent de tes lignes proposées

Le code du classeur :

MsgBox [C1].Characters(3, 1).Font.FontStyle
MsgBox "Couleur " & [C1].Characters(3, 1).Font.Color

Qui fonctionne bien

Tes lignes :

Range("A1").Characters(3, 1).Font.FontStyle
Range("A1").Characters(3, 1).Font.Color

Qui en l'état me donne une erreur de compilation

Si je m'inspire du classeur avec tes lignes celà donne :

MsgBox [A1].Characters(3, 1).Font.FontStyle
MsgBox "Couleur " & [A1].Characters(3, 1).Font.Color


Ce qui là ne pose plus de problème

Je ne sais pas si ton écriture doit être utilisable en l'état auquel cas
j'ai une anomalie chez moi ou si c'est celle du classeur qui doit être
effectivement utilisé pour le cas d'espèce

Ton avis ????

Merci pour tes éclaircissements avisés


Bonjour.
Aucune idée; regarde le classeur :
http://cjoint.com/?hypYRmpQJ0
XL2003
Cordialement.
Daniel
"FFO" a écrit dans le message de news:

Salut Daniel

Animé d'une trés grande curiosité j'ai essayé ta ligne et me heurte à une
erreur de compilation :

"Utilisation incorrect de la propriété" avec .Color ou .FontStyle
sélectionné

Peux tu m'éclairer sur le sujet

Merci à toi


Bonjour.
Par exemple :
Range("A1").Characters(3, 1).Font.FontStyle
ou
Range("A1").Characters(3, 1).Font.Color
etc.
Cordialement.
Daniel
"Lulu la Nantaise" a écrit dans le message de news:
%23uY$
Bonjour,
Comment savoir quels sont les attributs (Gras, Italique, ...) du 3ème
caractère de la chaîne situées en A1 ?
Cordialement
Lulu















Avatar
Daniel
Remplace [C1] par range("A1"), c'est la seule différence ?
Daniel
"FFO" a écrit dans le message de news:

Rebonjours à toi

Ton classeur présente un code différent de tes lignes proposées

Le code du classeur :

MsgBox [C1].Characters(3, 1).Font.FontStyle
MsgBox "Couleur " & [C1].Characters(3, 1).Font.Color

Qui fonctionne bien

Tes lignes :

Range("A1").Characters(3, 1).Font.FontStyle
Range("A1").Characters(3, 1).Font.Color

Qui en l'état me donne une erreur de compilation

Si je m'inspire du classeur avec tes lignes celà donne :

MsgBox [A1].Characters(3, 1).Font.FontStyle
MsgBox "Couleur " & [A1].Characters(3, 1).Font.Color


Ce qui là ne pose plus de problème

Je ne sais pas si ton écriture doit être utilisable en l'état auquel cas
j'ai une anomalie chez moi ou si c'est celle du classeur qui doit être
effectivement utilisé pour le cas d'espèce

Ton avis ????

Merci pour tes éclaircissements avisés


Bonjour.
Aucune idée; regarde le classeur :
http://cjoint.com/?hypYRmpQJ0
XL2003
Cordialement.
Daniel
"FFO" a écrit dans le message de news:

Salut Daniel

Animé d'une trés grande curiosité j'ai essayé ta ligne et me heurte à
une
erreur de compilation :

"Utilisation incorrect de la propriété" avec .Color ou .FontStyle
sélectionné

Peux tu m'éclairer sur le sujet

Merci à toi


Bonjour.
Par exemple :
Range("A1").Characters(3, 1).Font.FontStyle
ou
Range("A1").Characters(3, 1).Font.Color
etc.
Cordialement.
Daniel
"Lulu la Nantaise" a écrit dans le message de news:
%23uY$
Bonjour,
Comment savoir quels sont les attributs (Gras, Italique, ...) du
3ème
caractère de la chaîne situées en A1 ?
Cordialement
Lulu

















Avatar
Lulu la Nantaise
Voici un bout de ma macro qui fonctionne superbement bien :

Range("A25").Select

ActiveCell.FormulaR1C1 = ['Client'!B22]

For Cpt = 1 To Len(Range("A25"))

With ActiveCell.Characters(Start:=Cpt, Length:=1).Font
.Name = "Courrier New"
.FontStyle = ['Client'!B22].Characters(Cpt, 1).Font.FontStyle
.Size = 11
.Strikethrough = ['Client'!B22].Characters(Cpt,
1).Font.Strikethrough
.Superscript = ['Client'!B22].Characters(Cpt,
1).Font.Superscript
.Subscript = ['Client'!B22].Characters(Cpt, 1).Font.Subscript
.OutlineFont = ['Client'!B22].Characters(Cpt,
1).Font.OutlineFont
.Shadow = ['Client'!B22].Characters(Cpt, 1).Font.Shadow
.Underline = ['Client'!B22].Characters(Cpt, 1).Font.Underline
.ColorIndex = ['Client'!B22].Characters(Cpt, 1).Font.ColorIndex
End With

Next Cpt

Merci beaucoup


"Daniel" a écrit dans le message de news:
%23%
Remplace [C1] par range("A1"), c'est la seule différence ?
Daniel
"FFO" a écrit dans le message de news:

Rebonjours à toi

Ton classeur présente un code différent de tes lignes proposées

Le code du classeur :

MsgBox [C1].Characters(3, 1).Font.FontStyle
MsgBox "Couleur " & [C1].Characters(3, 1).Font.Color

Qui fonctionne bien

Tes lignes :

Range("A1").Characters(3, 1).Font.FontStyle
Range("A1").Characters(3, 1).Font.Color

Qui en l'état me donne une erreur de compilation

Si je m'inspire du classeur avec tes lignes celà donne :

MsgBox [A1].Characters(3, 1).Font.FontStyle
MsgBox "Couleur " & [A1].Characters(3, 1).Font.Color


Ce qui là ne pose plus de problème

Je ne sais pas si ton écriture doit être utilisable en l'état auquel cas
j'ai une anomalie chez moi ou si c'est celle du classeur qui doit être
effectivement utilisé pour le cas d'espèce

Ton avis ????

Merci pour tes éclaircissements avisés


Bonjour.
Aucune idée; regarde le classeur :
http://cjoint.com/?hypYRmpQJ0
XL2003
Cordialement.
Daniel
"FFO" a écrit dans le message de news:

Salut Daniel

Animé d'une trés grande curiosité j'ai essayé ta ligne et me heurte à
une
erreur de compilation :

"Utilisation incorrect de la propriété" avec .Color ou .FontStyle
sélectionné

Peux tu m'éclairer sur le sujet

Merci à toi


Bonjour.
Par exemple :
Range("A1").Characters(3, 1).Font.FontStyle
ou
Range("A1").Characters(3, 1).Font.Color
etc.
Cordialement.
Daniel
"Lulu la Nantaise" a écrit dans le message de
news:
%23uY$
Bonjour,
Comment savoir quels sont les attributs (Gras, Italique, ...) du
3ème
caractère de la chaîne situées en A1 ?
Cordialement
Lulu





















Avatar
Daniel
Super !
Mais un copier / coller te donnes le même résultat, n'est-il pas ?
Daniel
"Lulu la Nantaise" a écrit dans le message de news:

Voici un bout de ma macro qui fonctionne superbement bien :

Range("A25").Select

ActiveCell.FormulaR1C1 = ['Client'!B22]

For Cpt = 1 To Len(Range("A25"))

With ActiveCell.Characters(Start:=Cpt, Length:=1).Font
.Name = "Courrier New"
.FontStyle = ['Client'!B22].Characters(Cpt, 1).Font.FontStyle
.Size = 11
.Strikethrough = ['Client'!B22].Characters(Cpt,
1).Font.Strikethrough
.Superscript = ['Client'!B22].Characters(Cpt,
1).Font.Superscript
.Subscript = ['Client'!B22].Characters(Cpt, 1).Font.Subscript
.OutlineFont = ['Client'!B22].Characters(Cpt,
1).Font.OutlineFont
.Shadow = ['Client'!B22].Characters(Cpt, 1).Font.Shadow
.Underline = ['Client'!B22].Characters(Cpt, 1).Font.Underline
.ColorIndex = ['Client'!B22].Characters(Cpt, 1).Font.ColorIndex
End With

Next Cpt

Merci beaucoup


"Daniel" a écrit dans le message de news:
%23%
Remplace [C1] par range("A1"), c'est la seule différence ?
Daniel
"FFO" a écrit dans le message de news:

Rebonjours à toi

Ton classeur présente un code différent de tes lignes proposées

Le code du classeur :

MsgBox [C1].Characters(3, 1).Font.FontStyle
MsgBox "Couleur " & [C1].Characters(3, 1).Font.Color

Qui fonctionne bien

Tes lignes :

Range("A1").Characters(3, 1).Font.FontStyle
Range("A1").Characters(3, 1).Font.Color

Qui en l'état me donne une erreur de compilation

Si je m'inspire du classeur avec tes lignes celà donne :

MsgBox [A1].Characters(3, 1).Font.FontStyle
MsgBox "Couleur " & [A1].Characters(3, 1).Font.Color


Ce qui là ne pose plus de problème

Je ne sais pas si ton écriture doit être utilisable en l'état auquel cas
j'ai une anomalie chez moi ou si c'est celle du classeur qui doit être
effectivement utilisé pour le cas d'espèce

Ton avis ????

Merci pour tes éclaircissements avisés


Bonjour.
Aucune idée; regarde le classeur :
http://cjoint.com/?hypYRmpQJ0
XL2003
Cordialement.
Daniel
"FFO" a écrit dans le message de news:

Salut Daniel

Animé d'une trés grande curiosité j'ai essayé ta ligne et me heurte à
une
erreur de compilation :

"Utilisation incorrect de la propriété" avec .Color ou .FontStyle
sélectionné

Peux tu m'éclairer sur le sujet

Merci à toi


Bonjour.
Par exemple :
Range("A1").Characters(3, 1).Font.FontStyle
ou
Range("A1").Characters(3, 1).Font.Color
etc.
Cordialement.
Daniel
"Lulu la Nantaise" a écrit dans le message de
news:
%23uY$
Bonjour,
Comment savoir quels sont les attributs (Gras, Italique, ...) du
3ème
caractère de la chaîne situées en A1 ?
Cordialement
Lulu

























Avatar
Lulu la Nantaise
Ben nan et je ne sais pas pourquoi, j'avais essayé :
range("Feuil1!A1").copy
range("A1").select
activesheet.paste

Mas ça ne fonctionnait pas...

De plus, cette méthode me permet de modifier pas mal de chose en fonction
d'autres paramètres.

Merci beaucoup de ton aide

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

Super !
Mais un copier / coller te donnes le même résultat, n'est-il pas ?
Daniel
"Lulu la Nantaise" a écrit dans le message de news:

Voici un bout de ma macro qui fonctionne superbement bien :

Range("A25").Select

ActiveCell.FormulaR1C1 = ['Client'!B22]

For Cpt = 1 To Len(Range("A25"))

With ActiveCell.Characters(Start:=Cpt, Length:=1).Font
.Name = "Courrier New"
.FontStyle = ['Client'!B22].Characters(Cpt, 1).Font.FontStyle
.Size = 11
.Strikethrough = ['Client'!B22].Characters(Cpt,
1).Font.Strikethrough
.Superscript = ['Client'!B22].Characters(Cpt,
1).Font.Superscript
.Subscript = ['Client'!B22].Characters(Cpt, 1).Font.Subscript
.OutlineFont = ['Client'!B22].Characters(Cpt,
1).Font.OutlineFont
.Shadow = ['Client'!B22].Characters(Cpt, 1).Font.Shadow
.Underline = ['Client'!B22].Characters(Cpt, 1).Font.Underline
.ColorIndex = ['Client'!B22].Characters(Cpt,
1).Font.ColorIndex
End With

Next Cpt

Merci beaucoup


"Daniel" a écrit dans le message de news:
%23%
Remplace [C1] par range("A1"), c'est la seule différence ?
Daniel
"FFO" a écrit dans le message de news:

Rebonjours à toi

Ton classeur présente un code différent de tes lignes proposées

Le code du classeur :

MsgBox [C1].Characters(3, 1).Font.FontStyle
MsgBox "Couleur " & [C1].Characters(3, 1).Font.Color

Qui fonctionne bien

Tes lignes :

Range("A1").Characters(3, 1).Font.FontStyle
Range("A1").Characters(3, 1).Font.Color

Qui en l'état me donne une erreur de compilation

Si je m'inspire du classeur avec tes lignes celà donne :

MsgBox [A1].Characters(3, 1).Font.FontStyle
MsgBox "Couleur " & [A1].Characters(3, 1).Font.Color


Ce qui là ne pose plus de problème

Je ne sais pas si ton écriture doit être utilisable en l'état auquel
cas
j'ai une anomalie chez moi ou si c'est celle du classeur qui doit être
effectivement utilisé pour le cas d'espèce

Ton avis ????

Merci pour tes éclaircissements avisés


Bonjour.
Aucune idée; regarde le classeur :
http://cjoint.com/?hypYRmpQJ0
XL2003
Cordialement.
Daniel
"FFO" a écrit dans le message de news:

Salut Daniel

Animé d'une trés grande curiosité j'ai essayé ta ligne et me heurte
à une
erreur de compilation :

"Utilisation incorrect de la propriété" avec .Color ou .FontStyle
sélectionné

Peux tu m'éclairer sur le sujet

Merci à toi


Bonjour.
Par exemple :
Range("A1").Characters(3, 1).Font.FontStyle
ou
Range("A1").Characters(3, 1).Font.Color
etc.
Cordialement.
Daniel
"Lulu la Nantaise" a écrit dans le message de
news:
%23uY$
Bonjour,
Comment savoir quels sont les attributs (Gras, Italique, ...) du
3ème
caractère de la chaîne situées en A1 ?
Cordialement
Lulu