VBA pour modifier les références du gestionnaire de noms

Version imprimable

16/04/2018, 09h21
Kaligula31

VBA pour modifier les références du gestionnaire de noms

Bonjour et merci par avance de votre aide.

J'ai essayé dans un premier temps de trouver au fil du forum une aide similaire, mais en vain, donc je me formule directement cette demande :

Situation actuelle :

J'ai un classeur Excel comportant une douzaine de feuille, j'ai été amené à faire une copie de l'une d'entre elle
La première feuille a pour nom : Base de données
La nouvelle feuille a pour nom : BDD

Il s'avère que dans le gestionnaire de noms toutes mes définitions de noms ont été enregistrées sous la forme par exemple de :
'Base de données'! suivi des références des cellules. A l'exeption d'une vingtaine qui font références à autre feuille du classeur que je désire conservées en l'état.

De ce fait les macros et surtout tous les liens hypertexte affectés à ces dénominations ne fonctionnent pas dans la nouvelle feuille et je dois donc modifier la dénomination par BDD. Vu que j'ai un nombre très important de noms définis (plus de mille) je souhaiterai que l'on puisse me communiquer un code VBA qui va pouvoir faire cette modification en une seule fois.

Après un essai manuel qui fonctionne bien sur, j'ai remarqué que l'ancienne référence était précédée et terminait par un petit apostrophe tel que :
'Base de données'!$B97:B107 ; après modification j'avais la nouvelle dénomination sous la forme : BDD!$B97:B107 (les petits apostrophes ayant disparus à l'enregistrement par Excel ?

Je précise qu'en matière de VBA je reste assez "ignare" en la matière, d'où ma demande :lol:

Je réitère mes remerciements pour l'aide et toutes explications
Cordialement
16/04/2018, 09h41
Menhir

Citation:

Envoyé par Kaligula31

Après un essai manuel qui fonctionne bien sur, j'ai remarqué que l'ancienne référence était précédée et terminait par un petit apostrophe tel que :
'Base de données'!$B97:B107 ; après modification j'avais la nouvelle dénomination sous la forme : BDD!$B97:B107 (les petits apostrophes ayant disparus à l'enregistrement par Excel ?

Les apostrophes ne sont utiles que si le nom d'onglet comporte des espaces (comme dans ton premier nom).
BDD n'en ayant pas, ils sont inutiles (mais rien n'interdit de les mettre si tu le souhaites).

Citation:

De ce fait les macros et surtout tous les liens hypertexte affectés à ces dénominations ne fonctionnent pas dans la nouvelle feuille et je dois donc modifier la dénomination par BDD. Vu que j'ai un nombre très important de noms définis (plus de mille) je souhaiterai que l'on puisse me communiquer un code VBA qui va pouvoir faire cette modification en une seule fois.

Faire une boucle For Each sur tous les noms de la Worksheet.
https://msdn.microsoft.com/fr-fr/VBA...next-statement
https://msdn.microsoft.com/fr-fr/lib.../ff197993.aspx

Avec un test If vérifier que la partie de gauche (fonction Left() ) de l'adresse du nom de zone correspond à ton ancien nom d'onglet (Base de données).
https://msdn.microsoft.com/fr-fr/VBA...e-object-excel
https://msdn.microsoft.com/fr-fr/VBA...property-excel
https://msdn.microsoft.com/fr-fr/VBA.../left-function

Si c'est le cas, concaténer ( avec un opérateur & ) le nouveau nom d'onglet avec le reste de l'adresse du nom de zone (fonction Mid() ) et le replacer dans l'adresse du nom de zone.
https://msdn.microsoft.com/fr-fr/VBA...s/mid-function
16/04/2018, 10h35
Kaligula31

Merci pour cette rapide réponse...

1- Je me doutais un peu que c'était "l'histoire" des espaces qui affectait les apostrophes, mais j'en était loin d'être sur. Merci pour cette précision.

2- Pour le reste je suis vraiment désolé, mais là ne maîtrisant absolument pas le langage VBA, encore moins la moindre conception dans l'ordonnance des actions à mettre en oeuvre pour arriver au résultat désiré, j'avoue être totalement perdu par rapport aux explications données.
Juste un petit exemple comment définir que l'action "For Each" s'adresse aux éléments contenus dans le répertoire du "Gestionnaire de noms" ?
Suis vraiment incapable de pouvoir créer un code
Vraiment désolé mais merci encore de votre implication
Cordialement
16/04/2018, 10h45
Menhir

Citation:

Envoyé par Kaligula31

ne maîtrisant absolument pas le langage VBA, encore moins la moindre conception dans l'ordonnance des actions à mettre en oeuvre pour arriver au résultat désiré, j'avoue être totalement perdu par rapport aux explications données.

Il ne tient qu'à toi d'y remédier.
http://bidou.developpez.com/article/VBA/

Citation:

Juste un petit exemple comment définir que l'action "For Each" s'adresse aux éléments contenus dans le répertoire du "Gestionnaire de noms" ?

Il y a un exemple dans le lien que je t'ai donné.
Il faut remplacer la collection de cet exemple par la collection des noms de zones de ta feuille (le lien suivant).

Citation:

Suis vraiment incapable de pouvoir créer un code

C'est un handicap génétique ou une simple répulsion à étudier ?
16/04/2018, 10h49
BENNASR

bonjour
Aussi débutant VBA et je propose ce qui suit :
* ouvrir ton fichier
* démarre l'enregistreur de macro
* allez formule / gestionnaire des noms
* modifier l'un des référence
* arrêter l'enregistreur
* allez voir le code fourni
* essayer de l'adapter et l'intégrer dans un boucle
et en cas de difficulté revenir avec un bout de code certain les grand Monsieur de ce super site te donne un coup de pousse

