Sélectionner les 5 premières lignes d'un tableau

**texas2607** · 26/10/2019, 15h29

Bonjour,

Comment sélectionner les 5 premiers résultats d'un tableau avec 2 colonnes et les mettre en forme ?.

J'ai plusieurs tableaux dans des feuilles différentes qui comportent tous 2 colonnes, les valeurs de ces tableaux proviennent d'une autre feuille 'Données'.
A chaque mise à jour que je fais sur ma feuille 'Données', il y a un nouveau tri automatique fait en vba sur ces tableaux (je fais un tri du + grand au + petit sur la colonne 2).

Avec ce code (je fais une boucle sur plusieurs feuilles pour sélectionner tous mes tableaux):

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
24
25
26
27
28
29
30
Dim Ws As Worksheet
 
For Each Ws In ThisWorkbook.Worksheets
    x = Sheets(Ws.Name).ListObjects.Count
    If Ws.Name <> "Données" Then
 
        For y = 1 To x
            ActiveWorkbook.Worksheets(Ws.Name).ListObjects(Sheets(Ws.Name).ListObjects(y).Name).Sort.SortFields.Clear
            ActiveWorkbook.Worksheets(Ws.Name).ListObjects(Sheets(Ws.Name).ListObjects(y).Name).Sort.SortFields.Add _
            Key:=Range(Sheets(Ws.Name).ListObjects(y).Name & "[" & Sheets(Ws.Name).ListObjects(y).HeaderRowRange(2) & "]"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
            With ActiveWorkbook.Worksheets(Ws.Name).ListObjects(Sheets(Ws.Name).ListObjects(y).Name).Sort
                .Header = xlYes
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With
        'Mise en forme
        'Entetes de tableaux
        With Sheets(Ws.Name).ListObjects(y).HeaderRowRange
            .Font.Color = vbWhite
            .Font.Bold = True
        End With
        ' 5 premiers sortis Bold + Jaune
 
        '-----------
 
        Next y
    End If
Next Ws

Dans "Mise en forme" je change la couleur d'écriture de l’entête des tableaux : OK.

Je voudrais remettre à 0 la mise en forme des tableaux après le tri et refaire la nouvelle mise en forme pour que les résultats 1 à 5 sois à chaque fois en Bold et couleur Jaune (et donc le reste des tableaux sans bold et couleur Blanc).
Mais comment sélectionner les 5 premiers résultats des 2 colonnes de chaque tableau et les mettre en forme tel que souhaité ?.

Merci de votre aide.
Fred

**tony76** · 26/10/2019, 16h16

bonjour,

Voici un bout de code a adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub mef()
    Sheets("Last week").Range("A2:B100").Style = "Normal"
 
    With Sheets("Last week").Range("A2:B6").Font
        .Bold = True
    End With
 
    With Sheets("Last week").Range("A2:B6").Interior
        .Color = 65535
    End With
End Sub

n’inclue pas la barre des titres

**texas2607** · 26/10/2019, 16h20

Bonjour et merci,
Mais comme j'ai plusieurs tableaux sur plusieurs feuilles difficile de le mettre dans 1 seul code car l'emplacement des tableaux dans les feuilles est différents et les tableaux n'ont pas le même nombres de lignes...

Fred

**tony76** · 26/10/2019, 17h31

et comme ça

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
 
Sub mdf()
Dim ws As Worksheet
 
    For Each ws In ThisWorkbook.Worksheets
        Sheets(ws.Name).Range("A2:XFD1048576").Style = "Normal"
 
        With Sheets(ws.Name).Range("A2:B6").Font
            .Bold = True
        End With
 
        With Sheets(ws.Name).Range("A2:B6").Interior
            .Color = 65535
        End With
    Next ws
 
End Sub

**texas2607** · 26/10/2019, 18h44

Envoyé par tony76

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
        With Sheets(ws.Name).Range("A2:B6").Font
            .Bold = True
        End With

Oui mais le souci comme je l'ai précisé c'est que aucun de mes tableaux n'est à la "même place"

Si je prends les 5 première lignes, certaines sont en D1:E5, d'autres en I2:J6, etc

Je pense qu'il doit exister un moyen de faire à partir de HeaderRowRange qui permet justement de localiser l’entête.
Peux être avec HeaderRowRange.address (qui me sort bien les coordonnées de l'entête) mais je n'y arrive pas pour l'instant