renommer une feuille

[Alexandre]

Salut le forum

G un p'tit pb

Dans une procédure, g une feuille qui est créé ainsi :

nom = InputBox("Entrer le nom de la feuille")
Sheets("calque").Copy After:=Sheets(7)
ActiveSheet.Name = nom

Ca marche y'a pas de pb
Par contre, g un plantage si l'utilisateur entre dans l'inputbox un nom de feuille existant déjà.
Il faudrait qu'une Msgox lui dise qu'une feuille au nom similaire existe déjà...
Comment faire ?

Merci BCp !
Alex

 

[Pascal76]

Salut

Tu peux faire

Choix:
nom = InputBox("Entrer le nom de la feuille")

for each ws in worksheets
if ws.name=nom then
msgbox("Ce nom existe déjà. Veuillez en choisir un nouveau")
goto Choix
endif
next
Sheets("calque").Copy After:=Sheets(7)
ActiveSheet.Name = nom


Bon courage

Pascal

 

[Alexandre]

Ah, Pascal,

Que ferai-je sans toi ?!

Merci bcp !

Alex

 

[Alexandre]

re salut tlm

Oups...
Pascal, quand tu mets :

for each ws in worksheets
ca veut bien dire 'pour chaque feuille du classeur ?"

Parce que ca marche pas, G une erreur, le débogueur se met en route...

QQun voit où est le pb ?

MErci BCp

Alex

 

[Pascal76]

Salut

Perso je viens de faire un test et ça marche. peux-tu dire où ça bug ? ou peut-être envoyer un morceau du fichier.

Pascal

 

[Alexandre]

oups

ben mince, j'dois etre fatigué parce que j'y arrive pas

voilà un fichier exemple
essaie d'appeler une feuille "feuil1" en cliquant sur le bouton

Merci

@+

Alex

 

[Pascal76]

Salut Alexandre

Je te joins le nouveau fichier.

Le problème venait de la différence de casse.

A bientôt

Pascal

 

[Alexandre]

Merci Pascal76 !!

ca marche

J'suis très content. J'y serais pas arrivé sans toi j'crois. j'connaissais pas le truc à marquer en haut de la feuille (option compare text) et j'y aurais jamais pensé...

A bientôt

Alexandre