création boucle pour copis sur différents onglets

[ben117]

Bonjour,

Je souhaiterais intégrer une boucle dans une macro qui permettrait de faire un copier collage spécial valeur (fitrées par "section": variables de la colonne z) des colonnes AB:AL de l'onglet pilotage sur les ongets des sections correspondants.

Merci d'avance.

 

[DoubleZero]

Re : création boucle pour copis sur différents onglets

Bonjour, ben117, le Forum,

Une suggestion avec le fichier joint.

Sub Répartition()
Dim F As Worksheet
Application.ScreenUpdating = False
    For Each F In Worksheets
        If F.Name <> "PILOTAGE" And F.Name <> "RECAP" Then
            F.Cells.Clear
            F.Range("hd1") = "SECTION"
            F.Range("hd2") = F.Name
            Sheets("PILOTAGE").Range("AB9").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
                CriteriaRange:=F.Range("hd1:hd2"), CopyToRange:=F.Range("A1:K1"), Unique _
                :=False
            F.Range("hd1:hd2").Clear
        End If
    Next F
Application.ScreenUpdating = True
End Sub

A bientôt 🙂

 

[ben117]

Re : création boucle pour copis sur différents onglets

bonjour,ta macro fonctionne très bien, par contre je voudrais l'intégrer dan la macro "formatage" et j'ai du mal.
Ca doit venir de la boucle que j'ai récupéré sur ce forum et qui créait les onglet.
J'ai vraiment du mal avec ces boucles😕
Un dernier coup de main svp.

 

[mapomme]

Re : création boucle pour copis sur différents onglets

Bonsoir Ben,

L'intégration d'une macro dans une autre n'est pas une simple copie du code de l'une dans l'autre surtout si une des macros fait une gestion d'erreur.
Le plus simple est de regrouper les macros dans un seul module les unes à la suite des autres (un couper/coller devrait suffire)
On obtient alors dans un seul module avec les trois macros indépendantes les unes des autres.
On s'assure que chaque macro fonctionne correctement.
On crée une macro 'Tout' regroupant les autres macros et on associe cette macro au bouton qui va bien. Ce qui donne la structure du module suivant:

Option explicit

Sub Tout()
   format
   AjouterOnglet
   Répartition
End Sub


Sub format()
   ...
   code de format
   ...
End Sub


Sub AjouterOnglet()
   ...
   code de AjouterOnglet
   ...
End Sub


Sub Répartition()
   ...
   code de Répartition
   ...
End Sub

 

[ben117]

Re : création boucle pour copis sur différents onglets

opération réussie. Je commence à y voir plus clair.
Encore merci🙂