Discussion :

[philippejam]

Bonjour,
Je cherche à faire fonctionner la macro ci dessous que j'ai récupérée sur le web :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  'Dans la plage de cellules utilisée ...
  With Me.UsedRange.Rows
    '... sauf la première ligne
    With .Offset(1).Resize(.Count - 1)
      ' - effacer la couleur
      .Interior.ColorIndex = xlNone
      ' - si la cellule active n'est pas dans cette plage : terminé
      If Intersect(Target, .Cells) Is Nothing Then Exit Sub
      ' - sinon : changer la couleur de la ligne
      Intersect(Target.EntireRow, .Cells).Interior.ColorIndex = 3
    End With
  End With
End Sub

J'ai comme message d'erreur :

Erreur d'exécution'1004'
Erreur définie par l'application ou par l'objet

Pouvez vous m'aider à régler ce problème?
Sachez que je suis plus que débutant sur le sujet...

ou peut être avez vous une solution plus simple pour mettre en surbrillance une ligne complète lorsque qu'une cellule est sélectionnée?

Merci

[Kimy_Ire]

Bonjour philippejam,

Voici quelque chose de très simple :

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Cells.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 3
 
End Sub

Fonctionne lorsqu'une cellule est sélectionnée.
Peut être modifié pour colorier plusieurs sélections de cellules.
EDIT :

Code avec la modif' :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Cells.Interior.ColorIndex = xlNone
 
If Target.Count > 1 Then
    For Each oCells In Target
        Rows(oCells.Row).Interior.ColorIndex = 3
    Next oCells
Else
    Rows(Target.Row).Interior.ColorIndex = 3
End If
 
End Sub

N'hésite pas à revenir vers moi !

Cordialement,
Kimy

[philippejam]

Bonjour Kimy,
Merci pour cette réponse réponse rapide !
Mes premiers tests avec ce code sont très concluants, je ferai un test réel demain.
Merci beaucoup
Philippe

[Menhir]

Pouvez vous m'aider à régler ce problème?

Une fois que tu as téléchargé ta macro, où l'as-tu placée pour essayer de la faire fonctionner ?

Si tu l'as placée dans un module standard, ça ne risque pas de marcher.

Voici quelque chose de très simple :

Effectivement, la macro présentée dans la question est bien compliquée pour ce qu'elle fait.

Peut être modifié pour colorier plusieurs sélections de cellules.

Ou bien ainsi :

Code :

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

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     Cells.Interior.ColorIndex = xlNone
     Target.EntireRow.Interior.ColorIndex = 3
 End Sub