Bonjour,
Je souhaite copier coller deux tableaux différents qui ont la même structure mais dans deux onglets différents (« toto » et « tata ») dans un troisième onglet (« export) qui rassemblera ces deux tableaux en un. J ai fait une première ébauche mais je n ai pas réussi à créer une fonction qui va permettre de copier/coller les lignes du deuxième tableau à la suite du premier : mon deuxième tableau écrase les données du premier ! je dois également commencer à coller les lignes des deux tableaux à la cellule A6 du tableau final dans l’onglet « export »
Merci par avance,
NB : je copier colle ligne par ligne les deux tableaux dont je ne connaît pas au départ le nombre exact car je n ai pas trouvé la fonction qui copie colle les cellules non vides du tableau en entier et en une seule fois.
j = 1
k = 1
Sheets("TOTO").Select
Range("A1").Select
For i = 1 To Range("A65536").End(xlUp).Row
If ActiveCell.Value <> "" Then
Rows(j).Select
Selection.Copy
Sheets("Export").Select
Cells(k, 1).Select
k = k + 1
ActiveSheet.Paste
End If
Sheets("TOTO").Select
Selection.Offset(1, 0).Select
j = j + 1
Next i
Sheets("TOTO").Select
Application.CutCopyMode = False
Range("A1").Select
j = 1
k = 1
Sheets("TATA").Select
Range("A1").Select
For i = 1 To Range("A65536").End(xlUp).Row
If ActiveCell.Value <> "" Then
Rows(j).Select
Selection.Copy
Sheets("Export").Select
Cells(k, 1).Select
k = k + 1
ActiveSheet.Paste
End If
Sheets("TATA").Select
Selection.Offset(1, 0).Select
j = j + 1
Next i
Sheets("TATA").Select
Application.CutCopyMode = False
Range("A1").Select
Je souhaite copier coller deux tableaux différents qui ont la même structure mais dans deux onglets différents (« toto » et « tata ») dans un troisième onglet (« export) qui rassemblera ces deux tableaux en un. J ai fait une première ébauche mais je n ai pas réussi à créer une fonction qui va permettre de copier/coller les lignes du deuxième tableau à la suite du premier : mon deuxième tableau écrase les données du premier ! je dois également commencer à coller les lignes des deux tableaux à la cellule A6 du tableau final dans l’onglet « export »
Merci par avance,
NB : je copier colle ligne par ligne les deux tableaux dont je ne connaît pas au départ le nombre exact car je n ai pas trouvé la fonction qui copie colle les cellules non vides du tableau en entier et en une seule fois.
j = 1
k = 1
Sheets("TOTO").Select
Range("A1").Select
For i = 1 To Range("A65536").End(xlUp).Row
If ActiveCell.Value <> "" Then
Rows(j).Select
Selection.Copy
Sheets("Export").Select
Cells(k, 1).Select
k = k + 1
ActiveSheet.Paste
End If
Sheets("TOTO").Select
Selection.Offset(1, 0).Select
j = j + 1
Next i
Sheets("TOTO").Select
Application.CutCopyMode = False
Range("A1").Select
j = 1
k = 1
Sheets("TATA").Select
Range("A1").Select
For i = 1 To Range("A65536").End(xlUp).Row
If ActiveCell.Value <> "" Then
Rows(j).Select
Selection.Copy
Sheets("Export").Select
Cells(k, 1).Select
k = k + 1
ActiveSheet.Paste
End If
Sheets("TATA").Select
Selection.Offset(1, 0).Select
j = j + 1
Next i
Sheets("TATA").Select
Application.CutCopyMode = False
Range("A1").Select
