Discussion :

[drice]

Bonjour,

J'apprends petit à petit le langage VBA mais je suis encore loin d'être un expert. C'est pourquoi je fais appel à vous afin que vous puissiez m'éclairer.
J'ai un classeur excel composé de plusieurs onglet ayant le même formalisme.
Je souhaite compiler tout les onglets du classeur dans un autre onglet.
Pour cela je me suis fait une macro qui marche bien lorsqu'on identifie les feuilles (voir fichier ci joint)

Cependant mon soucis est quand réalité le nombre d'onglets est amené à varier et chaque onglet peut changer de nom au file du temps.
C'est pour cela je souhaiterais savoir s'il existe une commande permettant de compiler les données de tous les onglets dans un autre onglet

Pouvez vous m'aider ?

Merci d'avance

[Marc-L]

Bonjour, bonjour !

Ce n'est pas du Général VBA mais bien du spécifique Excel, donc la prochaine fois poster dans le bon forum VBA dédié à Excel !

Comme indiqué dans l'aide VBA intégrée, une feuille peut aussi être appelée par son numéro d'index;
la propriété Worksheets.Count renvoyant le nombre de feuilles de calculs …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[drice]

Merci de votre réponse j'ai résolu mon problème en modifiant mon code ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub compilation()
 
Dim Classeur As Workbook
Dim Plage As Range
Dim sh As Worksheet
Set Classeur = ThisWorkbook
 
Application.ScreenUpdating = False
 
'supprimer les anciennes affaires de l'onglet recap
Sheets("compilation").Activate
Range("B7:BE1000").Select
    Selection.ClearContents
 
For Each sh In ThisWorkbook.Worksheets
 
        If sh.Name <> "compilation" Then
             With sh
             Set Plage = .Range("L6:AA22")
             End With
Plage.Copy _
            Worksheets("compilation").Range("B65536").End(xlUp).Offset(1, 0)
 
        End If
    Next sh
 
Application.ScreenUpdating = True
 
MsgBox ("Données correctement compilées")
 
End Sub