selection plage

[Demouret]

Bonjour le Forum,

Désolé ca doit être dimanche ou je suis bon à rien...
Je me bats depuis 2h pour selectionner une plage de cellules non vides en vue de la copier depuis une autre feuille et ca veut pas...

j'en suis là:

Private Sub CommandButton1_Click()
Sheets("aa").Range(Range("A1"), Range("G65536").End(xlUp)).Select
Selection.Copy
End Sub

Si une bonne ame pouvait me liberer de mon cauchemar dominical... ;-))
merci à vous

 

[Kobaya]

Re : selection plage

Salut,

Essaie :

Sheets("aa").Range("A1").CurrentRegion.Select

 

[Catrice]

Re : selection plage

Bonsoir à tous,

Ton code fonctionne, il faut juste coller ...
Pas la peine de faire le Select.
Voir le fichier joint

 

[Demouret]

Re : selection plage

Ben c'est fou mais ca marche pas chez moi

"erreur d'execution 1004"
"erreur definie par l application ou par l objet"

En fait mon code fonctionne si le commandbutton se trouve sur la feuille "aa" mais pas si je le place sur une autre feuille...

 

[Catrice]

Re : selection plage

Re,

Autant pour moi, il y avait un bug dans ton code :

Private Sub CommandButton1_Click()
With Sheets("aa")
    .Range(.Range("A1"), .Range("G65536").End(xlUp)).Copy Sheets("bb").Range("A1")
End With
'ou
'Sheets("aa").Range("A1").CurrentRegion.Copy Sheets("bb").Range("A1")
End Sub

Il faut que chaque Range soit referencé ...
Ils font reference à Sheets("aa")

 

[Demouret]

Re : selection plage

Ca marche très bien merci beaucoup à vous

Bonne fin de WE

Pierre