un nom dèjà existant?

Robert

XLDnaute Barbatruc

Repose en paix

• 21 Janvier 2006

• #2

Bonsoir Stan, bonsoir le forum,

Tu pourrais éviter les messages d'excel en les court-circuitant avec Application.DisplayAlerts = False qu'il ne faudra surtout pas oublier de remetrte à la fin de ton code avec Application.DisplayAlerts = True. Toutefois si tu as ce message c'est bien parce que ce nom (une plage ou cellule nommée je pense, car j'ai déjà eu ce type de message en faisant une copie d'une feuille contenant des plages nommées) existe déjà, vérifie bien si cela ne va pas te poser de problème par la suite.

 

Vote positif 0 Vote négatif

Bricofire

XLDnaute Impliqué

• 21 Janvier 2006

• #3

Bonsoir Stan, Robert, 🙂

Stan tu peux scanner les noms existants en utilisant la collection Names

je te met une procédure que j'ai dans une appli et qui me liste ça en feuille 3, ça permet des pointages aisé et lisibles, à toi de l'adapter 😉
Sub ListNom() 'Utilitaire de mise au point et de déboggage, n'intervient pas dans l'appli !
Dim Nme
Dim I

I = 9
Sheets(3).Activate
For Each Nme In ActiveWorkbook.Names
Cells(I, 3) = Nme.Name
I = I + 1
Next Nme
End Sub

L'intru devrait se révéler ?

Bonne nuit,

Brico

 

Vote positif 0 Vote négatif

S

stan

Guest

• 21 Janvier 2006

• #4

Merci à vous 2.
je m'en sors comme ça
En revanche, m^me si je sais dans quelle feuille l'intrus se trouve, je ne le visualise tjs pas : ni dans la feuille, ni dans les noms ou les objets.
Si jamais, vous avez un truc en plus...
Merci d'avance aux experts

Stan

 

Vote positif 0 Vote négatif

Bricofire

XLDnaute Impliqué

• 21 Janvier 2006

• #5

Re Tout le monde, 🙂

Stan,
Il est possible que l'auteur en créant le nom sous VB l'ai doté d'un argument 'Visible' à False, du coup le comportement actuel est logique... Le pb est de savoir pourquoi, j'ai des idées, mais il s'agirai de protection, donc pb de contexte.

La procédure que j'ai mis plus haut a-t-elle donnée quelque chose ?

Bon WE,
Brico

 

Vote positif 0 Vote négatif

S

stan

Guest

• 21 Janvier 2006

• #6

salut brico,

ta procedure me sort que ces noms existent (je suis concerné par 2 noms) mais je n'ai pas plus de détail..

Sais tu comment m'y prendre pour débusquer ce 'dddd' et ce 'wrn.rapatriable'?

Merci

Stan

 

Vote positif 0 Vote négatif

Bricofire

XLDnaute Impliqué

• 22 Janvier 2006

• #7

Bonsoir Stan, 🙂

essaies avec ça :

Sub MontreTout()
Dim Nme

For Each Nme In ActiveWorkbook.Names
Nme.Visible = True
Next Nme
End Sub


bonne nuit,

Brico

 

Vote positif 0 Vote négatif