Visualiser cellule sélectionné

[ascal44]

Bonsoir à tous,

Comment avec un code VBA (sans format conditionnel) mettre le fond de cellule sélectionné en jaune et la police en rouge gras ?

Merci pour vos conseils

 

[BERRACHED said]

Re : Visualiser cellule sélectionné

Salut,ascal44

as tu essaye ça :

 Range("B7").Select
    With Selection.Interior
        .ColorIndex = 36
        .Pattern = xlSolid
    End With
    Range("B7").Select
    Selection.Font.ColorIndex = 3
    Selection.Font.Bold = True

l'exemple est pour la cellule "B7"

Cordialement

 

[ascal44]

Re : Visualiser cellule sélectionné

Merci, mais y aurait-il une autre possibilité ?
Je ne voudrais pas saisir un code pour chaque cellule.
Peut on l'appliquer à toute la feuille ?

 

[Staple1600]

Re : Visualiser cellule sélectionné

Bonsoir



A mettre dans le code de la feuille
(Clic-droit sur la feuille -> Visualiser le code

Coller la macro ci-dessous

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Interior.ColorIndex = 36
Target.Font.Bold = True
Target.Font.ColorIndex = 3
End Sub

EDITION : une variante
(qui prend en compte si une une cellule est vide ou pas)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsEmpty(Target) Then
With Target
    .Interior.ColorIndex = 36
    With .Font
        .Bold = True
        .ColorIndex = 3
    End With
End With
End If
End Sub

PS: Il faut utiliser une seule macro (soit l'une soit l'autre, pas les deux en même temps)
(Pas possible d'avoir deux macros avec le même nom

 

[JNP]

Re : Visualiser cellule sélectionné

Bonjour Ascal44, Berrached, Stapple 🙂,
Je ne sais si notre ami souhaite colorer chaque cellule qu'il sélectionne...
Sinon, le plus simple est :

Sub Colorie()
With Selection.Interior
        .ColorIndex = 36
        .Pattern = xlSolid
End With
Selection.Font.ColorIndex = 3
Selection.Font.Bold = True
End Sub

Et d'associer un équivalent clavier à la macro.
Bonne journée 😎

 

[BOISGONTIER]

Re : Visualiser cellule sélectionné

Bonjour,

Coloriage cellule active pour un champ seulement.

-Selectionner A2😀100
-Format/Mise en forme conditionnelle/La formule est
=ET(LIGNE()=CELLULE("ligne");COLONNE()=CELLULE("colonne"))

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

La mise en forme conditionnelle
http://boisgontierjacques.free.fr/fichiers/jb-Curseur.xls


JB
Formation Excel VBA JB

 

[Staple1600]

Re : Visualiser cellule sélectionné

Bonjour à tous


JNP:

Comment avec un code VBA (sans format conditionnel) mettre le fond de cellule sélectionné en jaune et la police en rouge gras ?

C'est vrai qu'il y a plusieurs interprétation possible. 😉