XL 2019 Formule MFC dans un tableau

Emile63 · 17 Mars 2021

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.

riton00 · 17 Mars 2021

bonsoir,

Un essai

Slts

Emile63 · 17 Mars 2021

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.

Emile63 · 17 Mars 2021

If Intersect(Range("Tableau1"), Target) Is Nothing Then Exit Sub

Et du coup il ne lance pas calculate

riton00 · 18 Mars 2021

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

Emile63 · 19 Mars 2021

Merci Riton00,
c'est ok

XL 2019 Formule MFC dans un tableau

Emile63

XLDnaute Junior

riton00

XLDnaute Impliqué

Pièces jointes

Emile63

XLDnaute Junior

Emile63

XLDnaute Junior

riton00

XLDnaute Impliqué

Emile63

XLDnaute Junior

Discussions similaires