Concaténation de plusieurs plages de cellules dans une autre

Résolu/Fermé

Luke94 Messages postés 61 Date d'inscription jeudi 22 novembre 2012 Statut Membre Dernière intervention 13 novembre 2023 - 18 févr. 2016 à 21:06
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 19 févr. 2016 à 21:30

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

A voir également:

Excel concatener une plage de cellules
Liste déroulante excel - Guide
Concatener deux cellules excel - Guide
Formule excel pour additionner plusieurs cellules - Guide
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellules excel - Guide

2 réponses

Réponse 1 / 2

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 688
18 févr. 2016 à 22:29

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

Réponse 2 / 2

Luke94 Messages postés 61 Date d'inscription jeudi 22 novembre 2012 Statut Membre Dernière intervention 13 novembre 2023
19 févr. 2016 à 21:28

Bonsoir,

merci beaucoup pour votre code qui correspond parfaitement à mon besoin !

Cordialement.

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 688
19 févr. 2016 à 21:30

Bonsoir,

Merci du retour et content de t'avoir aidé : bonne continuation.

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

Discussions similaires

Newsletters