Comment colorier des lignes au dessus et dessous cellule active

[yves03]

Bonjour à tous,
A partir de cette macro je colorie la cellule active ainsi que les 2 cellules à sa droite, je voudrais aussi colorier en meme temps les 3 cellules au-dessus et les 3 cellules au-dessous.
Est-ce possible ?
Merci de votre aide.

If ComboBox1.Value = "CP" Then
With ActiveCell
    .Value = ""
    .Interior.ColorIndex = 5
    .Offset(0, 1).Value = Sheets("BDD").Cells(ComboBox1.ListIndex + 2, 2)
    .Offset(0, 1).Interior.ColorIndex = 5
    .Offset(0, 2).Value = ""
    .Offset(0, 2).Interior.ColorIndex = 5
End With
Unload Saisie
End If

 

[pierrejean]

Re : Comment colorier des lignes au dessus et dessous cellule active

bonjour yves03

tu peux t'inspirer de ceci:

Sub color()
x = ActiveCell.Row
y = ActiveCell.Column
Range(Cells(x - 1, y), Cells(x + 1, y + 2)).Value = ""
Range(Cells(x - 1, y), Cells(x + 1, y + 2)).Interior.ColorIndex = 5
End Sub

 

[DIGGERJACK]

Re : Comment colorier des lignes au dessus et dessous cellule active

Bonjour le forum


Voici ce que donne la recherche sur offset dans l'aide


RowOffset Argument de type Variant facultatif. Nombre de lignes (valeur positive, négative ou égale à 0 (zéro)) de décalage à appliquer à la plage. Les valeurs positives correspondent à un décalage vers le bas et les valeurs négatives à un décalage vers le haut. La valeur par défaut est 0.

ColumnOffset Argument de type Variant facultatif. Nombre de colonnes (valeur positive, négative ou égale à 0 (zéro)) de décalage à appliquer à la plage. Les valeurs positives correspondent à un décalage vers la droite et les valeurs négatives à un décalage vers la gauche. La valeur par défaut est 0.

Le premier chiffre est la ligne et le second la colonne offset(0,2)

A toi d'adapter et de tester

A te lire

 

[yves03]

Re : Comment colorier des lignes au dessus et dessous cellule active

bonjour yves03

tu peux t'inspirer de ceci:

Sub color()
x = ActiveCell.Row
y = ActiveCell.Column
Range(Cells(x - 1, y), Cells(x + 1, y + 2)).Value = ""
Range(Cells(x - 1, y), Cells(x + 1, y + 2)).Interior.ColorIndex = 5
End Sub

Merci PierreJean,
j'ai adapté le code à ma situation et ça fonctionne tres bien
A bientot
🙂

 

[C@thy]

Re : Comment colorier des lignes au dessus et dessous cellule active

Juste pour le fun :

à mettre dans ThisWorkbook :

Option Explicit
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Cel As Range
If Target.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
Set Cel = Target
If Not Cel Is Nothing Then Color
Application.ScreenUpdating = True
End Sub

et comme ça ça se fait dès qu'on clique, pas besoin de lancer la macro.
On peut aussi prévoir d'enlever le bleu sur les autres cellules quand on clique.

Biz

C@thy