couleur de police dans sélection

coline741

XLDnaute Junior
Bonjour aux champions du vba

Pour me faire comprendre est jointe une macro excel 4 écrite il y a longtemps

Aidé de l'enregistreur j'ai pu régler la première partie…satisfaisant pour mettre en bleu la sélection…mais ne fonctionne évidemment pas pour revenir à la couleur automatique (0)

Merci d'avance
 

Pièces jointes

  • macro_cel_bleu.xls
    39 KB · Affichages: 22

job75

XLDnaute Barbatruc
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+
 

coline741

XLDnaute Junior
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
 

coline741

XLDnaute Junior
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.
 

job75

XLDnaute Barbatruc
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

Discussions similaires

Réponses
15
Affichages
665
Compte Supprimé 979
C
Réponses
12
Affichages
369