Reporter la ligne ds une autre feuille

[wowette]

Bonjour,

J'aurais besoin de votre aide pour un code précis.
Je m'explique:

J'ai deux feuilles. J'aimerais que SI la cdt "(cellule D5) > 5" ALORS "recopier la valeur de la ligne (A5😀5) dans l'autre feuille à la ligne 5.

Jusque là je peux trifouiller et y arriver mais en fait je veux qu'il "scanne" toutes les lignes et les inscrive les unes en dessous des autres lorque la cdt est vérifiée.

Donc par ex de D5 à D20 et recopier la ligne associée à cette valeur dans l'autre feuille.

Un grand merci d'avance pour votre aide!

 

[titiborregan5]

Re : Reporter la ligne ds une autre feuille

Bonjour Wowette,
il faut qu'il les colle à la suite sur l'autre feuille??

Tibo

Edit:
Regarde si ce fichier te convient...
j'ai pris des exemples bidons ...
J'espère que ça te conviendra, tiens moi au courant

Tibo

 

[Efgé]

Re : Reporter la ligne ds une autre feuille

Bonjour wowette et bienvenu sur le forum, bonjour titiborregan5,
Une proposition avec ce que j'ai compris.

[COLOR=blue]Sub[/COLOR] Test()
[COLOR=blue]For[/COLOR] i = 5 [COLOR=blue]To[/COLOR] 20
    [COLOR=blue]If[/COLOR] Sheets("Feuil1").Cells(i, 4) > 5 [COLOR=blue]Then[/COLOR] Range("A" & i & ":D" & i).Copy Sheets("Feuil2").Range("A" & Sheets("Feuil2").Range("A" & Application.Rows.Count).End(xlUp).Row + 1)
[COLOR=blue]Next[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

[wowette]

Re : Reporter la ligne ds une autre feuille

Vous etes super! Merci ca fonctionne à merveille!