Nommer une ZONE EN VBA

B

Bebere

XLDnaute Barbatruc

• 22 Juin 2005

• #2

bonjour
j'ai essayé ce qui suit et ok

Public Sub essaitcd()
'sélectionne feuille avec tcd(donner un nom à la feuille)
Sheets('TcdVentes2001').Select
'sélectionne une cellule non vide
Range('B5').CurrentRegion.Select
'compte ligne sélection
L = Selection.Rows.Count
'compte colonne sélection
C = Selection.Columns.Count
'attribue le nom à la sélection
ActiveWorkbook.Names.Add Name:='TcdVentes', RefersToR1C1:='=TcdVentes2001!R4C2:R' & L & 'C' & C & ''
End Sub
à bientôt

 

Vote positif 0 Vote négatif

E

EMMANUEL

Guest

• 22 Juin 2005

• #3

Oui
mais le nom de la feuille est également une variable
je peux lancer plusieurs fois la macro pour créer le TCD
par défaut c'est l'onglet feuill1 qui est crée ,puis feuill2 et ainsi de suite.... 😱hmy:

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 22 Juin 2005

• #4

Bonjour emmanuel, bebere, le forum

Si la nouvelle feuille crée, est toujours la derniere feuille du classeur, tu peux essayer :

Sheets(Sheets.Count).Range('a1').CurrentRegion.Name = 'TCD'

Cliquez pour agrandir...

En adaptant le range('a1') bien sur.

salut

 

Vote positif 0 Vote négatif

E

EMMANUEL

Guest

• 22 Juin 2005

• #5

Désolé Hervé et BEBERE
Je ne crois pas avoir bien compris
je crée un tcd en vba
excel attribue pas défaut comme nom d'onglet feuille1...

Ensuite je dois nommer la plage du Tableau croisé dynamique
Zone = TCD

Sheets(Sheets.Count).Range('B5').CurrentRegion.Name = 'TCD'

Cette formule va sélectionner par défaut le premier onglet du classeur
et non l'onglet crée en vba




😱hmy:

 

Vote positif 0 Vote négatif

E

EMMANUEL

Guest

• 22 Juin 2005

• #6

De plus Hervé comment faire pour que la dernière feuille crée soit classée en dernier

Je cherche sinon à selectionner la feuille active ? Comment faire

Sheets(Feuill1).Select
Sheets(Feuill1).Name = 'TCD' 🙁

 

Vote positif 0 Vote négatif

P

pat1545.

XLDnaute Accro

• 22 Juin 2005

• #7

Salut,
pas sur d'avoir compris mais:

dès la création du tcd , tu peux alors renommer la feuille non ?
voilà ce que donne l'enregistreur :

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
'Feuil1!R1C5:R12C6').CreatePivotTable TableDestination:='', TableName:= _
'Tableau croisé dynamique1'
' ici le nom de la feuille
ActiveSheet.Name = 'test'
' la déplacer:
Worksheets('test').Move _
after:=Worksheets('feuil3')

Patrick

 

Vote positif 0 Vote négatif

G

guitarde

Guest

• 22 Juin 2005

• #8

Ton ton post original :

Remplace cette ligne:
ActiveWorkbook.Names.Add Name:='TCD', RefersToR1C1:='=Feuil1!R3C1:R252C6'


Par ceci:
ActiveWorkbook.Names.Add Name:='TCD', RefersToR1C1:=Selection


Salutations
Eric

 

Vote positif 0 Vote négatif

E

EMMANUEL

Guest

• 22 Juin 2005

• #9

dernière solution: je crée un onglet 'TCD' et à chaque lancement de la macro, il efface tout, on peux alors utiliser le programme de BEBERE



Sheets('TCD').Select
Cells.Select
Selection.Clear
Range('A1').Select

Merci BEBERE ,le forum

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 22 Juin 2005

• #10

Bonsoir,

Tiens Emmanuel on en est où dans Lien supprimé ?

 

Vote positif 0 Vote négatif