Surligner une ligne et colonne

Bonjour à tous,

Je me permet de venir ver vous car j'ai besoin de vos services.

J'ai essayé d'adapter ce code avec mes moyens

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Application.ScreenUpdating = False
   With Range("Tableau5")
      .Interior.ColorIndex = xlColorIndexNone
      .Rows(1).Offset(-1).Interior.ColorIndex = xlColorIndexNone
      If Not Intersect(Range("Tableau5"), Target(1, 1)) Is Nothing Then
         If Target.Column > 1 Then
            .Rows(Target.Row - 2).Interior.Color = RGB(239, 210, 70)
            .Columns(Target.Column).Interior.Color = RGB(239, 210, 70)
            .Cells(0, Target.Column).Interior.Color = RGB(239, 210, 70)
            Target(1, 1).Interior.Color = RGB(199, 207, 158)
         End If
      End If
   End With
End Sub

Il fonctionne pas efficacement, il y a des décalages entre la ligne sélectionnée puis la ligne surlignée.

Cela me fais ça dans tous les onglets

Vous pouvez m'aider ?

Bonjour,

Voici la correction

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Application.ScreenUpdating = False
   With Range("Tableau5")
      .Interior.ColorIndex = xlColorIndexNone
      .Rows(1).Offset(-1).Interior.ColorIndex = xlColorIndexNone
      If Not Intersect(Range("Tableau5"), Target(1, 1)) Is Nothing Then
         If Target.Column > 1 Then
            .Rows(Target.Row - 1).Interior.Color = RGB(239, 210, 70)
            .Columns(Target.Column - 1).Interior.Color = RGB(239, 210, 70)
            .Cells(0, Target.Column - 1).Interior.Color = RGB(239, 210, 70)
            Target(1, 1).Interior.Color = RGB(199, 207, 158)
         End If
      End If
   End With
End Sub

Le soucis ce situé au niveau du placement de ton curseur et la ligne à choisir

Merci pour ton coup de main

Je pense que les tableau ne sont pas identiques, et je n'arrive pas à appliquer ce code pour les autres onglets

Si cela te dérange pas tu peux jeter un œil stp

De plus, j'ai dû supprimer la mise en forme conditionnelle, car problème d'affichage, tu pense que ça peut être remplacé par autre chose ?

Merci

La mise en forme conditionnelle n'est pas utile ici,

Pour chaque tableau changer ça :

         .Rows(Target.Row - 2).Interior.Color = RGB(239, 210, 70)
            .Columns(Target.Column).Interior.Color = RGB(239, 210, 70)
            .Cells(0, Target.Column).Interior.Color = RGB(239, 210, 70)

en ça :

.Rows(Target.Row - 1).Interior.Color = RGB(239, 210, 70)
            .Columns(Target.Column - 1).Interior.Color = RGB(239, 210, 70)
            .Cells(0, Target.Column - 1).Interior.Color = RGB(239, 210, 70)

Normalement c'est bon sinon je regarderai ton fichier pour le modifier

pagesalex a écrit :

La mise en forme conditionnelle n'est pas utile ici,

Pour chaque tableau changer ça :

         .Rows(Target.Row - 2).Interior.Color = RGB(239, 210, 70)
            .Columns(Target.Column).Interior.Color = RGB(239, 210, 70)
            .Cells(0, Target.Column).Interior.Color = RGB(239, 210, 70)

en ça :

.Rows(Target.Row - 1).Interior.Color = RGB(239, 210, 70)
            .Columns(Target.Column - 1).Interior.Color = RGB(239, 210, 70)
            .Cells(0, Target.Column - 1).Interior.Color = RGB(239, 210, 70)

Normalement c'est bon sinon je regarderai ton fichier pour le modifier

Merciiii

j'ai réussi à tout modifier

Par contre je n'arrive pas à régler la MFC, la MFC prends toujours le dessus

je te joints une capture ci dessous

Dans le menu des MFC -> effacer -> toute les feuilles

pagesalex a écrit :

Dans le menu des MFC -> effacer -> toute les feuilles

Merci mais je veux qu'il y a une couleur alterneé pour les lignes

Tu devrais ouvrir un nouveau sujet je pense. Je vais faire des recherches