Discussion :

[pierre24]

Bonjour,

Je n'arrive pas à copier ma sélection ("A1:G34") d'un onglet "Modele" vers un onglet nouvellement crée. Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ActiveWorkbook.Sheets.Range("A1:G34").Copy After:=Worksheets(Worksheets.Count)

Le compilateur me dit : Membre de méthode ou de données introuvable.

Si j'enlève le Range, tout fonctionne. Seul problème je ne veux dupliquer uniquement que ma selection...

Par avance merci de votre aide.

[pierre24]

up

[pierre24]

Bonjour,

la selection que je veux copier est un pseudo formulaire composé de textbox, de cases à cocher et d'un bouton sur le formulaire modèle. il y a des macros actives sur certains textbox.

Lorsque je réalise ma copie, je ne veux pas dupliquer le bouton. Le seul moyen que j'ai trouvé est de faire une sélection de plage pour isoler ce bouton.

Le problème est que si j'écris cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Modele").Range("A1:G34").Copy Sheets("nouveau)

mes textbox et mes macros ne se dupliquent pas. Par avance merci.

[pierre24]

Bonjour personne pour m'aider ?

[Marc-L]

Bonjour, bonjour,

enregistrer le classeur sous un nouveau nom puis y supprimer ce qui doit l'être …

L'Enregistreur de macros est un outil utile apportant une base de code sur un plateau !

Au passage, dans le code du message initial, où est l'onglet "Modele" ?

[pierre24]

Bonjour,

Dans le message initial : c'est l'activeWorkBook.Sheets, si je ne dis pas de bétise, en d'autres termes, c'est l'onglet actif (on est dans le même fichier Excel).

J'ai bien pensé à suprimer le bouton dupliqué, le soucis c'est qu'il change de nom à la copie, il passe de Bouton_20 à bouton_19 par exemple.

[Marc-L]

Ben non justement ! Sinon il n'y aurait pas de message d'erreur … Et ne pas oublier la touche !

Du reste c'est corrigé dans le post #3 …

[pierre24]

Re,

permettez moi de vous dire que je n'ai pas compris ce que vous dites...

Je cherche juste à copier coller une plage de cellule d'une feuille vers une autre. Mais il me dit sans arrêt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

L'indice n'appartient pas à la sélection

J'ai essayé plusieurs syntaxes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Sheets("Modele")
   .Range("A3:G34").Copy Sheets("nouveau").Range("A1")
End With

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Modele").Range("a3:g34").Copy Worksheets("nouveau")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Modele").Range("A1:G34").Copy Sheets("nouveau")

Rien à faire !!! Je ne suis pas un pro dans le vba, habituellement j'arrive à me débrouiller mais là je coince !

Par avance merci.

[pierre24]

Nouveau code qui semble aller mieux mais nouvelle erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Modele").Range("A3:G34").Copy After:=Worksheets(Worksheets.Count)

Erreur : "erreur définie par l'application ou par l'objet"

Je gratte !

[pierre24]

Il semblerait que mon problème vienne de l'utilisation de plusieurs fonctions sur la même instruction...

Mais je coince tout de même

[Marc-L]

En voyant le code généré par l'Enregistreur de macros, on pourra enfin comprendre d'où vient l'erreur …
En tout cas, certainement quelque chose d'inexistant !

[pierre24]

Bon c'est résolu.

En fait à la base j'ai changé mon bouton précédent (Bouton controle formulaire) par un bouton Controle ActiveX car il ne trouvait pas le bouton lors de la suppression et avec ce dernier ça a marchait...

Et voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub CommandButton1_Click()
 
Sheets("Modele").Copy After:=Worksheets(Worksheets.Count)
 
Sheets(Sheets.Count).Select
 
'Je selectionne le bouton sur la feuille créee pour le supprimer ensuite
ActiveSheet.Shapes("commandbutton1").Select
Selection.Delete
 
 
End Sub

Je suis arrivé à ce que je voulais mais je n'ai pas résolu mon problème de copie par contre.

Si vous avez des précisions merci.

[pierre24]

Voila ce que fait la marco si je fais ce que je veux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub Macro3()
'
' Macro3 Macro
'
 
'
    Rows("3:35").Select
    ActiveWindow.SmallScroll Down:=-18
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
 
    Range("A1").Select
    Selection.Insert Shift:=xlDown
End Sub

En gros il copie tout le texte, les checkbox mais pas les textbox ni le code derrière...

[Marc-L]

Cela ne serait-il pas bien plus simple de partir d'un vrai classeur modèle .xlt ou .xlxt selon la version d'Excel ?

[pierre24]

Peu être que oui, mais j'ignorais l'existance de ces fichiers qui auraient répondu surement mieux à mes attentes.

Merci.