Discussion :

[azerty]

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 !!

[SfJ5Rpw8]

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 :

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

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

[azerty]

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 :

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

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

[azerty]

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

[SfJ5Rpw8]

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

je sais pas tu est devant l'écran je vois rien

[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)

@++