redimensionner un tableau par macro

Paritec

XLDnaute Barbatruc

• 12 Avril 2013

• #2

Re : redimensionner un tableau par macro

Bonjour Cindy le forum

Code:

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

 

Vote positif 0 Vote négatif

C

cindy75015

XLDnaute Junior

• 12 Avril 2013

• #3

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

 

Vote positif 0 Vote négatif

C

cindy75015

XLDnaute Junior

• 12 Avril 2013

• #4

Re : redimensionner un tableau par macro

oups beug le message est partit en double

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 12 Avril 2013

• #5

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

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 12 Avril 2013

• #6

Re : redimensionner un tableau par macro

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

Code:

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

 

Vote positif 0 Vote négatif

C

cindy75015

XLDnaute Junior

• 12 Avril 2013

• #7

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

 

Pièces jointes

• tableau redimentionner.xlsx

  37.4 KB · Affichages: 63

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 12 Avril 2013

• #8

Re : redimensionner un tableau par macro

Bonjour Cindy
ton fichier en retour
a+
papou

 

Pièces jointes

• Cindy V2.xlsm

  43.3 KB · Affichages: 72

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Avril 2013

• #9

Re : redimensionner un tableau par macro

Bonjour cindy75015, papou,

Pourquoi ne pas simplement renommer la plage L3:Lx :

Code:

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+

 

Vote positif 0 Vote négatif