Petite énigme

Bonsour ® Patrice,
il est marqué dans l'aide :
Cette méthode copie la plage vers la plage spécifiée ou dans le
Presse-papiers.
expression.Copy(Destination)

1-expression Obligatoire. Expression qui renvoie un objet Range.
2-Destination Argument de type Variant facultatif. Spécifie la nouvelle
plage dans laquelle la plage spécifiée sera copiée.
Si vous ne spécifiez pas cet argument, Microsoft Excel copie la plage dans
le Presse-papiers.

il suffit alors simplement d'écrire :

Private Sub CommandButton1_Click()
Range("C4").Select
Sheets("toto").Select
Sheets("toto").Copy Before:=Sheets(1)
[C3] = "test"
End Sub

;o))) c'est ce que t'aurai donné l'enregistreur de macro ...

@+

dans news:1f2f01c4a8a5$dfcd9940$a301280a@phx.gbl,
Patrice FY <anonymous@discussions.microsoft.com> typed:

Hello,

Petite question, qauand je fais:

Private Sub CommandButton1_Click()
Range("C4").Select
Sheets("toto").Select
Sheets("toto").Copy
[c3] = "test"
End Sub

Pourquoi test s'écrit sur la feuille toto et non pas sur
la copie ??? Et comment faire pour écrire Test sur la
copie ouverte ???

Merci les cracks

Essaie un peu ceci, et reviens si tu as des questions ...

Sub Com()
Set desti = Sheets("toto").Range("A65000").End(xlUp)(2)
Sheets("titi").Select
Range("C4").Select
Selection.Copy desti
End Sub

Bye

--
...Patrick
Quoi que vous fassiez, faites le bien .
Mail: http://cerbermail.com/?KPW0tTCjFw
Connectez vous sur ce forum par :
news://msnews.microsoft.com/microsoft.public.fr.excel


"Patrice FY" <anonymous@discussions.microsoft.com> a écrit dans le message
de news: 1f2f01c4a8a5$dfcd9940$a301280a@phx.gbl...
Hello,

Petite question, qauand je fais:

Private Sub CommandButton1_Click()
Range("C4").Select
Sheets("toto").Select
Sheets("toto").Copy
[c3] = "test"
End Sub

Pourquoi test s'écrit sur la feuille toto et non pas sur
la copie ??? Et comment faire pour écrire Test sur la
copie ouverte ???

Merci les cracks

Bonjour *Patrice FY*

Inverser les lignes
Ecrire d'abord puis copier ensuite

--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faqword.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net

| Hello,
|
| Petite question, qauand je fais:
|
| Private Sub CommandButton1_Click()
| Range("C4").Select
| Sheets("toto").Select
| Sheets("toto").Copy
| [c3] = "test"
| End Sub
|
| Pourquoi test s'écrit sur la feuille toto et non pas sur
| la copie ??? Et comment faire pour écrire Test sur la
| copie ouverte ???
|
| Merci les cracks

Bonjour Patrice

Je dirais que c'est parce que ta macro se trouve dans le module de feuille et que sans précision de
classeur, ca va dans le classeur de la feuille. D'ailleurs si tu testes le meme code dans une Sub
classique, Test est bien écrit dans la copie de classeur.

j-p