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 ?
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
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é...