XL 2019 Réussir à exécuter une macro VBA sur différentes feuilles à la fois

[Yazeubi]

Bonjour à tous,
Je cherche à crée une macro, afin de pouvoir faire fonctionné ma propre macro sur toutes les feuilles de mon fichier EXCEL.

Le but de ma première macro est de récupérer des données d'un tableau situé dans la feuille 1 pour les répertoriés sur une feuille X. J'aimerai que cette macro s'effectue toute seule sur toutes les autres feuilles (j'en ai 24). De plus qu'à chaque fois que les données se rentrent dans le tableau, elles se décalent de deux colonnes afin que les données ne se chevauchent pas.
Voici ma macro pour copier coller mes valeurs dans ma feuille x (Données rassemblée):
ActiveWindow.SmallScroll Down:=-39
Range( _
"C12:21, C24:24, C27:30, C33:34, C37:38, C40:49, C53:53, C56:58, C61:61, C64:64 ,C67:70, C73:74" _
).Select
Range("C73").Activate
Selection.Copy
Sheets("Données rassemblée").Select
Range("B3").Select
ActiveWindow.SmallScroll Down:=-27
ActiveSheet.Paste

Merci beaucoup de votre aide

 

[Phil69970]

Bonjour @Yazeubi

Un fichier anonymisé sera le bienvenu

Autrement le principe pour toutes les feuilles

Sub Test()
Application.ScreenUpdating = False
Dim Ws As Worksheet

For Each Ws In Worksheets 'Passe en revue toutes les feuilles
    If Ws.Name <> "Recap" Then 'Sauf la feuille Récap" (le nom est à adapter)
        'Mon code ici
        'Blablabla
    End If
Next
End Sub

*Merci de ton retour

@Phil69970

 

[Yazeubi]

Bonjour @Yazeubi

Un fichier anonymisé sera le bienvenu

Autrement le principe pour toutes les feuilles

Sub Test()
Application.ScreenUpdating = False
Dim Ws As Worksheet

For Each Ws In Worksheets 'Passe en revue toutes les feuilles
    If Ws.Name <> "Recap" Then 'Sauf la feuille Récap" (le nom est à adapter)
        'Mon code ici
        'Blablabla
    End If
Next
End Sub

*Merci de ton retour

@Phil69970

Après plusieurs essaies, je ne comprend pas comment remplir la ligne ci-dessous

If Ws.Name <> "Feuil 5 (02-11-20)" then "TEST"

Merci de ton aide

 

[Phil69970]

@Yazeubi

Un fichier anonymisé sera le bienvenu

Avec les explications de ce que tu veux faire

@Phil69970

 

[Yazeubi]

@Yazeubi


Avec les explications de ce que tu veux faire

@Phil69970

'Je souhaite copier coller des données de "Feuil1"
Sheets("Feuil1").Select
    Range("B4:B40").Select
'Pour les coller dans la feuille "TEST"
    Sheets("TEST").Select
    Range("B3").Select
    ActiveSheet.Paste
    
'Je souhaite que ce programme soit automatisé,. Soit que ce programme s'effectue sur chaque feuille de mon excel afin de
créé un tableau final répertoriant toutes les données.
Peut-être en créant une boucle ou quelques chose de similaire.
Il ne faut pas oublier que lorsque les données des differentes feuilles seront copier dans le tableau "TEST" il faut les décaller de deux colones afin de créé le tableau automatiquement

J'espère que mes explications sont claires, et que le "fichier anonymisé" est bien ça.

Merci

 

[Phil69970]

@Yazeubi

J'ai pas vu ton fichier !!

et que le "fichier anonymisé" est bien ça.

Non un fichier anonymisé c'est un fichier dont les données sont rendue anonyme

En clair on attend un fichier représentatif et anonymisé.
C'est quoi représentatif ?
- représentatif, même organisation des lignes et des colonnes, mêmes libellés, mêmes noms de feuilles...
- anonymisé, pas de données personnelles réelles tels nom, n° sécu, adresse ...
- simplifié, une quinzaine de lignes reproduisant l'ensemble des différents cas envisageables
(Ce que j'ai et ce que je veux obtenir)

*Éventuellement préciser l'ordre de grandeur des lignes à traiter, exemple mon fichier comporte 1 000 lignes ou bien 200 000 lignes ==> la méthodologie peut être différents.

Une demande claire donne très souvent une réponse rapide et qui correspond au mieux à la demande.

Bonne lecture

@Phil69970

 

[Yazeubi]

@Yazeubi

J'ai pas vu ton fichier !!

Ci-joint un dossier anonymisé !
Les données qui me sont nécessaires sont positionné précisément au même endroit. J'ai rajouté sur la feuille "TEST", un bouton afin d'accédé à mon codage
Merci de votre patience

 

[Phil69970]

Bonjour @Yazeubi

Je te propose ce fichier

Tu as le choix entre copié 1 seul onglet ou copié tous les onglets
Tout est expliqué dans le fichier
Tout le code est commenté

*Merci de ton retour

@Phil69970

 

[Yazeubi]

Bonjour @Phil69970,
Votre document répond précisément à ma demande ! Il est organisé et clair, seul problème le bouton "Copie de tous les onglets avec même mise en forme" ne fait apparaître les données que d'une seule feuille et pas de toutes les feuilles, pouvez-vous y jeter un œil ? Merci

 

[Phil69970]

Bonjour @Yazeubi

Essaye avec cette version
Et si cela ne fonctionne pas explique ce qui ne va pas
exemple ligne x cela ne va pas car y au lieu de z etc....

@Phil69970

 

[Yazeubi]

J'ai rajouté une feuille dans votre dossier, un tableau y est représenté tel que je l'aimerais, ainsi que de simples explications.

 

[Phil69970]

Re

C'est fait exprès que tu t’arrêtes à 35 et que les dates ne correspondent pas ?

C'est pas la peine de préciser que ton exemple ne correspond en rien avec ta demande initiale
Pas les mêmes cellules et pas la même disposition......

@Phil69970

 

[Yazeubi]

Désolé, je n'ai pas rempli le document correctement, celui ci-joint est en rapport avec ma demande initiale !

 

[Phil69970]

Re

Pas de réponses ?

C'est fait exprès que tu t’arrêtes à 35 et que les dates ne correspondent pas ?

@Phil69970

 

[Yazeubi]

Re

Pas de réponses ?

@Phil69970

Oui cela est fait exprès, j'ai re envoyé un document qui est en raccord avec ce que je demande, l'avant dernier document a été fait rapidement et vous avez raisons de souligner qu'il n'était pas en accord avec ma demande initiale

@Phil69970