XL 2019 Formule MFC dans un tableau

Emile63

XLDnaute Junior
Bonjour à tous,
Je souhaite appliquer une mise en forme conditionnelle [MFC] dans un [Tableau1] qui en sélectionnant n'importe quel cellule dans le tableau1 sélectionnerait toute la ligne en lui changeant le format, afin de bien la mettre en surbrillance. Je pense que cela est possible avec un peu de code VBA, mais je souhaiterais l'éviter.
-Est-ce que quelqu'un aurait une solution à me proposer ?
Merci d'avance pour votre aide et conseils.
 

Emile63

XLDnaute Junior
Bonsoir et merci riton00Ok, pour que ça fonctionne bien j'ai utiliser la solution 3
avec le code VBA :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
Comment puis-je faire pour arrêter le code si je ne suis pas dans le tableau1.
Par exemple: (ça ne fonctionne pas) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '
If Range("Tableau1").Address = Target.Address Then Exit Sub
Calculate
End Sub
J'ai brodé avec intersect mais sans succès non plus:
If Intersect((Target.Address), Range("Tableau1")) Then Exit Sub

D'autre part, comment arrêter le MFC si l'on clic hors du tableau1. Sur ton test, quand on clic sur des cellules hors du tableau, la sélection se fait quand même sur la même ligne que sélectionnée..

Encore merci pour cette proposition.
Bonne soirée.
 
Dernière édition:

riton00

XLDnaute Impliqué
Bonjour,

Supprimer la MFC et mettre un code vba


VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    With Range("A1:I25")
        .Interior.ColorIndex = xlColorIndexNone
        .Rows(1).Offset(1).Interior.ColorIndex = xlColorIndexNone
        If Not Intersect(Range("A1:I25"), Target(1, 1)) Is Nothing Then
            If Target.Column > 0 Then
                .Rows(Target.Row - 0).Interior.Color = RGB(239, 210, 70)
            End If
        End If
    End With
End Sub

Slts
 

Discussions similaires

Statistiques des forums

Discussions
315 135
Messages
2 116 627
Membres
112 816
dernier inscrit
Nounours_59