Discussion :

[MarcelG]

Bonjour,

Dans un classeur Excel, je dispose de 3 zones

janvier

-----A B
janv 8 9

février

-----A D
févr 6 7

mars

-----C D
mars 7 5

Comment, par VBA, obtenir un 4ème tableau compilant les 3 premiers

---- A B C D
janv 8 9 0 0
févr 6 0 0 7
mars 0 0 7 5

2 remarques :
- Ici pour les colonnes non informées d'un mois donné, la valeur est 0.
- Une nouvelle colonne pourrait être créée pour le mois suivant. Autrement dit, le nombre de colonnes du tableau de consolidation serait variable.

Je pensais passer par les variables tableaux, mais je ne sais comment faire.

Merci.

[mercatog]

Bonjour Marcel
Une image de ta feuille aidera.

[MarcelG]

Bonjour mercatog,

Ci-joint un fichier simplifié.
Le sujet est la création du tableau figurant dans la feuille "cumul".

Merci

[mercatog]

L'outil consolidation fera l'affaire.
Par code

Code :

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

Sheets("Cumul").Range("A1").Consolidate Sources:=Array("'févr'!R1C1:R2C3", "'janv'!R1C1:R2C3", "'mars'!R1C1:R2C3"), Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=True

à adapter et éventuellement trier le résultat


Edit: Exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
Dim i As Integer, k As Integer
Dim Tb() As String
 
For i = 1 To Sheets.Count
    If Sheets(i).Name <> "Cumul" Then
        k = k + 1
        ReDim Preserve Tb(1 To k)
        Tb(i) = "'" & Sheets(i).Name & "'!" & Sheets(i).UsedRange.Address(1, 1, xlR1C1)
    End If
Next i
Sheets("Cumul").Range("A1").Consolidate Sources:=Tb, Function:=xlSum, TopRow:=True, LeftColumn:=True
End Sub

[MarcelG]

Merci merctog, le code fonctionne.

Reste à trier de gauche à droite et de bas en haut.

Merci.