Discussion :

[Frr80]

Bonjour à tous,

Je suis nouveau sur ce forum et j'ai besoin de votre aide pour développer une petite macro afin de compiler des données.

Je vous explique :

J'ai un fichier excel 2010, avec une feuille principale (nommée "Recap"), construit sous forme de tableau (cellule B2 jusque S2) avec plusieurs informations dedans. J'ai ensuite d'autres feuille avec la même forme de tableau (identique) : Feuil1 / Feuil2 / Feuil3. Je souhaite pouvoir rassembler les informations / lignes des autres feuilles dans la feuille principale à la suite. En imaginant que ce soit plusieurs lignes d'actions à faire dans chaque feuille ...

J'espère avoir été assez clair. Merci d'avance pour votre aide !

Aurélien.

[Kimy_Ire]

Bonjour Frr80,

Non, ce n'est pas clair - enfin, pour moi.
Un exemple serait probablement le bienvenue.

Quelles données veux-tu déplacer dans tes autres onglets, selon quelle(s) condition(s) ?

Cordialement,
Kimy

[Frr80]

Je joins un fichier type pour expliquer

Je souhaite pouvoir compiler les lignes des feuilles f1 f2 f3 f4 dans la feuille générale à la suite.
En gros, faire un copier coller des lignes complétées des feuilles f1 f2 f3 f4 dans la feuille générale.

Je pense que se doit être plus clair avec le fichier, merci

[Kimy_Ire]

Bon... je ne sais pas ce qu'il se passe mais ton fichier réagit bizarrement...

A chaque fois que je tente de lancer ma macro pour faire mes tests, il me renvoi à la cellule [FRR80]...

Ainsi je pose le code que j'ai écris sans avoir testé... Je pense qu'il y a des erreurs mais j'ai la flemme de faire des fichiers de tests pour ça...
De plus, je n'ai plus trop de temps...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Option Explicit
 
Sub Frr80()
Dim rng_in As Range
Dim rng_out As Range
Dim wksht As Worksheet
Dim i as Integer, j as Integer
 
For Each wksht In Worksheets
    If wksht.Name <> "General" Then
        With wksht
            Set rng_in = .Columns(2).Find("ID", LookIn:=xlValues, LookAt:=xlWhole)
 
            For i = 1 To .Columns(2).Find("*", , , , , xlPrevious).Row - rng_in.Row + 1
                Set rng_out = Worksheets("General").Columns(2).Find("*", , , , , xlPrevious).Offset(1, 0)
                If IsNumeric(rng_out.Offset(-1, 0)) then
                    rng_out = rng_out.Offset(-1, 0) + 1
                Else
                    rng_out = 1
                End If
                For j = 1 To .Rows(rng_in.Offset(i, 0).Row).Find("*", , , , , xlPrevious).Column - 2
                    rng_out.Offset(0, j) = rng_in.Offset(i, j)
                Next j
            Next i
        End With
    End If
Next wksht
End Sub

J'espère être proche de la fin afin que tu n'ai pas trop de modification à faire...

Bref, j'essayerai de revenir rapidement.

Cordialement,
Kimy

[danixdb]

Bonjour Frr80, Kimy_Ire, Le Forum

Proposition de compilation des différentes feuilles.

Si dans la feuille General, les données des précéde,ntes compilations doivent rester, il faudra désactiver la ligne suivante :

Code :

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

1
2
 
Range(Cells(4, 2), Cells(Selection.End(xlDown).Row, 19)).ClearContents

Un clic sur le bouton lit et écrit toutes les données des différentes feuilles dont le nom est différent de General.

Bon après-midi.

Slts

[Frr80]

Merci beaucoup à vous deux c'est nikel !

J'ai encore une dernière requête, quelqu'un saurait-il faire la démarche inverse ?

Imaginons que j'apporte des modifications dans la feuille "Générale", peut-on copier coller les lignes de la feuille "Générale" vers les différentes feuilles à partir de la colonne "Owner" ? En imaginant que chaque feuille soit nommé en fonction des "Owners" ?

Thx

[Kimy_Ire]

Quasi même problématique ici : http://www.developpez.net/forums/d14...ableau-source/

A toi d'adapter !

Cordialement,
Kimy

[danixdb]

Bonjour,

Une petite question :
cela veut-il dire que l'alimentation de la feuille General ne sera plus faite par les feuilles détails ?
Ou est-ce que les deux sont possible ?


Slts