Microsoft 365 compilation données

Boubie · 24 Juin 2024

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.

Phil69970 · 25 Août 2024

@Boubie

Boubie à dit:
'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

Ceci est effectivement le code du post #6 !!!

Boubie à dit:
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!

Si cela fonctionne sur mon fichier mais ne fonctionne pas avec ton fichier réél c'est que tu as surement fait une mauvaise manipulation quelques part !!!
Ou bien ton fichier...

Cousinhub · 24 Juin 2024

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 · 24 Juin 2024

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 · 24 Juin 2024

Bonjour à tous

@Boubie

Je te propose ce fichier

Merci de ton retour

Boubie · 23 Août 2024

Phil69970 à dit:
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 · 23 Août 2024

Re

De ce que j'ai compris voici le nouveau fichier

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

Boubie · 23 Août 2024

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 · 24 Août 2024

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 · 24 Août 2024

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

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

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

Boubie · 25 Août 2024

Phil69970 à dit:
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 · 25 Août 2024

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 · 25 Août 2024

@Boubie

Boubie à dit:
'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 · 25 Août 2024

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

VB:

=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 · 25 Août 2024

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 · 25 Août 2024

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

VB:

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

Daniel

Microsoft 365 compilation données

Boubie

XLDnaute Junior

Pièces jointes

Phil69970

Cousinhub

XLDnaute Barbatruc

Pièces jointes

Boubie

XLDnaute Junior

Phil69970

XLDnaute Barbatruc

Pièces jointes

Boubie

XLDnaute Junior

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

Boubie

XLDnaute Junior

Boubie

XLDnaute Junior

Phil69970

XLDnaute Barbatruc

Boubie

XLDnaute Junior

Boubie

XLDnaute Junior

Phil69970

XLDnaute Barbatruc

danielco

XLDnaute Accro

Boubie

XLDnaute Junior

danielco

XLDnaute Accro

Discussions similaires