Concaténation de plusieurs plages de cellules dans une autre
Résolu
Luke94
Messages postés
61
Date d'inscription
Statut
Membre
Dernière intervention
-
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
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
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
2 réponses
-
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 -
Bonsoir,
merci beaucoup pour votre code qui correspond parfaitement à mon besoin !
Cordialement.
