Probleme de copier coller vba
infoufou
-
infoufou -
infoufou -
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
A voir également:
- Probleme de copier coller vba
- Historique copier coller - Guide
- Copier coller pdf - Guide
- Style d'écriture a copier coller - Guide
- Historique copier coller windows - Accueil - Informatique
- Copier coller multiple - Guide
4 réponses
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
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
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
'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
