Discussion :

[c.piette]

Bonjour le forum,

Voilà j'ai pas mal de feuille dans mon classeur, chacune de ces feuilles contient un tableau (ListObject). J'ai créé le contenu de ces feuilles par copier/coller. Donc les noms de tableaux ont été renommé par Excel.

J'aimerais donc écrire une macro me permettant de renommer dynamiquement ces tableaux. Mais le hic, comment accéder/manipuler un tableau dont on ne connait pas le nom ?

J'avais pensé à qqchose du style:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Sub RenomerTableau()
 
Dim Feuille As Sheets
 
For Each Feuille In ThisWorkbook.Sheets
 
    'Code permettant de renommer le tableau présent sur cette feuille
 
Next Feuille
 
End Sub

Merci d'avance pour l'aide !

[Theze]

Bonjour,

Si tu parle de zone nommées (Nom), tu peux parcourir la collection comme par exemple ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Test()
 
    Dim NomTbl As Name
 
    For Each NomTbl In ThisWorkbook.Names
 
        MsgBox NomTbl.Name & vbCrLf & Range(NomTbl).Address(0, 0)
 
    Next NomTbl
 
End Sub

Hervé.

[c.piette]

Bonjour à toi,

Un tableau Excel, donc un ListObject dans vba, c'est considéré comme une plage nommée ?

Je viens de tester ton code mais malheureusement, absolument rien ne se passe

Je viens de checker aussi le gestionnaire de nom et en effet, les tableaux sont bien repris comme des plages nommées ... Donc comment se fait-il que ton code ne donne aucun résultat ?


Merci pour ta réponse

Re encore,

J'ai finalement trouvé la solution, je la poste ici

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
Public Sub RenomerTableau()
 
Dim i As Integer
Dim NomTableau As String
 
    With ThisWorkbook
        For i = 3 To ThisWorkbook.Worksheets.Count
 
            NomTableau = "Tableau" & Replace(.Worksheets(i).Name, " ", "")
 
            Worksheets(i).ListObjects(1).Name = NomTableau
            Debug.Print Worksheets(i).ListObjects(1).Name
 
        Next i
    End With
 
End Sub

Bonne journée !

[joe.levrai]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
Sub oo()
Dim L As ListObject
Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Worksheets
        For Each L In Sh.ListObjects
            MsgBox L.Name & " " & Sh.Name
        Next L
    Next Sh
End Sub

EDIT : je pense qu'il est plus rapide de boucler sur la collection ListObjects ... ta proposition postée en même temps part du postulat que tes ListObjects ont un nom qui commence par "Tableau" ... donc avec des Tableaux renommés personnellement ça ne fonctionnera pas

[c.piette]

Re Joe,

En fait je pense que ton code a une portée plus générale: dans le cas où il y a plusieurs ListObject/Tableaux par feuille.

Par contre, je ne recherche pas par tableau commençant "Tableau", c'est ma manière de le renommer: "Tableau" + (Nom de la feuille) sans les espaces.

Le postulat que je fais est qu'il n'y a qu'un seul tableau par page à partir de la troisième page


Mais je remercie au passage car ton code me servira pour un autre cas de figure où là j'ai bel et bien plusieurs tableaux :p

C.

[joe.levrai]

ma proposition peut être utilisée également si tu n'as qu'un seul Tableau par Feuille

regarde comment gérer les deux cas :

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
Sub oo()
Dim i As Integer
Dim Sh As Worksheet
 
    For Each Sh In ThisWorkbook.Worksheets
        ' feuille avec 1 tableau
        If Sh.ListObjects.Count = 1 Then
 
            ' traitement du tableau
            MsgBox Sh.ListObjects(1).Name & " dans la feuille " & Sh.Name
 
        Else ' feuille avec plusieurs tableaux
 
            ' balayage des tableaux
            For i = 1 To Sh.ListObjects.Count
 
                'traitement de chaque tableau
                MsgBox Sh.ListObjects(i).Name & " dans la feuille " & Sh.Name & " qui contient " & Sh.ListObjects.Count & " tableaux"
 
            Next i
        End If
    Next Sh
End Sub

ton défaut est de ne jamais penser "collection" et l'ensemble des méthodes/propriétés associées, j'ai l'impression

[c.piette]

Re,


En tout cas, ce n'est pas parce que je ne veux pas mais parce que je ne connais pas encore : p

Même si je vois plus ou moins ce que tu veux dire, est-ce que tu sais étayer un peu plus et m'expliquer/illustrer ce que tu dis ? Que je sache quelle démarche de réflexion il faut que j'adopte à l'avenir ?

Bien à toi,

C.