selection d'une zone (variable) pour copie

dj.run à dit:

Bonjour à tous et à toutes,

Oui certain vont dire "v'la un revenant ! "

j'explique mon petit probleme.

j'ai un tableau de 411 lignes et les col vont jusqu'a "R".

suite à plusieurs calculs (je vous les passe) les cel de col R sont soit egales a 0 soit differentes.

j'aimerai par une macro pouvoir selectionner les lignes de mon tableau (de A à R) dont la valeur R est differente de 0 et les copiées dans une autre feuille.

j'espere avoir ete assez clair ??

et je vous remercie par avance pour vos solution

dj.run

Cliquez pour agrandir...

Sub test()
Dim X As Long
Dim Lig As Long

Lig = Sheets("Destination").Range("A65536").End(xlUp).Row

For X = 1 To Sheets("Source").Range("A65536").End(xlUp).Row
    If Sheets("Source").Range("R" & X) <> 0 Then
        Sheets("Source").Range("A" & X & ":R" & X).Copy (Sheets("Destination").Range("A" & Lig))
        Lig = Lig + 1
    End If
Next X

End Sub

dj.run à dit:

Bonjour a toutes et a tous,

je reviens sur mon sujet d'hier, car j'ai essayé d'adapter la macro de gorfael et je n'arrive pas à ce que je voudrai.

en effet j'aimerai renvoyer dans la feuille repports toutes les lignes (de A à R) qui ne sont pas à zero . et en fait cela ne me renvoi que la premiere ligne .

je vous joint un extrait de mon fichier pour plus de comprehension.

en vous remerciant par avance .

dj.run

Cliquez pour agrandir...

pierrejean à dit:

bonjour dj.run
salut dab
salut Gorfael

@dj.run

la macro est OK mais la colonne A apparait plus representative que la colonne R

vois si cela te convient

Cliquez pour agrandir...