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 14946 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14946 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
A voir également:
- Excel concatener une plage de cellules
- Concatener deux cellules excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
- Verrouiller cellules excel - Guide
2 réponses
Bonjour,
Comme ceci cela devrait concaténer :
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