Données de +sieur feuilles sur une seule feuille

[Coline]

Bonjour à toutes et à tous.

J'ai un fichier avec plusieurs feuille (21) et je souhaite que le données de 10 de mes feuilles soit copier au sein d'une même feuille les unes à la suite des autres.

😱

J'avoue que je suis perdu à ce niveau et que toutes les essais que j'ai faites jusqu'à present n'ont fait que de me perdre un peu plus.

Merci d'avance - pour tout. :kiss:



MERCI pour les leçons ils sont vraiment genial. 😉

 

[toubib]

bonjour coline, le forum

je ne suis pas expert, voire même un bleu, mais peut être pourrais tu essayer ça:

subcopy()

sheets(1).select 'nom de ta 1ère feuille
range('a1').select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
selection.copy
sheets('collage').select 'nom de la feuille ou tu veux coller tes trucs
range('a1').select
activesheet.paste

sheets(2).select
range('a1').select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
selection.copy
sheets('collage').select 'nom de la feuille ou tu veux coller tes trucs
range('a1').select
selection.end(xldown).select
activecell.offset(1,0)
activesheet.paste

etc en changeant les numéros ou noms de feuilles, je sais c'est de l'artisanal et doit y'avoir des combine avec for mais je suis pas assez calé 🙂

j'espère t'avoir aidé

 

[Hervé]

Re😀onnées de +sieur feuilles sur une seule feuill

Bonjour coline, toubib

Sans voir la structure de ton fichier, impossible pratiquement de répondre.

Ce type de code colle en feuille 1 les valeurs (et uniquement celles-ci) des feuilles 2 à 11 :

Sub Bouton1_QuandClic()
Dim i As Byte
Dim tablo As Variant
Dim derligne As Integer

For i = 2 To 11
tablo = Sheets(i).Range('a1').CurrentRegion
    With Sheets(1)
        derligne = .Range('a65536').End(xlUp).Row + 1
        .Range('a' & derligne).Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
    End With
Next i
End Sub

il serait souhaitable que tu nous fasse parvenir un fichier avec plus d'informations.

salut

 

[Coline]

Re😀onnées de +sieur feuilles sur une seule feuill

Salut
MERCI Hervé et toubib pour votre aide :kiss:

Je te joins mon fichier pour que tu puisse avoir plus d'information.

J'ai un fichier avec plusieurs feuille (21) et je souhaite que le données de 10 de mes feuilles soit copier au sein d'une même feuille les unes à la suite des autres.


J'ai essayé ton codes Hervé mais sa bloque sur les Ubound -


MERCI bonne Journée

Coline :kiss:

 

[Coline]

Re😀onnées de +sieur feuilles sur une seule feuill

coucou le fichier pour de vrai j'esperes

MERCI

 

[Coline]

Re😀onnées de +sieur feuilles sur une seule feuill

Bonjour me revoilà

MERCI AU TUTORIAL COMMENT JOINDRE UN FICHIER.

voici mon fichier 😉

 

[Coline]

Re😀onnées de +sieur feuilles sur une seule feuill

voici
une fois de plus le fichier

et je confirme je suis nulle sur le telechargement.

bisous.

 

[Coline]

Re😀onnées de +sieur feuilles sur une seule feuill

voici
une fois de plus le fichier

et je confirme je suis nulle sur le telechargement.

c'ets la dernière tentative -

bisous.
:kiss:

 

[coline]

Re😀onnées de +sieur feuilles sur une seule feuill

 

[Coline]

ok donnée +sieur feuil sur 1 seule feuil

MERCI A HERVE ET TOUBIB
:kiss:

J'ai appliquer la methode de Toubid et ça marche j'ai un peu bricoller.

Private Sub CommandButton5_Click()
Sheet24.Range('A4:A10000').EntireRow.ClearContents ' Effacer le contenue

Sheet25.Select 'nom de ta 1ère feuille
Range('A4').Select
Range('A4:A200').EntireRow.Select 'je selectionne la ligne entière
Selection.Copy
Sheet24.Select 'nom de la feuille ou tu veux coller tes trucs
Range('A4').Select
ActiveSheet.Paste

Sheet26.Select 'nom de ta 2ème feuille
Range('A4').Select
Range('A4:A200').EntireRow.Select 'je selectionne la ligne entière
Selection.Copy
Sheets('essai').Select 'nom de la feuille ou tu veux coller tes trucs
Selection.End(xlDown).Select
ActiveSheet.Paste
End Sub

MERCI à VOUS :kiss:

maintenant il faut que je trouve une methode pour faire une boucle sur 25 feuilles ki ont des nom different.

Plein de bisous

Coline :kiss: