Données de +sieur feuilles sur une seule feuille

T

toubib

Guest

• 4 Octobre 2005

• #2

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é

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 4 Octobre 2005

• #3

Reonné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

Cliquez pour agrandir...

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

salut

 

Vote positif 0 Vote négatif

C

Coline

Guest

• 6 Octobre 2005

• #4

Reonné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:

 

Vote positif 0 Vote négatif

C

Coline

Guest

• 6 Octobre 2005

• #5

Reonnées de +sieur feuilles sur une seule feuill

coucou le fichier pour de vrai j'esperes

MERCI

 

Vote positif 0 Vote négatif

C

Coline

Guest

• 6 Octobre 2005

• #6

Reonnées de +sieur feuilles sur une seule feuill

Bonjour me revoilà

MERCI AU TUTORIAL COMMENT JOINDRE UN FICHIER.

voici mon fichier

 

Vote positif 0 Vote négatif

C

Coline

Guest

• 6 Octobre 2005

• #7

Reonné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.

 

Vote positif 0 Vote négatif

C

Coline

Guest

• 6 Octobre 2005

• #8

Reonné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:

 

Vote positif 0 Vote négatif

C

coline

Guest

• 6 Octobre 2005

• #9

Reonnées de +sieur feuilles sur une seule feuill

 

Vote positif 0 Vote négatif

C

Coline

Guest

• 6 Octobre 2005

• #10

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:

 

Vote positif 0 Vote négatif