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 Connaître le format d'une cellule en VBA

Connaître le format d'une cellule en VBA

10 réponses
Avatar
Nemrod Buchalwski
Bonjour,
Existe-t-il un moyen de savoir, en VBA, si le contenu d'une cellule est
en gras ou pas ?

Par avance merci

Nemroth
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
FxM
Existe-t-il un moyen de savoir, en VBA, si le contenu d'une cellule est
en gras ou pas ?


Bonsoir,

Sub test()
zz = (Range("A2").Font.Bold)
End Sub

zz= vrai si la cellule est en gras, sinon faux.


et Null si une partie seulement est en gras.

@+
FxM


Avatar
Nemroth
Merci pour la réponse

Nemroth


Existe-t-il un moyen de savoir, en VBA, si le contenu d'une cellule est
en gras ou pas ?


Bonsoir,

Sub test()
zz = (Range("A2").Font.Bold)
End Sub

zz= vrai si la cellule est en gras, sinon faux.


et Null si une partie seulement est en gras.

@+
FxM




Avatar
sabatier
hum, pour le Null, je ne suis pas si sûr que ça marche, françois-xavier
peux-tu essayer cela pour moi?

Sub test()
zz = (Range("A2").Font.Bold)
MsgBox zz
End Sub

jps


FxM a écrit:
Existe-t-il un moyen de savoir, en VBA, si le contenu d'une cellule est
en gras ou pas ?



Bonsoir,



Sub test()
zz = (Range("A2").Font.Bold)
End Sub

zz= vrai si la cellule est en gras, sinon faux.



et Null si une partie seulement est en gras.

@+
FxM





Avatar
Michel Gaboly
Salut Sabatier,

FxM a raison. Pour le vérifier, entre du texte dans une cellule, sélectionne une partie seulement des
caractères, et clique sur l'icône gras. Sélectionne la cellule et lance ce code :

Sub Test()
MsgBox IsNull(ActiveCell.Font.Bold)
End Sub

PS - Pas besoin d'une variable pour le test !



hum, pour le Null, je ne suis pas si sûr que ça marche, françois-xavier
peux-tu essayer cela pour moi?

Sub test()
zz = (Range("A2").Font.Bold)
MsgBox zz
End Sub

jps

FxM a écrit:
Existe-t-il un moyen de savoir, en VBA, si le contenu d'une cellule est
en gras ou pas ?



Bonsoir,



Sub test()
zz = (Range("A2").Font.Bold)
End Sub

zz= vrai si la cellule est en gras, sinon faux.



et Null si une partie seulement est en gras.

@+
FxM




--
Cordialement,

Michel Gaboly
http://www.gaboly.com




Avatar
sabatier
ah tiens te revoilà michel?
merci pour ta réponse mais pourquoi ça ne marche pas avec la variable?
bon, je relance la machine uniquement pour mes stats mais tu l'avais
déjà compris...
jps

Michel Gaboly a écrit:
Salut Sabatier,

FxM a raison. Pour le vérifier, entre du texte dans une cellule, sélectionne une partie seulement des
caractères, et clique sur l'icône gras. Sélectionne la cellule et lance ce code :

Sub Test()
MsgBox IsNull(ActiveCell.Font.Bold)
End Sub

PS - Pas besoin d'une variable pour le test !




hum, pour le Null, je ne suis pas si sûr que ça marche, françois-xavier
peux-tu essayer cela pour moi?

Sub test()
zz = (Range("A2").Font.Bold)
MsgBox zz
End Sub

jps

FxM a écrit:

Existe-t-il un moyen de savoir, en VBA, si le contenu d'une cellule est
en gras ou pas ?


Bonsoir,



Sub test()
zz = (Range("A2").Font.Bold)
End Sub

zz= vrai si la cellule est en gras, sinon faux.



et Null si une partie seulement est en gras.

@+
FxM





--
Cordialement,

Michel Gaboly
http://www.gaboly.com








Avatar
Philippe.R
Bonsoir tous,
Oui mais JPS aussi a raison, chez moi :

zz = (Range("A2").Font.Bold)

déclenche le message "utilisation incorrecte de Null"

en revanche, ta syntaxe renvoie bien "vrai" dans les mêmes circonstances.
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"Michel Gaboly" a écrit dans le message de news:
Salut Sabatier,

