redimensionner un tableau par macro

[cindy75015]

bonjour
j'ai un tableau nommé "EntrSort"
sur une feuille nommée"bd Sortie"

la ligne 3 est le titre de mon tableau
mon tableau comporte 1 seule colonne :L
mon probleme c'est que le tableau ne s'actualise pas a chaque fois
donc je voudrais trouvée un bout de code pour le redimensionner par macro
donc colonne "L"
1ere ligne de titre "L3"
dernier ligne du tableau:remonter jusque la première cellule non vide
Cindy

 

[Paritec]

Re : redimensionner un tableau par macro

Bonjour Cindy le forum

Sub TonTableau()
    ActiveWorkbook.Names.Add Name:="EntrSort", RefersToR1C1:=Sheets("bd Sortie").Range("L3:L" & Sheets("bd Sortie").Range("L" & Rows.Count).End(xlUp).Row)
End Sub

bonne journée
Papou

 

[cindy75015]

Re : redimensionner un tableau par macro

bonjour
Paritec
merci pour ta réponse
mais ça ne passe pas
j'ai le message "un tableau portant ce nom existe déjà choisissez un autre nom
Cindy

 

[cindy75015]

Re : redimensionner un tableau par macro

oups beug le message est partit en double

 

[Paritec]

Re : redimensionner un tableau par macro

Bonjour Cindy,le forum
bah je ne sais pas comment est ton fichier puisque tu ne l'as pas donné, mais chez moi cela marche que ce soit avec excel 2003 ou avec 2007 ou avec 2010 alors ??????????????????
ton fichier les explications dedans et on va vérifier
a+
papou

 

[Paritec]

Re : redimensionner un tableau par macro

Re Cindy le forum
autrement tu peux toujours tester
a+
papou

Sub TonTableau()
    ActiveWorkbook.Names("EntrSort").Delete
    ActiveWorkbook.Names.Add Name:="EntrSort", RefersToR1C1:=Sheets("bd Sortie").Range("L3:L" & Sheets("bd Sortie").Range("L" & Rows.Count).End(xlUp).Row)
End Sub

 

[cindy75015]

Re : redimensionner un tableau par macro

re paritec ,le fil
avec ton dernier code j'obtiens le message"erreur définie par l'application ou par l'objet"
ci joint le fichier
Cindy

 

[Paritec]

Re : redimensionner un tableau par macro

Bonjour Cindy
ton fichier en retour
a+
papou

 

[job75]

Re : redimensionner un tableau par macro

Bonjour cindy75015, papou,

Pourquoi ne pas simplement renommer la plage L3:Lx :

Sub NommerTableau()
Sheets("bd Sortie").Range("L3", Sheets("bd Sortie").Range("L" & Rows.Count).End(xlUp)).Name = "EntrSort"
End Sub

Il vaut mieux en effet que L3 soit dans le tableau au cas où il n'y a pas d'autre cellule que le titre.

A+