Microsoft 365 compilation données

[Boubie]

Bonjour, je cherche une macro simple pour compiler les données de 3 onglets sur un seul onglet
Quelqu'un peut il m'aider, svp.

Ci-joint mon fichier en pièce jointe.

D'avance, je vous remercie.

 

[Cousinhub]

Bonsoir,
Sans macro, mais avec Power Query (nativement installé dans ta version d'Excel)
De plus, tout traitement supplémentaire pourrait être réalisé dans la requête.
J'ai transformé tes plages de données en Tableau Structuré, nommé "Tab_A", "Tab_C"...
Dans la requête, je récupère donc le tout dans un TS nommé "T_Final"
Clic droit dans la requête, "Actualiser", ou ruban "Données", "Actualiser tout" pour mettre à jour
Tu peux mettre autant de Tableaux que tu veux, tant que tu les nommes avec les 4 premiers caractères "Tab_"xxxx, ils seront pris en compte.
Bonne soirée

 

[Boubie]

Merci beaucoup Cousinhub pour ton retour.
Mais, je n'ai jamais utilisé Power Query...!! et mon urgence serait plus simple via une macro.
Peut tu ou pouvez-vous m'aider pour ce module?

 

[Phil69970]

Bonjour à tous

@Boubie

Je te propose ce fichier

Merci de ton retour

 

[Boubie]

Bonjour à tous

@Boubie

Je te propose ce fichier

Merci de ton retour

Bonjour Phil6970,

Déjà, toutes excuses pour ne pas t'avoir répondu avant. De nombreux soucis et je viens tout juste de reprendre mess activités. Je voulais te remercie pour ton fichier qui correspond "presque" complètement à mon besoin.
J'ai omis de préciser que j'ai des formules de calculs que je dois impérativement garder ! C'est ma faute.
Je te joins ton fichier qui est parfait avec mon impératif de formules pour que tu puisses mieux comprendre.
Merci à toi si tu peux m'aider et encore désolée de te répondre que aujourd'hui.
Boubie

 

[Phil69970]

Re

De ce que j'ai compris voici le nouveau fichier

Merci de ton retour ..... plus rapide !!!!

 

[Boubie]

Phil6970,

Je ne sais pas comment te remercier. Je viens d'ouvrir ton fichier et il correspond à ce que je souhaite.
Je vais le transposer dans mon fichier, et..... croiser les doigts mais encore une fois merci pour ton retour tellement vite... T'es au top !! et tu me sauves la vie

 

[Boubie]

Bonjour Phil6970,
Je viens de tester et cela ne fonctionne pas

Cela à également supprimer toutes mes formules des colonnes AB à AV ( colonne A à F dans le fichier que tu as ) de mon fichier de travail.
"A:AA" correspond au "A:F"
Ci-dessous mes correctif apportée pour le transposer à mon fichier, Y a t-il quelque chose que j'ai oublié de modifié ?

Merci à toi

 

[Phil69970]

Bonjour @Boubie

1) L'image que tu montres ne correspond pas au fichier que j'ai mis au post #6 !!!

2)
Ceci sert juste à centrer les infos des colonnes A à F

Columns("A:F").HorizontalAlignment = xlCenter

Tu peux adapter sans problème à tes colonnes

3)
De plus tu as dit que le fichier correspondait à ce que tu veux faire

Je viens d'ouvrir ton fichier et il correspond à ce que je souhaite.

4)
Donc prends le bon fichier et cela ira mieux !!!

 

[Boubie]

Bonjour @Boubie

1) L'image que tu montres ne correspond pas au fichier que j'ai mis au post #6 !!!

2)
Ceci sert juste à centrer les infos des colonnes A à F

Tu peux adapter sans problème à tes colonnes

3)
De plus tu as dit que le fichier correspondait à ce que tu veux faire


4)
Donc prends le bon fichier et cela ira mieux !!!

 

[Boubie]

Bonjour Phil6970.

J'ai repris exactement ton post#6:

'code JB
Sub consolide_onglets()
Application.ScreenUpdating = False
Sheets("Base Globale").[A1].CurrentRegion.Offset(1, 0).Clear
For s = 2 To Sheets.Count
Set p = Sheets(s).[A:A].Find(what:="Domaine d'activité", LookAt:=xlWhole)
If Not p Is Nothing Then
Sheets(s).Range(p.Address).CurrentRegion.Offset(1, 0).Copy [A65000].End(xlUp).Offset(1, 0)
End If
Next s

Columns("A:AA").HorizontalAlignment = xlCenter
End Sub


et, rien de ne se passe?

Je ne comprend pas car oui, quand je teste ton fichier, cela fonctionne parfaitement !

 

[Phil69970]

@Boubie

'code JB
Sub consolide_onglets()
Application.ScreenUpdating = False
Sheets("Base Globale").[A1].CurrentRegion.Offset(1, 0).Clear
For s = 2 To Sheets.Count
Set p = Sheets(s).[A:A].Find(what:="Domaine d'activité", LookAt:=xlWhole)
If Not p Is Nothing Then
Sheets(s).Range(p.Address).CurrentRegion.Offset(1, 0).Copy [A65000].End(xlUp).Offset(1, 0)
End If
Next s

Columns("A:AA").HorizontalAlignment = xlCenter
End Sub

Je maintiens que le code que tu postes ne correspond pas au fichier que j'ai mis au post #6 !!!
Donc prends le bon fichier et cela ira mieux !!!

Évidemment j'ai vérifié avant de poster ma réponse !!!

 

[danielco]

Bonjour à tous,
J'ai peut-être mal compris ? En A2 :

=ASSEMB.V(DECALER(A!A2:F2;;;NBVAL(A!A:A)-1);DECALER(B!A2:F2;;;NBVAL(B!A:A)-1);DECALER('C'!A2:F2;;;NBVAL('C'!A:A)-1))

Daniel

 

[Boubie]

Je viens de tout supprimer et j'ai fais un copier coller en prenan en compte "consolidation"

'code JB

Sub consolide_onglets()

Application.ScreenUpdating = False

‘Sheets("Consolidation").[A1].CurrentRegion.Offset(1, 0).Clear

For s = 2 To Sheets.Count

Set p = Sheets(s).[A:A].Find(what:="Domaine d'activité", LookAt:=xlWhole)

If Not p Is Nothing Then

Sheets(s).Range(p.Address).CurrentRegion.Offset(1, 0).Copy [A65000].End(xlUp).Offset(1, 0)

End If

Next s



Columns("A:F").HorizontalAlignment = xlCenter

End Sub
'code JB

Sub consolide_onglets()

Application.ScreenUpdating = False

‘Sheets("Consolidation").[A1].CurrentRegion.Offset(1, 0).Clear

For s = 2 To Sheets.Count

Set p = Sheets(s).[A:A].Find(what:="Domaine d'activité", LookAt:=xlWhole)

If Not p Is Nothing Then

Sheets(s).Range(p.Address).CurrentRegion.Offset(1, 0).Copy [A65000].End(xlUp).Offset(1, 0)

End If

Next s



Columns("A:F").HorizontalAlignment = xlCenter

End Sub



J'ai même garder de A:F pour voir si je consolidais à minima les données de ces colonnes là .....et rien ne se passe!

 

[danielco]

Si le nombre de feuilles est variable, toutes les feuilles de A à C :

=LET(tbl;ASSEMB.V('A:C'!A2:F10000);FILTRE(tbl;PRENDRE(tbl;;1)<>0))

Daniel