Microsoft 365 Copie de "noms" intenpestive lors d'une copie de feuille.

Dranreb

XLDnaute Barbatruc

• 13 Avril 2020

• #16

Je n'ai guère envie de faire des test pour le vérifier, mais je pense que l'objet est le membre de la collection Name du classeur. Simplement sa propriété Name n'est pas sa clé dans la collection de la feuille, sa clé c'est seulement la partie au delà du '!'.

 

Vote positif 0 Vote négatif

Carnould

XLDnaute Junior

• 13 Avril 2020

• #17

Dranreb à dit:

Quand est-ce que vous vous déciderez à joindre un classeur ??
Et pourquoi mettez vous des noms sur des tableaux qui en ont déjà un ?
(bien qu'il ne soit dans aucune collection Names)
Et pourquoi reproduisez vous des tableaux sur les feuilles ? S'ils sont pour des validations de données, mettez les donc sur une feuille à part.

Cliquez pour agrandir...

J'ai beaucoup de données avec des noms de personnes. Je vais faire un classeur épuré de tous ces noms propres et l'enverrai. Cependant il contient des macros et j' ai cru comprendre qu'elles ne sont pas les bienvenues sur les forums de part le risque qu'elles font prendre, d'où mon hésitation.
Pourquoi des noms sur des tableaux qui en avait déjà ? Erreur de jeunesse car je debutais il y a 4 ou 5 mois et ne savais même pas ce qu'était un tableau nommé ou du VBA.
Je fais référence à ces tableaux pour alimenter des listes déroulantes. Ces tableaux sont sur une feuille à part. Je ne les duplique pas.
J'ai conscience que mon classeur n'est pas fait dans les règles de l'art. Je m'améliore de jour en jour grâce à des gens comme vous deux.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 13 Avril 2020

• #18

Bonjour le fil

[aparté]

Cependant il contient des macros et j' ai cru comprendre qu'elles ne sont pas les bienvenues sur les forums de part le risque qu'elles font prendre, d'où mon hésitation.

Cliquez pour agrandir...

Jamais lu ceci sur aucun forum.
La seule chose c'est d'éviter de joindre des classeurs avec des procédures WorkBook_Open() "actives".
PS: la plupart des utilisateurs "expérimentés" d'Excel ouvrent toujours les PJ une première fois sans activer les macros.
[/aparté]

 

Vote positif 0 Vote négatif

Carnould

XLDnaute Junior

• 13 Avril 2020

• #19

Merci Staple1600. Je viens de mettre en commentaires la procédure WorkBook_Open(). A réactiver.
Et voici mon classeur épuré des données confidentielles.
Les saisies faisant l'objet de listes déroulantes alimentées par des tableaux nommés se font sur les feuilles de type "pilote" comme par exemple "Personne1", Personne 2", etc.. Les tableaux nommées sont sur la feuille "Param_div"
Ma procédure de duplication de la feuille "Modèle" pour créer une nouvelle feuille pilote s'appelle NouvelleFichePilote() dans Module3. Elle est associée à CTRL+n. Cette donc cette procédure qui génère des homonymes dans les noms.
J'ai mis la dernière solution d'eriiic dans ma procédure de copie (Module3 NouvelleFichePilote()) en l'adaptant avec ActiveSheet et ça focntione très bien !

Je vous joints tout de même mon classeur (réactivez WorkBook_Open). Vous constaterez probablement beaucoup de lourdeurs, beaucoup d'incohérences. C'est le résultat d'une première expérience enrichie grace à ce forum.
"Hâtez-vous lentement, et sans perdre courage, Vingt fois sur le métier remettez votre ouvrage, Polissez-le sans cesse, et le repolissez, Ajoutez quelquefois, et souvent effacez. (Boileau) .... j'en suis là !

Merci à tous
Cordialement
Christian

 

Pièces jointes

• Comptes Pilotes - V7.3.xlsm

  224.4 KB · Affichages: 8

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 13 Avril 2020

• #20

Bis repetita : as-tu seulement testé ce que je te proposais ?
Si je dérange, je peux sortir...

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 13 Avril 2020

• #21

Et ce que moi je proposais, simplement supprimer tous les noms de la collection Names de l'objet Worksheet de la feuille, vu qu'il correspondent exactement à tous ceux de celle de l'objet Workbook qui ont le nom de cette feuille en préfixe ?

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 13 Avril 2020

• #22

Difficile d'être visible (et lu) ici....

 

Vote positif 0 Vote négatif

Carnould

XLDnaute Junior

• 13 Avril 2020

• #23

Dans ce que j'ai envoyé, il y a TA solution eriiic qui plus est, fonctionne parfaitement, comme je l'ai indiqué.

 

Vote positif 0 Vote négatif

Carnould

XLDnaute Junior

• 13 Avril 2020

• #24

Pour ta solution Dranreb, je ne sais pas faire car je ne comprend pas bien.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 13 Avril 2020

• #25

C'est pourtant simple, il suffit de ne rien tester, juste supprimer systématiquement tous les noms de la feuille puisqu'il ne peut pas y en avoir d'autres que ceux qui dans les noms du classeur sont préfixés par le nom de cette feuille.

VB:

    Dim Nom As Name
    For Each Nom In ActiveSheet.Names
        Nom.Delete
        Next nom

 

Vote positif 0 Vote négatif

Carnould

XLDnaute Junior

• 13 Avril 2020

• #26

Donc si dans l'avenir il devait y avoir un nom attaché à cette feuille, il serait aussi supprimé sans distinction ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 13 Avril 2020

• #27

Seulement un nom de cette feuille, ce qui revient à un nom du classeur préfixé par le nom de la feuille suivi d'un point d'exclamation. Un nom du classeur ou d'une autre feuille se référant à une plage de la feuille ne serait pas touché. Mais du reste je croyais que c'était seulement lors de sa création par copie de la feuille que vous vouliez le faire.

 

Dernière édition: 13 Avril 2020

Vote positif 0 Vote négatif

Carnould

XLDnaute Junior

• 13 Avril 2020

• #28

Je n'ai pas compris. Il me manque quelque chose pour comprendre.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 13 Avril 2020

• #29

Exécutez peut êrte cette macro dans un nouveau module d'un nouveau classeur :

VB:

Sub Test()
ThisWorkbook.Names.Add "Toto", [A1]
ActiveSheet.Names.Add "Toto", [A1]
MsgBox ThisWorkbook.Names(1).Name _
   & vbLf & ThisWorkbook.Names(2).Name
End Sub

Allez peut être ensuite faire un tour dans le gestionnaire de noms
Examinez tout particulièrement la colonne "Étendue".
Il ne peut y avoir de noms identiques avec la même étendue.
Donc si un nom d'étendue "Classeur" est dupliqué à cause de la copie d'une feuille, sa copie devient forcément un nom d'étendue de feuille.
Et vous aurez remarqué grâce au MsgBox de la macro qu'un nom d'étendue feuille revient à un nom d'étendue "Classeur" préfixé par le nom de la feuille, éventuellement encadré d'apostrophes, suivi d'un point d'exclamation.
Et je confirme que ActiveSheet.Names("Toto").Name vaut "Feuil1!Toto" qui n'est donc pas sa vraie clé dans la collection de la feuille, contrairement à celle du classeur.

 

Dernière édition: 13 Avril 2020

Vote positif 0 Vote négatif

Carnould

XLDnaute Junior

• 13 Avril 2020

• #30

Magistral cours que je testerai demain. Merci.

 

Vote positif 0 Vote négatif