Erreur 9 en tri A/Z

Version imprimable

Erreur 9 en tri A/Z

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:

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

Bonjour,

Essayez ceci

Code:

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

30/04/2021, 11h00
Maxou 10

Nickel merci pour tous

bonne journée
30/04/2021, 14h01
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 ;)
30/04/2021, 15h07
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

1 pièce(s) jointe(s)

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

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
Pièce jointe 597003

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