Onglets a regrouper sur un seul onglets

Résolu

stoben -
stoben - 12 juil. 2011 à 12:17

Bonjour,

Je suis débutant dans les macros voila mon pb, j'ai plusieurs fichiers excel qui se composent de x onglets chaque ongle de 8 colonnes et environ 90 lignes chacun je souhaiterais copier coller ces onglets à la suite dans un seul onglet j'ai fait une macro qui me permet de copier coller les 5 onglets à la suite sur la premiere page mais je souhaiterais que ma macro s'applique en fonction du nombre d'onglets qui change en fonction du fichier

Est ce que un developpeur pourrait m'aider ?

<config>Windows XP /

A voir également:

Onglets a regrouper sur un seul onglets
Restaurer onglets chrome - Guide
Regrouper plusieurs onglets excel en un seul - Guide
Comment regrouper plusieurs pdf en un seul - Guide
Onglets - Guide
Comment regrouper des applications sur android - Accueil - Guide Android

2 réponses

Réponse 1 / 2

Morgothal Messages postés 1236 Date d'inscription Statut Membre Dernière intervention 183

Salut,
Pour passer sur tous tes onglets tu peux faire ta macro dans une boucle FOR :

For TaVariable = 1 To Worksheets.Count 'Worksheets.Count est en fait le nombre d'onglet dans ton classeur  

Call TaMacro  

Next

A+

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 759

Salut tout le monde,
Ne pas oublier également d'exclure, de la boucle, la feuille qui va servir de recap :
Si la feuille servant de récapitulatif est nommée "recap" (à adapter) :

Dim Wsh As Worksheet
For Each Wsh In ThisWorkbook.Worksheets
    If Wsh.Name <> "recap" Then 'à adapter le nom de la feuille
        With Wsh
            MsgBox .Name
            'ici remplace MsgBox .Name par le code de ton copier coller comme :
            '.Range("A1:H90").Copy Sheets("recap").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) 'à adapter le nom de la feuille "recap"
        End With
    End If
Next

Réponse 2 / 2

stoben

Merci beaucoup pour vos reponses !! hier en fouinant sur le site de microsoft j'ai trouvé ça et ça marche
http://msdn.microsoft.com/en-us/library/cc793964(v=office.12).aspx#ConsolidateDataFromMultipleSheets_CopyAllDataexceptColumnHeadersfromMultipleWorksheets

Merci beacoup

Stoben

Discussions similaires

onglets qui restent ouverts

Comment supprimer les onglets?

Supprimer onglets

Un seul de mes écouteurs marche. Que faire ?

Votre réponse

Discussions similaires