Discussion :

[Maxou 10]

Bonjour a tous,

je me tourne une nouvelle fois vers vous pour essayer de corriger mon code VBA...
Il marche nickel sauf quand je fais un tri alphabétique avec mon tableau. Il me mets une erreur 9 sur Set zone = .ListRows(Target.Row - .Range.Row).Range

voila mon code:

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
16
17
18
19
20
21
22
23
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim zone As Range
 
        If Not Intersect(Target, Range("Cartes")) Is Nothing Then
 
        Cells.FormatConditions.Delete
 
        With Target.ListObject
            Set zone = .ListRows(Target.Row - .Range.Row).Range
        End With
 
        With zone.FormatConditions.Add(xlExpression, Null, "=LIGNE(" & zone.Cells(1).Address(False, False) & ")=" & ActiveCell.Row)
        .Interior.Color = 9420794
        .Font.Bold = True
        zone.Font.Size = 14
 
        End With
 
        Else
        Cells.FormatConditions.Delete
 
    End If
End Sub

Bonne soirée

[ARTURO83]

Bonjour,

Essayez ceci

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
16
17
18
19
20
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim zone As Range
    On Error GoTo Sortie
    Application.EnableEvents = False
    If Not Intersect(Target, Range("Cartes")) Is Nothing Then
        Cells.FormatConditions.Delete
        With Target.ListObject
            Set zone = .ListRows(Target.Row - .Range.Row).Range
        End With
        With zone.FormatConditions.Add(xlExpression, Null, "=LIGNE(" & zone.Cells(1).Address(False, False) & ")=" & ActiveCell.Row)
            .Interior.Color = 9420794
            .Font.Bold = True
            zone.Font.Size = 14
        End With
    Else
        Cells.FormatConditions.Delete
    End If
Sortie:
    Application.EnableEvents = True
End Sub

Cdlt

[Maxou 10]

Nickel merci pour tous

bonne journée

[Pierre Fauconnier]

Salut.

Par curiosité, que cherches-tu à réaliser? Il est assez rare de devoir mettre une MFC sur UNE ligne d'un tableau structuré. En général, les MFC se placent dès la conception du classeur

[Maxou 10]

Salut,

Je viens finaliser un tableau qui répertorie toutes les cartes Pokémon de mon fils.... mais je suis pas hyper doué.

Comme il y a beaucoup de ligne, je préfère avoir un visu direct sur celle qui m’intéresse....
Le fait que le tableau soit déjà bien plein, les MFC faisait que le tableau devenez hyper lent.... d’où le fait de passer en VBA.
Le must serait aussi de passé en rouge les lignes si les 6 premières colonnes sont identiques dans le tableau.... mais je connais pas le code.

Bonne journée

[Pierre Fauconnier]

Si j'ai bien compris, tu veux mettre en surbrillance la ligne active du tableau?

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
16
17
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Range("tableau1"), Target) Is Nothing Then PaintTable
End Sub
 
Sub PaintTable()
  Dim r As Long
 
  r = ActiveCell.Row - Range("tableau1[#Headers]").Row
  With Range("tableau1").Font
    .Bold = False
    .Size = 11
  End With
  With Range("tableau1").ListObject.ListRows(r).Range.Font
    .Bold = True
    .Size = 14
  End With
End Sub

On pourrait (devrait?) définir dans une feuille éventuellement cachée le format de la ligne active et celle des autres lignes.