couleur de police dans sélection

mapomme

XLDnaute Barbatruc

Supporter XLD

• 11 Décembre 2018

• #2

Bonsoir coline741,

Essayez:

VB:

Sub Macro2()
    Selection.Font.ColorIndex = xlColorIndexAutomatic
End Sub

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Décembre 2018

• #3

Bonsoir coline741, mapomme,

Colore/décolore :

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.Font.ColorIndex = IIf(Target.Font.ColorIndex = 5, xlAutomatic, 5)
End Sub

A+

 

Vote positif 0 Vote négatif

C

coline741

XLDnaute Junior

• 12 Décembre 2018

• #4

Merci à mapomme & jobs75 pour leur réponse

Après maints essais, je n'arrive pas à remplacer cette macro à base de fonctions par le langage vba.

Pour la réponse de job75, je n'arrive même pas à la faire fonctionner

La macro couleurs (à base de fonctions) en colonne B a été faite comme une commande intégrée d'excel telle par exemple Ctrl+G qui mets le texte sélectionné en gras.

Ainsi, dans mon cas, si le texte sélectionné est en automatique, la commande "couleurs" le mets en bleu. Si je change d'avis je refais la même commande et la sélection revient en automatique.

C'est ce que je souhaite en VB.

Désolé, de m'être mal fait comprendre

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Décembre 2018

• #5

coline741 à dit:

Pour la réponse de job75, je n'arrive même pas à la faire fonctionner

Cliquez pour agrandir...

Fichier joint.

 

Pièces jointes

• FAUT TOUT LUI MÂCHER(1).xlsm

  18.6 KB · Affichages: 9
• FAUT TOUT LUI MÂCHER(1).xls

  59.5 KB · Affichages: 10

Vote positif 0 Vote négatif

C

coline741

XLDnaute Junior

• 12 Décembre 2018

• #6

Merci Job75 pour cette magnifique démonstration…mais je déteste les clics.

C'est la raison pour laquelle je voulais strictement transposer en vba la macro-commande. De plus, habitué aux fonctions depuis 1989, je ne me suis jamais vraiment mis au vba quand ce langage est apparu. Ai toujours recouru à des experts patients pour des macro-commandes en vba. Donc je devrai cliquer encore et encore et resterai fort déçu.

 

Vote positif 0 Vote négatif

C

coline741

XLDnaute Junior

• 12 Décembre 2018

• #7

Petit complément de déception à Job75

La macro-commande en xls4 fonctionne aussi bien sur une unique cellule que sur une sélection. Le doubleclic sur une sélection ne donne pas le résultat attendu…

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Décembre 2018

• #8

Re,

Pas de clic et sélection quelconque dans ce fichier (2) :

Code:

Sub Couleur()
'se lance par les touches Ctrl+B
ActiveCell.Activate 'si un objet est sélectionné
Selection.Font.ColorIndex = IIf(ActiveCell.Font.ColorIndex = 5, xlAutomatic, 5)
End Sub

A+

 

Pièces jointes

• FAUT TOUT LUI MÂCHER(2).xls

  64 KB · Affichages: 11

Vote positif 0 Vote négatif

C

coline741

XLDnaute Junior

• 12 Décembre 2018

• #9

GRAND MERCI à Job75 pour cette démonstration

Good Job !

 

Vote positif 0 Vote négatif