selection d'une zone (variable) pour copie

[dj.run]

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

 

[Dan]

Re : selection d'une zone (variable) pour copie

Bonjour,

Ben cela c'est vrai que voilà un revenant !!!!
Salut à toi depuis tout ce temps. 😀
Si personne ne passe je regarde ton pb ce soir mais tu peux regarder ce fil qui est un peu ce que tu demandes sauf que c'est le résultat après filtrage --> https://www.excel-downloads.com/threads/suivi-ameliorations.53120/

A+

 

[Gorfael]

Re : selection d'une zone (variable) pour copie

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

Salut
Macro simple

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

ça devrait répondre à ton problème
Source la feuille de départ où sont les données à copier
Destination feuille d'arrivée(avec le champagne, les fleurs et les girls 🙂 )

A+

 

[dj.run]

Re : selection d'une zone (variable) pour copie

Merci DAN et GORFAEL pour votre reponse, avec tout ça, je devrais pouvoir continuer mon projet .

encore merci à vous deux et longue vie au forum .

 

[dj.run]

Re : selection d'une zone (variable) pour copie

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

 

[pierrejean]

Re : selection d'une zone (variable) pour copie

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

 

[dj.run]

Re : selection d'une zone (variable) pour copie

Un grand merci Pierre Jean, cela fonctionne et je peux avancer grace a vous.

j'ai juste adapter votre code avec mes besoins .

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

Lig = Sheets("repports").Range("A65536").End(xlUp).Row
'Sheets("Transfdom2007 (2)").Select

For X = 1 To Sheets("Transfdom2007 (2)").Range("A65536").End(xlUp).Row

If Sheets("Transfdom2007 (2)").Range("r" & X) <> 0 Then
Sheets("Transfdom2007 (2)").Range("A" & X & ":R" & X).Copy (Sheets("repports").Range("A" & Lig))
Lig = Lig + 1
End If
Next X

End Sub


encore merci

Dj.run

 

[Gorfael]

Re : selection d'une zone (variable) pour copie

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

Salut
Pas glop, pas glop
La macro marche pas et c'est normal (elle a pas de jambes 🙂 )

For X = 1 To Sheets("Transfdom2007 (2)").Range("r411").End(xlUp).Row
tu te mets sur la cellule R411 et tu fais Ctrl + flèche vers le haut
qui correspond à l'instruction Range("r411").End(xlUp)
et tu te retrouves en .... R1
aucune des cellules de R1 à R411 n'est vide : elles contiennent une formule
donc tu vas modifier cette ligne
For X = 1 To Sheets("Transfdom2007 (2)").Range("r411").End(xlUp).Row
pour avoir
For X = 4 To Sheets("Transfdom2007 (2)").Range("A411").End(xlUp).Row

On va commencer à la ligne 4 et finir à la dernière ligne non-vide de A en partant de la ligne 411

A+

 

[Gorfael]

Re : selection d'une zone (variable) pour copie

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

Re...
Oups désolé, j'avais pas vu

 

[ChTi160]

Re : selection d'une zone (variable) pour copie

Salut dj.run
Bonsoir le fil
Salutations pierrejean
j'ai inclu au fichier de pierrejean une macro attachée au bouton test

a voir lol
bonne fin de journée 😀
New Edition arff j'avais pas compris il faut transférer les tableaux en dessous des données aussi ???????
Regarde la pièce jointe Transfdom2007 ter.zip