BONNE CONTINUATION
16/04/2018, 12h42
Kaligula31

MEHNIR !...

Monsieur, l'Éminent Expert Sénior

"C'est un handicap génétique ou une simple répulsion à étudier ?"

En venant demander de l'aide je ne pensais trouver une personne aussi désobligeante quand à ma génétique et mes facultés intellectuelles !

Toutefois étant, comme on dit, une personne de "vieille école", je vous remercie pour le temps passé mais surtout que vous avez perdu.

Je préciserai toutefois, Monsieur l'Éminent Expert Sénior, que dans mon premier message "Je remerciais par avance pour "TOUTE EXPLICATION" et non juste des liens hypertexte qui revenaient à dire "Débrouille toi" (je reste poli je tiens à le préciser).

J'ai, au moins en ce qui me concerne, la prétention d'avouer que je n'ai pas la "science infuse", et non pas de faire fi d'un minimum de pédagogie.
16/04/2018, 12h48
Kaligula31

BENNASR

Bonjour et mille fois merci pour une réponse "Constructive", qui sans donner la solution, donne au moins un fils conducteur.

Comme quoi, quelquefois il n'y a pas besoin d'être "Expert Éminent Sénior", pour venir en aide de façon claire et compréhensible pour l'ignare et fainéant génétique que je suis.

Merci de votre implication
Cordialement
16/04/2018, 14h09
Menhir

Citation:

Envoyé par Kaligula31

dans mon premier message "Je remerciais par avance pour "TOUTE EXPLICATION" et non juste des liens hypertexte qui revenaient à dire "Débrouille toi" (je reste poli je tiens à le préciser).

Ma première réponse décrit précisément le processus à suivre et je transmets des liens d'aide vers chaque éléments composant ce processus avec, pour chaque, les syntaxes, les descriptions et des exemples.
Je ne sais pas si tu as conscience du temps que ça prend d'aller chercher des liens vers l'aide de chaque élément pour te les transmettre.
Si tu n'appelles pas ça des "explications", je ne vois pas de quoi il peut s'agir.

Maintenant, si, pour toi, des "explications" c'est te pondre l'intégralité du code, perso je n'appelle pas ça une "explication", j'appelle ça faire ton boulot à ta place.
Ce forum a pour vocation de permettre d'apprendre et de progresser, pas de fournir une main d'oeuvre gratuite pour ceux qui ne souhaitent pas se former.

Bonne chance

MENHIR

En aucun cas je n'ai cherché à avoir une solution toute faite... premier point

Deuxième point j'ai pris le temps bien entendu de me rendre sur les liens hypertexte, désolé de le dire pour moi c'est de l'hébreu ou du chinois (au choix)

Revenons à tes liens

Le premier "For Each" : voici le code donner en exemple :
Code:

1 2 3 4 5 6 7 8 Dim Found, MyObject, MyCollection Found = False ' Initialize variable. For Each MyObject In MyCollection ' Iterate through each element. If MyObject.Text = "Hello" Then ' If Text equals "Hello". Found = True ' Set Found to True. Exit For ' Exit loop. End If Next
J'ai bien compris que "MyObject, MyCollection" sont des termes donnés à titre d'exemple.
Dans un premier temps, dans mon cas précis comment on nomme déjà "le Gestionnaire de noms" ?
Dans d'autre code j'ai vu le terme "WorkSheet" qui si je comprends bien dénomme l'ensemble du classeur actif ?
Comme tu peux t'en rendre compte je suis loin de la fin et sauf erreur de ma part il me semble qu'il y a un ensemble d'arguments qui précèdent le développement de la VBA non ? Mais quelle formulation exactement ?

Je pense qu'en définitive je me suis inscrit, sur un forum plutôt réservés à des personnes maîtrisant déjà le langage VBA et non au total débutant que je suis.

Merci encore, vais essayer de trouver une pointure plus à ma portée

16/04/2018, 15h18
Menhir

Citation:

Envoyé par Kaligula31

Dans un premier temps, dans mon cas précis comment on nomme déjà "le Gestionnaire de noms" ?

Voir le lien juste après celui du For Each dans ma première réponse (explication rappelée dans mon post #4).

Citation:

Dans d'autre code j'ai vu le terme "WorkSheet" qui si je comprends bien dénomme l'ensemble du classeur actif ?

Non, il s'agit d'un onglet d'un classeur.
Par contre, Worksheets (au pluriel) représente la collection de tous les onglets d'un classeur.
Worksheets(1) ou Worksheets("MaFeuille") désignant un élément (un onglet) de cette collection.

Citation:

Comme tu peux t'en rendre compte je suis loin de la fin

C'est la raison pour laquelle dans mon post #4, je te renvoie vers un document qui te permettra d'acquérir les bases.
Sans ces bases, tout ce que tu ferras ne sera que du bricolage très aléatoire.
Comme le disait Jonathan Livingstone le goéland : "Avant d'apprendre à faire des looping, voyons le vol à l'horizontal". :zen:

Sans ces bases, tu ne seras pas en mesure de comprendre les explications qui te seront fournies et de les adapter à ton propre cas.
Ce qui renvoie à la conclusion de mon message précédent.
Pour paraphraser Confucius, nous ne sommes pas ici pour donner du poisson mais pour apprendre à pêcher.

Citation:

Je pense qu'en définitive je me suis inscrit, sur un forum plutôt réservés à des personnes maîtrisant déjà le langage VBA et non au total débutant que je suis.

Lis les autres demandes de cette rubrique du forum et tu pourras constater que cette conclusion est erronée.
Cependant, de mon point de vue, ce forum est destiné à ceux qui veulent apprendre.