Probleme de copier coller vba
Bonjour,
après plusieur recherche je n'arrive toujours pas à résoudre mon problème
dans un classeur j'ai une feuille "model" qui me sert pour créer des nouvelle feuille semblable par copier coller.
grace a mon code jarrive a créer une nouvelle feuille qui est nommée par un textbox. une fois créer, je voudrais copier le contenu de la feuille model et la coller dans ma nouvelle feuille (si possible sans copier le contenu des cellule, juste la présentation existante).
le problême est que le programme ne reconnait pas le nom de ma nouvelle feuille donné par mon textbox. Et m'envoie un message d'erreur 9
je vous met mon programme ci-dessous.
Si quelqu'un peut m'aider car je bloc depuis un bon moment. merci
Private Sub CommandButton1_Click()
Dim nomduprojet As String
'créer une feuille
nomduprojet = UserForm14.TextBox1
Sheets.Add.Select
ActiveSheet.Name = nomduprojet
'copier feuille model
Sheets("MODEL").Select
Cells.Select
ActiveSheet.Copy
'coller, c'est cette partie qui beug
Sheets(Me.TextBox1.Value).Select
Cells.Select
ActiveSheet.Paste
End Sub
après plusieur recherche je n'arrive toujours pas à résoudre mon problème
dans un classeur j'ai une feuille "model" qui me sert pour créer des nouvelle feuille semblable par copier coller.
grace a mon code jarrive a créer une nouvelle feuille qui est nommée par un textbox. une fois créer, je voudrais copier le contenu de la feuille model et la coller dans ma nouvelle feuille (si possible sans copier le contenu des cellule, juste la présentation existante).
le problême est que le programme ne reconnait pas le nom de ma nouvelle feuille donné par mon textbox. Et m'envoie un message d'erreur 9
je vous met mon programme ci-dessous.
Si quelqu'un peut m'aider car je bloc depuis un bon moment. merci
Private Sub CommandButton1_Click()
Dim nomduprojet As String
'créer une feuille
nomduprojet = UserForm14.TextBox1
Sheets.Add.Select
ActiveSheet.Name = nomduprojet
'copier feuille model
Sheets("MODEL").Select
Cells.Select
ActiveSheet.Copy
'coller, c'est cette partie qui beug
Sheets(Me.TextBox1.Value).Select
Cells.Select
ActiveSheet.Paste
End Sub
Configuration: Windows XP Internet Explorer 6.0
4 réponses
-
non c moi qui avait oublié de remettre le nom d'origine de ma variable. c
j'avais essayé telment de chose
en tout cas avec le code de yata ca marche
merci quand meme ben -
IMPEC LA GUINGUETTE
Merci bocoup ca marche o poil
dire que ca fait 3heures que je suis dessus
bonne journe merci -
pourquoi tu ne réutilise pas ta variable nomduprojet pour selectionner ta page vierge
'coller, c'est cette partie qui beug
Sheets(nomduprojet).Select
Cells.Select
ActiveSheet..PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
voila pour ne copier que le format de tes cellules -
moi j'utilise ceci
je pense que dans otn codetu ne selectionne pas de cellule
'copie des données
Sheets(1).Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
'colle les donnée
Sheets(2).Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
