selection plage

K

Kobaya

XLDnaute Occasionnel

• 8 Novembre 2009

• #2

Re : selection plage

Salut,

Essaie :

Code:

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

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 8 Novembre 2009

• #3

Re : selection plage

Bonsoir à tous,

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

 

Pièces jointes

• Classeur1.xls

  25 KB · Affichages: 39
• Classeur1.xls

  25 KB · Affichages: 37
• Classeur1.xls

  25 KB · Affichages: 43

Vote positif 0 Vote négatif

D

Demouret

Guest

• 8 Novembre 2009

• #4

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...

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 8 Novembre 2009

• #5

Re : selection plage

Re,

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

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")

 

Pièces jointes

• Classeur1.xls

  33 KB · Affichages: 36
• Classeur1.xls

  33 KB · Affichages: 41
• Classeur1.xls

  33 KB · Affichages: 38

Vote positif 0 Vote négatif

D

Demouret

Guest

• 8 Novembre 2009

• #6

Re : selection plage

Ca marche très bien merci beaucoup à vous

Bonne fin de WE

Pierre

 

Vote positif 0 Vote négatif