Nom des feuilles en VBA

[mécano41]

Bonjour,

Quelqu'un pourrait-il me dire s'il est possible de désigner les feuilles dans le code de façon à ce qu'un utilisateur puisse en modifier les noms dans les onglets sans altérer le fonctionnement.

Worksheets(2) ne fonctionne plus si l'on change l'ordre des onglets.
Si les feuilles sont nommées "Résultats", "Calcul"... il subsite dans la colonne "Projet" un nom Feuil1, Feuil2...je pensais qu'en utilisant ce nom cela fonctionnerait mais ce n'est pas le cas.

Je n'ai rien trouvé là-dessus dans un livre, ni dans l'aide, ni en recherchant ici.

Quelqu'un aurait-il la solution ?

Merci d'avance

Cordialement

 

[mécano41]

Re : Nom des feuilles en VBA

Mes essais :

- DébutTableauàImporter.Address me donne : $B$5 (c'est la cellule sélectionnée)
- DébutTableauàImporter.Parent.Name me donne : Données (c'est le nom de la feuille)
- DébutTableauàImporter.Address(, , , True) me donne : [classeur3]Données!$B$5
- Range(DébutTableauàImporter.Address(, , , True)) me donne : 1 (c'est la valeur dans la cellule)
- Range(DébutTableauàImporter.Address(, , , True)).Worksheet.Name me donne : Données (c'est le nom de la feuille)

Cordialement

 

[MJ13]

Re : Nom des feuilles en VBA

Bonjour à tous

Wilfried, merci pour ta réponse, c'est Ok pour le nom, mais comment fait-on pour définir les feuilles au départ avec Codename avec le nom que je veux?

 

[Luki]

Re : Nom des feuilles en VBA

Re à tous,

Mj13, regarde le début du fil, mon post et celui de Pascal, tout y est

 

[MJ13]

Re : Nom des feuilles en VBA

Bonjour

Et merci Luki pour ta réponse.

Si je comprend bien on ne peut pas le faire par macro.
Je comprend mieux.

 

[mécano41]

Re : Nom des feuilles en VBA

Personne ne connaît la réponse pour m'aider sur mon deuxième sujet? Je suis en panne!

Cordialement

 

[MJ13]

Re : Nom des feuilles en VBA

Re bonjour

Mecano Je ne vois pas bien comment résoudre ton problème (tu ferai peut -être bien de refaire un nouvelle discussion avec un fichier pour bien expliquer ce que tu veux) .

Par contre pour Codename, j'ai mis un post sur un problème sur d'Excel 2007 qui est maintenant résolu.

https://www.excel-downloads.com/threads/probleme-bug-dans-macro-codename.84483/

 

[mécano41]

Re : Nom des feuilles en VBA

Merci. Effectivement, je pose à nouveau le sujet ailleurs.

MERCI DE NE PLUS REPONDRE ICI POUR MON DEUXIEME SUJET mais plutôt là :

https://www.excel-downloads.com/thr...asseur-feuille-en-partant-dune-cellule.84486/

Cordialement

 

[mécano41]

Re : Nom des feuilles en VBA

Bonjour,

Je reviens vous voir, toujours au sujet des noms de feuilles.

Pour nommer une plage, j'ai ceci, qui fonctionne bien avec le nom de l'onglet "PlanMoyen" :

ActiveWorkbook.Names.Add Name:="ColonneX", RefersToR1C1:="='PlanMoyen'!R6C3:R" & PlageXPlanMoyen.Cells.Count + DébutDonnéesPlan.Row - 1 & "C3"

Avec la même chose, mais en utilisant le codename "RMplanMoyen" que j'ai donné à la feuille :

ActiveWorkbook.Names.Add Name:="ColonneX", RefersToR1C1:="='RMplanMoyen'!R6C3:R" & PlageXPlanMoyen.Cells.Count + DébutDonnéesPlan.Row - 1 & "C3"

il se produit quelque chose de bizarre : VBA n'indique aucune erreur mais une boîte de dialogue s'ouvre. En haut il est écrit : Mettre à jour les valeurs : RMplanMoyen

La liste des répertoires et fichiers affichés dans cette boîte est mon répertoire "Mes documents".

Quelqu'un aurait-il une idée là-dessus?

Cordialement

Par précaution, comme RM sont mes initiales, j'ai modifié ce nom. Aucun changement

 

[Banzai64]

Re : Nom des feuilles en VBA

bonjour

Je pense mais pas sur

Excel recherche la page RMplanMoyen

quand tu recrés 'ColonneX' ta feuille est elle renommée ?

Ou alors c'est la plage 'PlageXPlanMoyen' ou/et la plage 'DébutDonnéesPlan' qui fait réference à ta première page 'PlanMoyen'

D'accord je lis pas tout

 

[PascalXLD]

Re : Nom des feuilles en VBA

Re

essaies de passer ainsi

mafeuille = RMplanMoyen.Name

ActiveWorkbook.Names.Add Name:="Ttutu", RefersToR1C1:="=" & mafeuille & "!R1C1"

 

[mécano41]

Re : Nom des feuilles en VBA

Bonsoir,

Merci pour ces réponses rapides.

En effet, avec cela :

FeuillePlanMoyen = RMplanMoyen.Name
ActiveWorkbook.Names.Add Name:="ColonneX", RefersToR1C1:="='" & FeuillePlanMoyen & "'!R6C3:R" & PlageXPlanMoyen.Cells.Count + DébutDonnéesPlan.Row - 1 & "C3"

ça maaaaarche!

Cordialement