Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

aller chercher des infos dans chaques feuilles

bertgrav

XLDnaute Occasionnel
bonjour,

je voudrais créer un fichier qui récupére certaines infos de toutes les feuilles d'un autre fichier,
j'ai joint un exemple, le premier fichier contient des données: code etc etc
tous les jours je fais une extraction et classe cette extraction en créant 1 feuille supplémentaire en la nomant par la date.
je voudrais créer par la suite, un autre fichier avec chaque feuille se nommant par code (j'ai mis l'éxemple ADD) et cette feuille irait chercher dans chaque feuille du 1er fichier les infos sur le code de chaque feuille.
il suffit de faire un tri par rapport à ce code de faire copier et de rapatrier ce copier aprés la derniére cellule occupée, là je devrais savoir faire.
mais comment faire pour aller de feuille en feuille sur le premier fichier ?

CHANTAL [file name=essais_20060524120218.zip size=21224]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essais_20060524120218.zip[/file]
 

Pièces jointes

  • essais_20060524120218.zip
    20.7 KB · Affichages: 31
B

bernard

Guest
bonjour,
une idée de code pour aller de feuille en feuille.

y = Sheets.Count
For x = 1 To y
Sheets(x).Select

ICI TU METS CE QUE TU VEUX FAIRE SUR CHAQUE FEUILLE

Next x


bernard
 

Gorfael

XLDnaute Barbatruc
salut
travail sur les données de ton fichier
Code:
Sub Remplissage_feuille()

Dim Onglet_X As Integer
Dim Onglet_Y As Integer
Dim Lig_Origine As Long

'Boucle de recherche de feuille destination
For Onglet_X = 1 To Sheets.Count
    'Si la longueur du nom de la feuille correspond à une référence
    If Len(Sheets(Onglet_X).Name)  4 Then
                Sheets(Onglet_Y).Activate
                For Lig_Origine = 2 To Range('A65536').End(xlUp).Row
                    If Sheets(Onglet_X).Name = Cells(Lig_Origine, 1) Then
                        Range(Cells(Lig_Origine, 1).Address & ':' & _
                              Cells(Lig_Origine, 7).Address).Copy
                        Sheets(Onglet_X).Activate
                        Cells(Range('A65536').End(xlUp).Row + 1, 1).Select
                        ActiveSheet.Paste
                        Sheets(Onglet_Y).Activate
                    End If
                Next Lig_Origine
            End If
        Next Onglet_Y
    End If
Next Onglet_X
End Sub
Je suis parti du principe que tes onglets origines sont formatés avec la date (comme dans l'exemple donc, plus de 4 caractères et les onglets destinations ont moins de 4 caractères.

On peut aussi travailler à l'invers : on parcoure les lignes des feuilles origines et si on ne trouve pas une feuille destination (onglet correspondant à la colonne A), on crée la feuille
A+
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…