Bonjour
Je sais que le sujet à deja été traité 100 fois, mais je ne n'ai pas réussi à compiler les différents codes que j'ai trouvés.
Je souhaite fusionner différents onglets dans un nouveau tout en définissant le range de départ :
Exemple B17: le nombre de colonne et une selection automatique du nombre de ligne en fonction du nombre d'enregistrement pour les onglets sources.(le range est identique pour tout les onglet suivant)
puis copier le tout dans un nouvelle onglet et que l'onglet suivant soit copier en dessous des lignes du premier etc.
genre :
Range(Sheets(s).[A2], Sheets(s).[A65000].End(xlUp).End(xlToRight)).Copy _
[A65000].End(xlUp).Offset(1, 0)
Cette formule ne me permet pas de définir la cellule de départ pour le range !!?? et ne copie pas le contenu des onglets à la suite mais ecrase le contenue..
De plus les cellules source sont fusioniées et j'ai une errreur spécifique à ce PB. (je n'ai pas besoisn qu'elles soient fusionées sur la cible)
Merci de votre aide
COrdialement
JP
Je sais que le sujet à deja été traité 100 fois, mais je ne n'ai pas réussi à compiler les différents codes que j'ai trouvés.
Je souhaite fusionner différents onglets dans un nouveau tout en définissant le range de départ :
Exemple B17: le nombre de colonne et une selection automatique du nombre de ligne en fonction du nombre d'enregistrement pour les onglets sources.(le range est identique pour tout les onglet suivant)
puis copier le tout dans un nouvelle onglet et que l'onglet suivant soit copier en dessous des lignes du premier etc.
genre :
Range(Sheets(s).[A2], Sheets(s).[A65000].End(xlUp).End(xlToRight)).Copy _
[A65000].End(xlUp).Offset(1, 0)
Cette formule ne me permet pas de définir la cellule de départ pour le range !!?? et ne copie pas le contenu des onglets à la suite mais ecrase le contenue..
De plus les cellules source sont fusioniées et j'ai une errreur spécifique à ce PB. (je n'ai pas besoisn qu'elles soient fusionées sur la cible)
Merci de votre aide
COrdialement
JP