FxM a raison. Pour le vérifier, entre du texte dans une cellule, sélectionne une partie seulement des
caractères, et clique sur l'icône gras. Sélectionne la cellule et lance ce code :

Sub Test()
MsgBox IsNull(ActiveCell.Font.Bold)
End Sub

PS - Pas besoin d'une variable pour le test !



hum, pour le Null, je ne suis pas si sûr que ça marche, françois-xavier
peux-tu essayer cela pour moi?

Sub test()
zz = (Range("A2").Font.Bold)
MsgBox zz
End Sub

jps

FxM a écrit:
Existe-t-il un moyen de savoir, en VBA, si le contenu d'une cellule est
en gras ou pas ?



Bonsoir,



Sub test()
zz = (Range("A2").Font.Bold)
End Sub

zz= vrai si la cellule est en gras, sinon faux.



et Null si une partie seulement est en gras.

@+
FxM




--
Cordialement,

Michel Gaboly
http://www.gaboly.com








Avatar
Michel Gaboly
Bonsoir,

Ma syntaxe, comme tu dis, a pour unique fonction d'éviter le message d'erreur que tu cites ;-)))

On pourrait également, bien sûr, utiliser une gestion d'erreur.


Bonsoir tous,
Oui mais JPS aussi a raison, chez moi :

zz = (Range("A2").Font.Bold)

déclenche le message "utilisation incorrecte de Null"

en revanche, ta syntaxe renvoie bien "vrai" dans les mêmes circonstances.
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"Michel Gaboly" a écrit dans le message de news:
Salut Sabatier,

FxM a raison. Pour le vérifier, entre du texte dans une cellule, sélectionne une partie seulement des
caractères, et clique sur l'icône gras. Sélectionne la cellule et lance ce code :

Sub Test()
MsgBox IsNull(ActiveCell.Font.Bold)
End Sub

PS - Pas besoin d'une variable pour le test !



hum, pour le Null, je ne suis pas si sûr que ça marche, françois-xavier
peux-tu essayer cela pour moi?

Sub test()
zz = (Range("A2").Font.Bold)
MsgBox zz
End Sub

jps

FxM a écrit:
Existe-t-il un moyen de savoir, en VBA, si le contenu d'une cellule est
en gras ou pas ?



Bonsoir,



Sub test()
zz = (Range("A2").Font.Bold)
End Sub

zz= vrai si la cellule est en gras, sinon faux.



et Null si une partie seulement est en gras.

@+
FxM




--
Cordialement,

Michel Gaboly
http://www.gaboly.com





--
Cordialement,

Michel Gaboly
http://www.gaboly.com






Avatar
sabatier
tu ne me répondrais pas comme un turc, là, michel, par zazar?
essaie avec une variable et une msgbox et tu verras que le Null ne
s'affiche pas dans la Msgbox alors que pour vrai et faux ça marche
quant au clavier en turc, j'espère que tu n'as eu que des chiffres à
utiliser...
jps

Michel Gaboly a écrit:
Re,

Je reviens d'une mission d'un mois en Turquie et d'une semaine en montagne.

Au début, moi qui utilise surtout les Mac, je me suis retrouvé avec un vieux PC sous Win 95 Turc avec
Excel également en turc. Cela fait bizarre, sans parler du clavier ;-))

Quant à la variable, cela marche aussi ; elle est juste superflue, s'il s'agit uniquement d'afficher un message.



ah tiens te revoilà michel?
merci pour ta réponse mais pourquoi ça ne marche pas avec la variable?
bon, je relance la machine uniquement pour mes stats mais tu l'avais
déjà compris...
jps

Michel Gaboly a écrit:

Salut Sabatier,

FxM a raison. Pour le vérifier, entre du texte dans une cellule, sélectionne une partie seulement des
caractères, et clique sur l'icône gras. Sélectionne la cellule et lance ce code :

Sub Test()
MsgBox IsNull(ActiveCell.Font.Bold)
End Sub

PS - Pas besoin d'une variable pour le test !





hum, pour le Null, je ne suis pas si sûr que ça marche, françois-xavier
peux-tu essayer cela pour moi?

Sub test()
zz = (Range("A2").Font.Bold)
MsgBox zz
End Sub

jps

FxM a écrit:


Existe-t-il un moyen de savoir, en VBA, si le contenu d'une cellule est
en gras ou pas ?


Bonsoir,



