Addition de tableaux

Bonjour !

Je viens vers vous car j'ai deux problèmes :)

J'ai une macro qui me permet de pouvoir mettre les uns à la suite des autres des tableaux, sauf que mon problèmes est que dans mon code actuelle je n'arrive pas à lancer ma macro sans supprimer mes entêtes et de plus je me retrouver toujours avec une ligne entre mes tableaux ce qui fait me ma fonction refresh n'arrive pas à remettre ma page à zero.

Si quelqu'un de talentueux peut mettre son nez la dedans je serais le plus heureux du monde :)

Salut GomJu,

Pour ne pas avoir de ligne vide entre tes tableaux, tu peux utiliser ça :

'Copier les données dans l'onglet *******
ActiveWorkbook.Sheets("******").Select
ThisWorkbook.Sheets("******").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

Et pour supprimer toute tes lignes, cette fonction fait l'affaire :

Sub Supression_BD()

'Déclaration des variables
Dim wb As Workbook

'Selectionner l'onglet biblio et supprimer les données
ActiveWorkbook.Sheets("******").Select
ThisWorkbook.Sheets("******").Rows("2:20000").Select
Selection.Delete

End Sub

Bonne journée :)