Indication colonne active

[Bremic83]

Bonjour à tous.

Mes connaissances en langage VBA étant quasi nulles,je n'arrive pas à obtenir le résultat souhaité,alors,je vous appelle à l'aide.

La macro,çi-dessous,indique par en-tête rouge,la colonne sélectionnée.
Je voudrais étendre son action.
La colonne est composée des cellules 25 à 35,et la sélection se fait par clic
sur une cellule de cette colonne.
Actuellement,cette action se limite à la cellule 25,et je voudrais,en plus,par la même manip :
a) enlever la couleur de remplissage des cellules de 28 à 35,de la colonne choisie.
b) colorer la cellule 27 ainsi : police en bleu très foncé,remplissage en jaune citron.

Merci d'avance à tout intervenant.

A plus

Bremic83



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("D25:O35")) Is Nothing Then Exit Sub
'enlève la couleur en ligne 1
Range("D25:O25").Interior.ColorIndex = xlNone
' colorie la ligne 1 de la colonne active
Cells(25, Target.Column).Interior.ColorIndex = 3
End Sub

 

[youky(BJ)]

Re : Indication colonne active

Bonsoir Bremic, bonsoir soenda,
Soenda, j'ai fais un coktail de nos deux macro avec un petit zest de citron, le tout sera à à servir et consommer bien glacé.
En espérant que ce coktail ne soit pas trop coloré et réponde à la demande.
Bruno

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D25:O25")) Is Nothing Then
Range("D25:O25").Interior.ColorIndex = xlNone
Cells(25, Target.Column).Interior.ColorIndex = 3
Range(Cells(28, Target.Column), Cells(35, Target.Column)).Interior.ColorIndex = xlNone
Cells(27, Target.Column).Interior.ColorIndex = 6
Cells(27, Target.Column).Font.ColorIndex = 49
End If
If Not Intersect(Target, Range("D27:O27")) Is Nothing Then
 With Target  ' x colonnes à partir de la colonne D
    
        ' Propriétés communes à tout le tableau
        With .Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .PatternTintAndShade = 0
        End With
        
        ' Propriétés spécifiques aux cellules de l'entête du tableau
        With .Resize(1)
            With .Interior
                .Color = 6299648
                .TintAndShade = 0
            End With
            .Font.Color = -16711681
        End With
        
        ' Propriétés spécifiques au reste des cellules du tableau
        With .Offset(1).Resize(8).Interior
            .ThemeColor = xlThemeColorAccent1
            .TintAndShade = 0.799981688894314
        End With
        
   End With
   
End If
End Sub

 

[soenda]

Re : Indication colonne active

Re,

Bonsoir Youky(BJ) 🙂

A plus