Sub test()
zz = (Range("A2").Font.Bold)
End Sub

zz= vrai si la cellule est en gras, sinon faux.



et Null si une partie seulement est en gras.

@+
FxM



--

Cordialement,

Michel Gaboly
http://www.gaboly.com






--
Cordialement,

Michel Gaboly
http://www.gaboly.com










Avatar
Michel Gaboly
Re,

;-))

Le problème principal du clavier turc est qu'il comporte 2 "i" différents,
l'un avec point, l'autre sans.

Malheureusement, c'est le "i" sans point qui est placé là où nous avons l'habitude
d'avoir le "i" avec point (à droite du "u").

Chaque fois qu'on tape un "i" sans point dans un nom de fonction (en turc) ou
en VBA (en anglais) à la place d'un "i" avec point, le mot n'est pas reconnu, bien
évidemment.

Idem pour les mots de passe ; un vrai bordel :-(((



Pour en revenir à la variable, une valeur comme "Null" provoque un message d'erreur si
on ne prend pas de précaution.

Pour t'en convaincre, lance cette procédure :

Sub AffichNull()
MsgBox Null
End Sub

Un test est donc indispensable pour pouvoir afficher la valeur de la propriété si elle est "Null".

Sub Test()
Dim zz As String
If IsNull(ActiveCell.Font.Bold) Then
zz = "Null"
' ou zz = "La valeur de la propriété Bold (Gras) est ""Null"", ce qui signifie qu'une partie seulement du texte est en
gras."
Else
zz = ActiveCell.Font.Bold
End If
MsgBox zz
End Sub



tu ne me répondrais pas comme un turc, là, michel, par zazar?
essaie avec une variable et une msgbox et tu verras que le Null ne
s'affiche pas dans la Msgbox alors que pour vrai et faux ça marche
quant au clavier en turc, j'espère que tu n'as eu que des chiffres à
utiliser...
jps

Michel Gaboly a écrit:
Re,

Je reviens d'une mission d'un mois en Turquie et d'une semaine en montagne.

Au début, moi qui utilise surtout les Mac, je me suis retrouvé avec un vieux PC sous Win 95 Turc avec
Excel également en turc. Cela fait bizarre, sans parler du clavier ;-))

Quant à la variable, cela marche aussi ; elle est juste superflue, s'il s'agit uniquement d'afficher un message.



ah tiens te revoilà michel?
merci pour ta réponse mais pourquoi ça ne marche pas avec la variable?
bon, je relance la machine uniquement pour mes stats mais tu l'avais
déjà compris...
jps

Michel Gaboly a écrit:

Salut Sabatier,

FxM a raison. Pour le vérifier, entre du texte dans une cellule, sélectionne une partie seulement des
caractères, et clique sur l'icône gras. Sélectionne la cellule et lance ce code :

Sub Test()
MsgBox IsNull(ActiveCell.Font.Bold)
End Sub

PS - Pas besoin d'une variable pour le test !





hum, pour le Null, je ne suis pas si sûr que ça marche, françois-xavier
peux-tu essayer cela pour moi?

Sub test()
zz = (Range("A2").Font.Bold)
MsgBox zz
End Sub

jps

FxM a écrit:


Existe-t-il un moyen de savoir, en VBA, si le contenu d'une cellule est
en gras ou pas ?


Bonsoir,



Sub test()
zz = (Range("A2").Font.Bold)
End Sub

zz= vrai si la cellule est en gras, sinon faux.



et Null si une partie seulement est en gras.

@+
FxM



--

Cordialement,

Michel Gaboly
http://www.gaboly.com






--
Cordialement,

Michel Gaboly
http://www.gaboly.com





--
Cordialement,

Michel Gaboly
http://www.gaboly.com








Avatar
Michel Gaboly
Salut MacBob,

;-))

Retour bref; je repars en montagne demain. Si le temps est mauvais, j'avancerai sur mon site ;-))


Quel feu d'artifice de réponses. Je m'associe à jps pour saluer ton retour
Michel. Derrière mon Mac, je me sens moins seul.

MacBob 8°)))

Le 21/07/03 17:29, dans , « sabatier »
a écrit :

...et merci pour le cours, michel, même si je cherche despérément
comment je peux mettre cela en application mais bon...essential is
participate...
jps




--
Cordialement,

Michel Gaboly
http://www.gaboly.com