Copier une ligne entière d'une table

[milpom]

Bonjour à tous,

J'ai déjà vu ça quelque part mais impossible de mettre la main dessus.

Je cherche à copier une ligne entière d'une table et la coller dans une autre table

c'est possible avec une boucle, mais je cherche l'instruction pour la ligne entière.

merci.

edit: ah j'oubliais, table de debut à 2 dimensions, table de fin à 1 dimension ( celle qui va acceuillir la ligne de la table de début.

 

[youky(BJ)]

Re : Copier une ligne entière d'une table

Bonjour milpom,
Pour nous c'est impossible de mettre la main sur ton fichier exemple
Un tableau qui commence à 1 dimension et finit à 2 dimensions, ma conclusion c'est que le tableau est à 45°.
Dans l'attente d'un fichier ou l'on peut mettre la main dessus avec un petit exemple cela sera bien plus facile de te donner une réponse.
Bruno

 

[milpom]

Re : Copier une ligne entière d'une table

je savais que j'étais pas clair 😱

Bien.

Table1 (1 to 6, 1 to 4) ' toute la table est rempli avec des valeurs quelconque.

Table2 (1 to 4) 'est une table qui va reçevoir une et une seule ligne de la table1.

Donc je souhaite que cette dernière reçoive d'un coup les 4 valeurs issu de la table 1.

petite illustration:

Table1
2 6 5 8
9 8 4 3
6 8 7 1
5 6 8 1
5 6 8 4
2 1 5 7


Comment transferer d'un coup les 4 valeurs de la ligne 3 (par exemple) dans la table2 sans faire une boucle ?


table2
6 8 7 1

esce plus clair ?

Merci pour ta réponse

 

[YANN-56]

Re : Copier une ligne entière d'une table

Bonsoir Mille_pommes, youky, et à ceux qui passeront par ici.

La méthode me semble aisée; mais encore faudrait-il savoir
où se trouvent tes "Tables" !!! 😕

Il est vrai qu'un Classeur exemple aiderait beaucoup!

Amicalement

Yann

 

[milpom]

Re : Copier une ligne entière d'une table

voir piece jointe

 

[JCGL]

Re : Copier une ligne entière d'une table

Bonjour à tous,

Je n'ai pas compris le pourquoi de la boucle.

En Feuil1 et en F1 la ligne Source et en G1 la ligne Cible [Source] :

Option Explicit
 
Sub Copie()
    Feuil1.Rows(Feuil1.Range("F1")).copy Feuil2.Rows(Feuil1.Range("G1"))
End Sub

 

[YANN-56]

Re : Copier une ligne entière d'une table

Re

Il serait aussi possible de regarder du coté de:

 ActiveSheet.Range(ActiveSheet.Cells(3, 1), ActiveSheet.Cells(3, 4)).copy Worksheets("Feuil2").Cells(5, 4)

La destination et l'origine restent à être précisées suivant ce que tu veux faire.

Amicalement

Yann

 

[Pierrot93]

Re : Copier une ligne entière d'une table

Bonjour à tous,

avec ce que tu donnes, en reprenant le début de ton code et sans faire de boucle, comme indiqué, quoiqu'une petite boucle me semblerait plus adéquate.... mais c'est juste un avis...

Option Explicit
Sub copy()
Dim t_deb As Variant
Dim t_fin(1 To 4)
t_deb = Sheets(1).Range("A1:D13")
    't_deb contient maintenant les valeurs du tableau feuil1
t_fin(1) = t_deb(8, 1)
t_fin(2) = t_deb(8, 2)
t_fin(3) = t_deb(8, 3)
t_fin(4) = t_deb(8, 4)
' Comment faire pour copier les 4 valeurs de la ligne 8 de la table t_deb
' dans la table t_fin, sans passer par une boucle ?
End Sub

bonne journée
@+

 

[milpom]

Re : Copier une ligne entière d'une table

Pierrot93

t_fin(1) = t_deb(8, 1)
t_fin(2) = t_deb(8, 2)
t_fin(3) = t_deb(8, 3)
t_fin(4) = t_deb(8, 4)

Oui d'accord, c'est ça mais en une seule fois

comment copier une ligne d'une table dans une autre table ?

 

[Pierrot93]

Re : Copier une ligne entière d'une table

Bonsoir à tous,
BONSOIR milpom et MERCI de me répondre....

Dim t_deb As Variant, t_fin As Variant
t_deb = Sheets(1).Range("A1:D13")
t_fin = Array(t_deb(8, 1), t_deb(8, 2), t_deb(8, 3), t_deb(8, 4))

 

[milpom]

Re : Copier une ligne entière d'une table

bonsoir

Après moult recherches, j'ai trouvé ce que je cherchais:

tab_A=range("A1:E10")
tab_B=application.index(tab_A,3) 'copie la 3eme ligne de tab_A et la colle dans tab_B.

Merci à tous pour vos solutions.🙂