[VBA] [résolu] Excel - bug sur macro toute simple

Marsh Posté le 12-02-2007 à 12:19:23

Bonjour à tous

Je suis en train de me créer quelques macro perso, la j'en ai fait une qui me donne la couleur de fond de la cellule sélectionnée et ca marche

Code :

Sub DeterminerCodeCouleurCellule()
a = Selection.Interior.ColorIndex
b = MsgBox(a)
End Sub

par contre, j'ai essayé de faire ca pour la couleur de la police et la ca ne marche plus du tout :pfff: J'ai essayé plusieuers variantes mais aucune n'a marché (sauf quand je lui indique la cellule à sélectionner dans le code, mais c pas terriblement pratique...), le code actuel étant :

Code :

Sub DeterminerCodeCouleurPolice()
a = Selection.Characters(1, 1).Font.ColorIndex
b = MsgBox(a)
End Sub

Comment réussir à se planter sur une macro de 2 lignes... j'ai honte mais j'y arrive pas. Si quelqu'un pouvait me dépanner ca serait sympa :ange:

Merci d'avance et bonne journée à tous

Daboos

Message édité par daboos le 12-02-2007 à 15:36:31

Marsh Posté le 12-02-2007 à 12:19:23

Marsh Posté le 12-02-2007 à 14:52:49

Bonjour à tous
Bonjour Daboos

As tu essayé :
selection.font.colorindex=35

A+

Marsh Posté le 12-02-2007 à 15:35:56

Bonjour eric455

En fait, je veux connaître le numéro de colorindex du texte de la case sélectionnée... et pas lui attribuer un code.

Après avoir trituré le code un peu plus, j'ai enfin trouvé la solution. Je pensais qu'il fallait appliquer Font à Characters mais en fait, en l'appliquant juste à la sélection ca marche nickel. Le code corrigé donne donc :

Code :

Sub DeterminerCodeCouleurPolice()
a = Selection.Font.ColorIndex
b = MsgBox(a)
End Sub

Voila voila, au cas où ca intéresserait qqn

Bonne fin de journée à tous

DaBoos

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *