Discussion :

[Pti-Perso-Bonus]

Bonjour,

Je viens de me créer un compte après n'avoir malheureusement pas trouvé au sein du forum (en espérant avoir bien cherché ) la réponse à ma question, question que je vous pose donc :

J'aimerais mettre des informations, suite à l'extraction d'un fichier texte, sous forme de tableau structuré.

Le nombre de colonne au sein du tableau ne varie pas, mais le nombre de ligne oui.

Or quand j'utilise l'enregistreur de macro j'obtiens ceci :

Code :

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

1
2
3
4
ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:CC2098"), , xlYes).Name "" _
    = "Tableau1"
    Range("Tableau1[#All]").Select
    ActiveSheet.ListObjects("Tableau1").TableStyle = "TableStyleLight9"

Le fait est que j'essaye de créer un tableau réutilisable, et je voudrais "variabiliser" la partie en rouge. En insérant un fichier texte de seulement 1000~ lignes je me retrouves avec autant de lignes inutiles dans mon tableau.

J'ai essayé de mettre des variables et suis arrivé au code suivant (qui bien sûr ne marche pas ):

Code :

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

1
2
3
4
5
6
7
8
    V = Range("CC1").End(xlDown).Row
    W = Range("CC1").End(xlDown).Column
    Range("A1").Select
    Selection.CurrentRegion.Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:WV"), , xlYes).Name "" _
    = "BD"
    Range("BD[#All]").Select
    ActiveSheet.ListObjects("BD").TableStyle = "TableStyleLight9"

J'ai essayé des variantes avec des "&", en remplaçant le raccourci des colonnes "W" par sa dénomination "CC" vu que cela ne varie pas mais rien n'y fait...

J'aimerai donc savoir si ce que j'entreprend est réalisable et si oui comment y parvenir.


Cordialement,

PPB

[Menhir]

Code :

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

    W = Range("CC1").End(xlDown).Column

Pour avoir la dernière colonne, il faut utiliser la constante xlToRight et non xlDown (qui recherche vers le bas).

Code :

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

    ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:WV"), , xlYes).Name "" = "BD"

Le paramètre d'un Range est une chaîne de caractère (en simplifiant).
Dans ta notation, tu mélanges texte et référence de variable.
Il faut écrire des choses comme :

Code :

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

"A1:" & W & V

Mais comme tu as mis une valeur numérique dans W et non une lettre de colonne, ça ne marchera pas.
Il faut donc utiliser une syntaxe comme :

Code :

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

Range(Range("A1"), Cells(V, W))

[casefayere]

perso, j'aurai fait ça, entre autres solutions

Code :

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

1
2
3
4
5
Dim V As Range
    Set V = Range("A1").CurrentRegion
    ActiveSheet.ListObjects.Add(xlSrcRange, V, , xlYes).Name _
    = "BD"
    ActiveSheet.ListObjects("BD").TableStyle = "TableStyleLight9"

[Pti-Perso-Bonus]

Merci à vous 2 pour vos réponses rapide ^^

Dans les faits les 2 marches, sauf que ta méthode Menhir me donne certes le bon tableau, mais m'affiche l'erreur 406 (il me semble), qui précise que l'utilisation d'un double Range n'est pas possible. Résultat j'ai certes mon tableau mais le reste de la macro (de la mise en gras, format monétaire etc) ne s'effectue pas. J'avoue ne pas trop comprendre pourquoi

Du coup j'ai pris la méthode de casefayere, qui elle marche au poil... D'ailleurs ça me parait tellement plus évident de faire comme ça maintenant que je le vois... Tout ce temps perdu à lutter sur une "usine à gaz" (en comparaison hein)


Du coup problème résolu et merci à vous deux


PPB