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...

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 réel ne correspond pas au fichier que tu as fourni !!!

Fournit ton vrai fichier anonymisé que je regarde !

Boubie · 25 Août 2024

Phil69970 à dit:
@Boubie

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

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 réel ne correspond pas au fichier que tu as fourni !!!

Fournit ton vrai fichier anonymisé que je regarde !

Vraiment, je ne comprend pas pourquoi cela ne fonctionne pas.! Mais, je te remercie pour toute ton aide tu as parfaitement répondu à mes attentes sur le fichier test que je t'avais envoyé . Je vais retenter demain ....

Microsoft 365 compilation données

Boubie

XLDnaute Junior

Pièces jointes

Phil69970

Phil69970

XLDnaute Barbatruc

Boubie

XLDnaute Junior

Discussions similaires