Créer un tableau sous VBA

[Poussin]

Bonjour à tous j'ai voulu créer un tableau pour une base de données. J'ai pour cela utilisé l'enregistreur de macro et j'ai obtenu cela :

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$AK$474"), , xlNo).Name = _
           "Tableau"

Je voudrais donc savoir comment faire dans le cas ou le fichier source sera différent ou lorsqu'il y aura plus de données afin d'être sur de créer un tableau qui récupère toutes les données.

Merci de votre aide. Bonne soirée

 

[Pierrot93]

Re : Créer un tableau sous VBA

Bonjour,

peut être ainsi :

With Workbooks("classeur.xls").Sheets("nomfeuille")
    .ListObjects.Add(xlSrcRange, .Range("$A$1:$AK$" & .Range("A65536").End(xlUp).Row), , xlNo).Name = _
           "Tableau"
End With

bon après midi
@+

 

[Poussin]

MErci Pierrot93 pour cette réponse. Malheureusement avec cette modification cela ne fonctionne plus je te joins mon code :

Sheets("Feuil2").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$AK$474"), , xlNo).Name = _
      "Tableau"

'    With Workbooks("Nouveau.xlsm").Sheets("Feuil2")
'        .ListObjects.Add(xlSrcRange, .Range("$A$1:$AK$" & .Range("A65536").End(xlUp).Row), , xlNo).Name = _
'           "Tableau"
'    End With
      
    Range("Tableau[[#Headers],[Colonne1]]").Select
    ActiveCell.FormulaR1C1 = "Nom"
    Range("Tableau[[#Headers],[Colonne2]]").Select
    ActiveCell.FormulaR1C1 = "Prénom"
    Range("Tableau[[#Headers],[Colonne3]]").Select
    ActiveCell.FormulaR1C1 = "Code Postal"

La partie haute du code fonctionne par contre la tienne celle en commentaire ne marche pas. De plus je voudrais savoir comme faire pour redéfinir plus efficacement chaque colonne car actuellement je réécris la même chose pour chaque colonne.

Encore merci d'avance pour ton aide précieuse.

Bonne journée

 

[Pierrot93]

Re : Créer un tableau sous VBA

Bonjour,

La partie haute du code fonctionne par contre la tienne celle en commentaire ne marche pas.

cela signifie quoi ?? message d'erreur ou pas le résultat attendu ???

bonne journée
@+

 

[Poussin]

Oui j'ai une erreur si j'utilise le code qui est actuellement en commentaire : la méthode Select de la classe Range a échoué et il me surligne :

Range("Tableau[[#Headers],[Colonne1]]").Select

Si j'utilise le code au-dessus du commentaire cela fonctionne je n'ai pas de message d'erreur.
Merci pour ton aide

 

[Pierrot93]

Re : Créer un tableau sous VBA

Re,

Range("Tableau[[#Headers],[Colonne1]]").Select

Aarf, pas cette ligne de code dans celui que je t'ai donné...

 

[Poussin]

Et tu penses que c'est possible de concilier les 2 ?

 

[Pierrot93]

Re : Créer un tableau sous VBA

Re,

sais pas trop, pas 2007 et la gestion des tableaux via vba est différentes par rapport à 2003...

 

[Poussin]

Je pense que l'on peut utiliser ceci mais je ne vois pas comment l'intégrer dans ma macro ...

DECALER(Feuil1!$B$2;;;NBVAL($B$2:$B$65000);3)