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