Discussion :

[chambinette]

Je souhaiterai obtenir une mire sous excel:

Explication : j'ai la cellule B15 sélectionnée, je souhaite que automatiquement la ligne 15 et la colonne B soit colorisées avec bien sur le choix de couleur.

Merci par avance de toutes propositions.

[QuestVba]

Bonjour,

Qu'entends-tu par

je souhaite que automatiquement

Dès que tu cliques sur une cellule ?

En tout cas voici déjà un code qui te permet de colorier la ligne et la colonne correspondant à ta cellule active

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub CouleurCellule()
'Récupération adresse celluel active
Adr = ActiveCell.Address
 
    Columns(Split(Columns(ActiveCell.Column).Address(ColumnAbsolute:=False), ":")(1) & ":" & Split(Columns(ActiveCell.Column).Address(ColumnAbsolute:=False), ":")(1)).Select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
 
    Rows(Range(Adr).Row & ":" & Range(Adr).Row).Select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
 
 
End Sub