Copier, renommer feuille VBA + liste déroulante

3

Bonjour,

Je suis en pleine construction d'un gros fichier important de gestion de contrat scientifique (comportant entre du VBA, et plein de formules que je n'ai pas encore complété).
Depuis un moment je bute sur 2 soucis :

  • Liste en cascade et je n'arrive pas à voir l'erreur, le message est le suivant : "la source est reconnue comme erronée" : la liste déroulante se situe dans la feuille "FICHE CONTRAT", la première "Type de Projet" est en B13 qui génère alors la deuxième liste "Sous Catégorie" en E13. Tous les éléments de ces listes se situent dans la feuille "Feuil1" : Type de Projet : A2:A25, - Sous Catégorie : B2:B25
  • L'onglet "FICHE CONTRAT" est un onglet type que je veux copier dans le même classeur tout en le renommant en fonction du nom que j'aurai saisi en "B7"

Voici mon code :

'on copie FICHE CONTRAT
Sub CopierEtRenommerFeuille()
	Dim Sh As Worksheet, Ws As Worksheet
	Set Ws = ActiveSheet
	Set Sh = Worksheets.Add(AFTER:=Sheets(Sheets.Count))
	Ws.Cells.Copy
	With Sh.Range("A1")
		.PasteSpecial xlPasteAll
		.Range("A1").Select
	End With
End Sub

J'ai vu un tas de sujets sur le site et le web que j'ai essayé d'appliquer, mais rien à faire je n'y arrive pas :s

S'il vous plait, aidez-moi
Merci par avance

http://www.cjoint.com/c/FHEmJdMdPTJ

Posté le 30 août 2016, 15:02
Répondre

Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :