Erreur synthaxe Range

relo · 9 Avril 2019

Bonjour,
Je cherche à insérer plusieurs tableau les uns à la suite des autres, pour cela je récupère l'adresse de la dernière ligne vide pour insérer un nouveau tableau en dessous.
J'insère donc une adresse dans un Range mais lorsque j'exécute mon code j'ai une erreur de type " Référence incorrecte ou non qualifiée"
Voici mon code :
ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1048576" & .End(xlUp).Address & ":Q1048576" & .End(xlUp).Address), , xlNo).Name = "Tableau1"

J'ai essayé également en remplaçant les adresse par des variable telle que :
DerCell1 = Range("A1048576").End(xlUp).Address
DerCell2 = Range("Q1048576").End(xlUp).Address
ActiveSheet.ListObjects.Add(xlSrcRange, Range("DerCell1 erCell2"), , xlNo).Name = "Tableau1"

Mais cela ne fonctionne pas non plus..

Merci d'avance

Dranreb · 9 Avril 2019

Bonjour.
Essayez comme ça :

VB:

ActiveSheet.ListObjects.Add(xlSrcRange, _
   ActiveSheet.Cells(1048576, "A").End(xlUp).Offset(2).Resize(, 17), , xlNo) _
   .Name = "Tableau1"

Erreur synthaxe Range

relo

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Discussions similaires