[VBA-E] Colorier à chaque fois la ligne selectionné

Version imprimable

15/01/2007, 16h59
azerty

[VBA-E] Colorier à chaque fois la ligne selectionné

Bonjour,

Sur excel, je cherche à réaliser la macros permettant de :

> Colorier la ligne dont la cellule est activé.

exemple

Si je clik sur A2, je veux que la ligne 2 soit colorié (de A2 à I2) et une fois que je clik sur B5 que la ligne A2 colorié redvienne transparente et c'est la ligne 5 qui est colorié (de A5 à I5)

Merci !!

voir
II-E. Worksheet_Change

le probléme c'est de mémoriser la derniére ligne colorisée ... par exemple on peu stocker le numéro de ligne dans la cellule A1:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Range("A:I"), Target) Is Nothing Then 'Verifie si bien dans la plage A:I
    iLg = Range("A1") 'On utilise la cellule A1 pour mémoriser la ligne colorisée
      If Target.Row <> iLg Then
      Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Interior.Color = vbBlue
       If iLg > 0 Then
         Range(Cells(iLg, 1), Cells(iLg, 9)).Interior.ColorIndex = xlNone
       End If
      iLg = Target.Row
    End If
  Range("A1") = iLg
 End If
End Sub

;)

Citation:
Envoyé par bbil
voir
II-E. Worksheet_Change j'ai trouvé l'astuce, il suffit de selectionner tout le tableau en fin de macros pour enlever les couleurs? peut importe la ligne??? Non???

le probléme c'est de mémoriser la derniére ligne colorisée ... par exemple on peu stocker le numéro de ligne dans la cellule A1:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("A:I"), Target) Is Nothing Then 'Verifie si bien dans la plage A:I iLg = Range("A1") 'On utilise la cellule A1 pour mémoriser la ligne colorisée If Target.Row <> iLg Then Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Interior.Color = vbBlue If iLg > 0 Then Range(Cells(iLg, 1), Cells(iLg, 9)).Interior.ColorIndex = xlNone End If iLg = Target.Row End If Range("A1") = iLg End If End Sub
;)

15/01/2007, 18h43
azerty

Ta programmation ne marche pas? G fait une connerie????????
15/01/2007, 18h46
SfJ5Rpw8

Citation:

Envoyé par azerty

Ta programmation ne marche pas? G fait une connerie????????

je sais pas tu est devant l'écran je vois rien :mouarf:
15/01/2007, 18h57
mortalino

Salut,

chez moi ça fonctionne superbement bien !

Il faut le mettre dans le module de la Feuille, et non dans le Module de ThisWorkBook (ni un Module normal)

@++
16/01/2007, 13h49
azerty

ça marche

ça roule ma poule !!

ça marche bien

MERCI :aie: