Discussion :

[Markos22]

Bonjour à tous,

Afin de copier et traiter des données dans une plage Excel, je souhaite la transformer en tableau. Je fais donc :

Code :

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

ActiveSheet.ListObjects.Add(xlSrcRange).Name = "Tableau1"

Ça marche parfaitement. Le problème survient lorsque je veux réutiliser la même macro quand ce tableau est déjà créé. Je souhaite donc dire quelque chose comme :

Code :

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

1
2
3
If Not Exists Range("Tableau1")
     ActiveSheet.ListObjects.Add(xlSrcRange).Name = "Tableau1"
End If

Mais ce code n'existe pas. Comment dois-je faire ?

Merci de votre aide.

[joe.levrai]

Bonjour,

si ta feuille ne possède qu'un tableau (ou zéro), tu peux interroger ainsi :

Code :

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

ActiveSheet.ListObjects.Count

renvoie le nombre de tableaux de la feuille active

et pour une fonction personnalisée

Code :

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

1
2
3
Function TabExiste(LaFeuille As Worksheet) As Boolean
    TabExiste = LaFeuille.ListObjects.Count > 0
End Function

qui renverra FAUX s'il n'y a aucun tableau sur LaFeuille

Code :

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

If Not TabExiste(ActiveSheet) Then

En cas de multiples tableaux, on complexifie la recherche en balayant les tableaux et en interrogeant leur nom

Code :

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

1
2
3
4
5
6
7
8
9
Function TabExiste(NomTableau As String, LaFeuille As Worksheet) As Boolean
Dim Tableau As ListObject
    For Each Tableau In LaFeuille.ListObjects
        If Tableau.Name = NomTableau Then
            TabExiste = True
            Exit Function
        End If
    Next Tableau
End Function

qu'on appelle ainsi

Code :

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

If Not TabExiste("Tableau1", ActiveSheet) Then

[Markos22]

Bonjour joe.levrai,

Merci pour ta réponse très complète. La solution était simple. Je me sens un peu bête de ne pas y avoir pensé moi-même. Attribuons cela à mon manque d'habitude à manipuler ce langage...

A +

[joe.levrai]

Il est beaucoup plus pratique et habile de travailler sur l'objet "Tableau" (ListObject appartenant à la collection ListObjects) que sur l'objet Range matérialisant le tableau sur la feuille de calcul.

Ca t'évite de trier les Plages nommées et les Tableaux structurés

[Markos22]

En effet, c'est pour ça que j'ai préféré transformer la plage en tableau. En fait, je travaille sur des macros à créer en utilisant des données figurant sur une extraction Excel d'une base de données (en copiant des données sur le classeur où je crée cette macro). C'est pourquoi je souhaite toucher le moins possible au tableau source (l'extraction), de façon à ce que mes macros fonctionnent avec n'importe quelle nouvelle extraction. Mais sans transformer la source en tableau, c'est vraiment trop galère. D'où cette petite transformation.

Merci encore pour tes conseils.