Concaténation de plusieurs plages de cellules dans une autre Résolu/Fermé

Question

Bonjour, 

je dispose d'une macro qui me créée plusieurs onglets nommés ERx (ER1, ER2,...).

J'ai également une feuille nommée "Synthèse" dans laquelle j'ai besoin de concaténer dans une plage de cellules l'ensemble des plages de cellules des différents onglets ERx.

Pour le moment, j'ai codé en VBA le bout de code suivant :

'nombre représente le nombre de feuilles ERx que je calcule auparavant
For t = 1 To nombre
Sheets("Synthèse").Range("M12:Q16").Value = Sheets("ER" & t).Range("J13:N17").Value

Next t

Évidemment, ce code fonctionne parfaitement avec la seule feuille ER1 mais dés que j'ai plusieurs feuilles ER1, ER2, ER3,... ce sont les dernières valeurs qui écrasent les précédentes dans ma plage de cellules cibles.
Sauriez vous comment concaténer dans la plage de cellules de la feuille "Synthèse" l'ensemble des textes compris dans les différentes plages de cellules des feuilles ERx ?

En vous remerciant par avance pour votre aide !

Cordialement

gbinforme · Answer

Bonjour, 

Comme ceci cela devrait concaténer :
With Sheets("Synthèse")
    .Range("M12:Q16").ClearContents
    For t = 1 To nombre
        For l = 12 To 16   
            For c = 13 To 17   'M à Q
                .Cells(l, c).Value = .Cells(l, c).Value _
                    + Sheets("ER" & t).Cells(l + 1, c - 3).Value
            Next c
        Next l
    Next t
End With

Luke94 · Answer

Bonsoir,

merci beaucoup pour votre code qui correspond parfaitement à mon besoin !

Cordialement.