Copie de lignes sous conditions

[RSISO]

Bonjour,

Je voudrais copier les lignes d'une feuille de calcul récapitulative vers différents onglets d'un même classeur.

Dans un classeur Excel (TEST RS), j'ai un onglet "RECAP" avec des valeurs aléatoires dans les 20 premières lignes et sur plusieurs colonnes.
Je souhaiterai copier la ligne 1 de l'onglet "RECAP" dans l'onglet "BT1" du même classeur en ligne 20, la ligne 2 de l'onglet "RECAP" dans l'onglet "BT2" du même classeur en ligne 20, la ligne 3 de l'onglet "RECAP" dans l'onglet "BT3" du même classeur en ligne 20, et ainsi de suite.

Ci-joint un exemple du classeur.

Merci de vos réponses

 

[sixair]

Re : Copie de lignes sous conditions

Bonjour RSISO,

Soit tu peux boucler, exemple:

Sub copieur()
Dim i As Integer
For i = 1 To 20
Sheets("RECAP").Rows(i).Copy Sheets("BT" & i).Rows(20)
Next
End Sub

ou peut-être a tu besoin de lier tes valeurs ?

Cdlt
sixair

 

[pierrejean]

Re : Copie de lignes sous conditions

Bonjour RSISO

Sub copie()
For n = 1 To 20
  Sheets("RECAP").Rows(n).Copy Destination:=Sheets("BT" & n).Range("A20")
Next
End Sub

 

[RSISO]

Re : Copie de lignes sous conditions

Merci à vous deux, c'est exactement ce que je voulais.

RSISO

 

[mapomme]

Re : Copie de lignes sous conditions

Bonjour à tous,

Ou bien, pour le fun, par une formule.
=INDEX(RECAP!1:20;SUBSTITUE(STXT(CELLULE("nomfichier";A1);TROUVE("]"; CELLULE("nomfichier";A1))+1;10);"BT";"");COLONNE())


si on veut éliminer le résultat 0 quand une cellule source est vide (si(formule="";"";formule):
=SI(INDEX(RECAP!1:20;SUBSTITUE(STXT(CELLULE("nomfichier";A1);TROUVE("]"; CELLULE("nomfichier";A1))+1;10);"BT";"");COLONNE())="";"";INDEX(RECAP!1:20;SUBSTITUE( STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;10);"BT";"");COLONNE()))