Discussion :

[tomnacer]

Bonjour, je débute en vba. J'ai deux feuilles excel au sein du même classeur et avec la même entête sur 2 lignes. J'aimerais regrouper ces deux feuilles en une seule feuille et surtout avec une seule fois l'entête. Si quelqu'un pouvait m'aider please

[Menhir]

En VBA, il suffit que tu appliques la méthode Copy à un objet Range représentant toutes les données de la feuille source sauf les entête et en donnant comme destination la première ligne vide de ta feuille destination.
Il est possible de connaitre la dernière ligne utilisée dans ton fichier source ou la première ligne vierge de ton fichier destination en utilisant la propriété End appliquée à un Range désignant la première cellule de ton tableau.

[tomnacer]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Bouton4_Cliquer()
    Dim sh As Worksheet
    For Each sh In Worksheets
        If sh.Name <> "Recap" Then
            If sh.Name <> "Travaux" Then
                If sh.Name <> "Commercial" Then
            sh.[A3].Resize(sh.[A65536].End(xlUp).Row, 20).Copy Destination:=Worksheets("Recap").[A65536].End(xlUp).Offset(2, 0)
                End If
            End If
        End If
    Next sh
End Sub

Voici ce que j'ai réussi à faire jusque là mais le problème c'est qu'il laisse une ligne vide entre chaque feuille dans la feuille de destination

[Menhir]

le problème c'est qu'il laisse une ligne vide entre chaque feuille dans la feuille de destination

Sans doute à cause de ton Offset(2,0) : en gros, tu lui demandes de commencer deux lignes après la dernière, d'où l'espace vide.
Essaye de mettre plutôt (1,0) et il commencera une seule ligne après la dernière.

[tomnacer]

Oui mais mon entête fais 2 lignes

[Menhir]

Ca n'a aucun rapport. Cet Offset donne la position de la destination de la copie, pas la zone à copier.
Est-ce que tu as essayé ?

[tomnacer]

Oui je l'ai bien compris ça mais j'ai besoin que sur la nouvelle feuille ça commence à la 2ème ligne pour que mon entête rentre

[Menhir]

Essaye d'être plus clair sur la description de ton problème. Tu veux que l'entête de ta feuille source soit copiée ou non ?