Bon maintenant que c'est automatisé comment le perfectionner........
J'ai ajouté des lignes de code pour éviter qu'il consolide toutes mes feuilles, ça marche mais es que c'est la meilleur facon de l'écrire ??
Sub consolider()
Dim Arr(), I As Byte, sh As Worksheet
I = 1
ReDim Arr(1 To Sheets.Count - 4)
For Each sh In Sheets
If sh.Name <> "SITUATION" Then
If sh.Name <> "TYPE" Then
If sh.Name <> "PAGE DE GARDE" Then
If sh.Name <> "CONSO" Then
Arr(I) = sh.Name & "!R1C1:R2C13"
I = I + 1
End If
End If
End If
End If
Next sh
Sheets("situation").[A1].Consolidate Sources:=Arr(), Function:=xlCount, TopRow:=True, LeftColumn _
:=False, CreateLinks:=True
End Sub
Pour faire simple.......ds l'exemple j'ai 4 pages que je ne veux pas consolider,
PAGE DE GARDE (Page de présentation et ds laquelle je vais positionner mon bouton de macro consolidation)
TYPE (Page que je copie pour réaliser les feuilles sources pour la conso)
CONSO (résultat de la consolidation des mes feuilles sources)
SITUATION (copie de la page CONSO qui sert de base de donnée pour un autre classeur Excel)
J'espere que c'est assez clair !!!! loool
Bon admettons que je crée une autre page avec un nom indifférent pour une raison indeterminée.......
Comment faire pour quelle ne soit pas prise en compte dans ma consolidation sans que j'ai a modifier mon code ??? et sans que celui-ci plante.
A bon entendeur...............