Bonjour, j'aimerais creer une liste automatiquement comme Excel le fait par l'option "Creer une liste" dans une base. J'ai alors simuler la macro, ceci m'a retourné
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$E$22"), , xlYes).Name = _
"Liste1"
Range("A1:E23").Select
J'ai essayé de l'adapter à mon fichier avec
Worksheets("IND_SUPPORTPICKING_J_2009-04-01").ListObjects.Add(xlSrcRange, Range("$A$1:$BA$1000"), , xlYes).Name = "Liste"
Range("$A$1:$BA$" & x).Select
mais là j'ai une erreur d'execution 9, l'indice n'appartient pas à la selection.
Savez vous pourquoi? Que faut-il faire pour que cela marche?
Merci d'avance,
cdlt, Mickaël.
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$E$22"), , xlYes).Name = _
"Liste1"
Range("A1:E23").Select
J'ai essayé de l'adapter à mon fichier avec
Worksheets("IND_SUPPORTPICKING_J_2009-04-01").ListObjects.Add(xlSrcRange, Range("$A$1:$BA$1000"), , xlYes).Name = "Liste"
Range("$A$1:$BA$" & x).Select
mais là j'ai une erreur d'execution 9, l'indice n'appartient pas à la selection.
Savez vous pourquoi? Que faut-il faire pour que cela marche?
Merci d'avance,
cdlt, Mickaël.