selectionner plusieurs lignes

[tonix]

Boujours au forum

j'ai un petit problème pour arriver à selectionner plusieurs lignes. En faite je souhaite selectionner les 5 dernières lignes d'un tableau,les copier et ensuite les coller juste en dessous de la sélection. J'ai commencé le programme mais je n'arrive pas à sélectionner la plage de ligne.
Merci d'avance de votre aide, bonne journée.

Private Sub CommandButton1_Click()
Dim L As Long
L = Range('A65536').End(xlUp).Row
Rows(L + 1 & ' : ' & L + 6).Select (erreur)


End Sub

 

[PascalXLD]

Bonjour

ce serait plutot

Rows(L -4 & ' : ' & L).Select

Bon courage

Message édité par: Pascal76, à: 09/02/2006 10:43

 

[pierrejean]

bonjour tous
ton code fonctionne correctement chez moi
l'erreur est à mon avis à chercher ailleurs

 

[tonix]

boujour Pascal et Pierrejean

j'ai essayé la solution de Pascal: mais j'ai obtenu la meme erreur. C'est une erreur d'execution '13' et incompatibilité de type. Et j'ai essayé aussi dans un nouveau classeur mais sans succès. je vais continuer à chercher.
Merci by

 

[PascalXLD]

re

tu peux envoyer ton ficheir avec des données bidon STP ??

 

[Hervé]

Bonjour tout le monde


il ne faut pas d'espace entre les :

Rows(L -4 & ':' & L).Select

au lieu de : Rows(L -4 & ' : ' & L).Select

salut

edition :
Rows(L -3 & ':' & L).Select c'est mieux

Message édité par: hervé, à: 09/02/2006 11:17

 

[PascalXLD]

Re

Oups bien vu Hervé je les avias pas vu cela

Bonne journée à toi

 

[tonix]

Boujours Hervé

Sans espace ca fonctionne. merci a tous, bonne journée

 

[Manu13]

bonjour à tous

la sélection des 5 dermières lignes c'est bien
Rows(L -4 & ':' & L).Select

à bientôt
Manu