renseigner un n° de ligne dans 1 macro

[husaberrg]

bonsoir

j'ai cree une macro qui me permet de selectionner ligne 1 entiere et puis de la coller dans un autre classeur a la ligne 2 par exemple.
Seulement mon probleme et que je voudrai pouvoir determiner quel ligne il faut selectionner et quelle se colle dans l'autre classeur à la 1ere ligne vide. merci de votre aide.

 

[_Thierry]

Bonsoir Husaberg, le Forum

En partant du principe que ce code sera placé dans le classeur Source... Et que le classeur Cible est ouvert...

Sub CopyRow()
Dim WBSource As Workbook
Dim WSSource As Worksheet
Dim WBCible As Workbook
Dim WSCible As Worksheet
Dim LSource As Long


Set WBSource = ThisWorkbook
Set WSSource = WBSource.Worksheets('Feuil1')&nbsp; '<< NOM FEUILLE A ADAPTER !

Set WBCible = Workbooks('LeClasseurCible.xls') '<< NOM CLASSEUR A ADAPTER !
Set WSCible = WBCible.Worksheets('Feuil1')&nbsp; &nbsp; '<< NOM FEUILLE A ADAPTER !


LSource = Application.InputBox('Indiquer le Numéro de ligne à Copier', 'Line Row', ActiveCell.Row, Type:=1)
WSSource.Rows(LSource).Copy Destination:=WSCible.Range('A65536').End(xlUp)(2)

End Sub

Ce devrait fonctionner à partir du moment où tu adaptes les noms comme indiqué...

Bonne Soirée
[ol]@+Thierry[/ol]

Message édité par: _Thierry, à: 09/08/2005 21:50

 

[husaberg]

merci thierry je suis tres impressionner par toute cette programmation chapeau.
par contre je me suis mal exprimer je n'ai pas besoin de coller dans un autre classeur mais juste dans une autre feuille ca modifie bcp ? merci

 

[husaberg]

je ne parvien pas a la faire marcher j'ai le message d'erreur suivant
variable objet ou variable de bloc With non definie. merci