Compilation de données dans un tableau avec VBA

Version imprimable

09/12/2014, 10h12
Frr80

Compilation de données dans un tableau avec VBA

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.
11/12/2014, 09h24
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
11/12/2014, 09h34
Frr80

1 pièce(s) jointe(s)

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

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:

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

11/12/2014, 15h46
danixdb

1 pièce(s) jointe(s)
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:

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
11/12/2014, 16h13
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
11/12/2014, 16h52
Kimy_Ire

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

A toi d'adapter ! :ccool:

Cordialement,
Kimy
12/12/2014, 09h30
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