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.

 

[Phil69970]

@Boubie

'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 !!!

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]

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