FormuleR1C1et cellule fusionnée

Bonjour à tous, bonjour le forum,

J'ai un tableau avec l'année en première ligne et la lettre de contrat en deuxième ligne. Je devrais pouvoir concatener les cellules de la ligne 2 avec leur date correspondante qui est à la ligne supérieure. Concrètement si j'ai "J" en B2 et "2021" en B1 le code devrait me donner "J2021". J'ai écrit un code qui fonctionne mais le problème est qu'il ne prend pas en compte que l'année est fusionnée au dessus des lettres correspondantes. Autrement dit il me donne bien J2021 mais pour les mois suivant il ne prend plus en compte la plage fusionnée donc il ne ressort plus que les lettres seules. Je joins une capture d'écran si cela vous permet d'avoir un meilleur visuel.

Veuillez également trouver mon code ci-dessous :

Code:

---

1 2 3 4

Sub MacroConcat() Range("B6").Select Range("B6", Cells(6, Cells(2, Columns.Count).End(xlToLeft).Column)).FormulaR1C1 = "=IF(R[-4]C<>0,R[-4]C&R[-5]C,"""")" End Sub

---

Pièce jointe 585956

Bonjour

On le dit sur tous les forums les fusions sont une malédiction...

Essaye de te débrouiller avec MAX($B$1:B$1)

Re bonjour,


Avec si peu d'explication, difficile de comprendre le pourquoi !
Ceci ressemble à un tableau de données, je ferais l'inverse (sans macro) :
Un tableau structuré pour les données et un plan pour ta représentation
Pièce jointe 585980

Hello tout le monde,

Merci beaucoup pour vos réponses et votre temps. J'ai adapté la formule =B2&INDIRECT(ADRESSE(1;SOMMEPROD(MAX((COLONNE($B$1:B1))*($B$1:B1<>""))))) de façon à ce qu'elle fonctionne si de nouvelles colonnes s'ajoutaient avec une (ou plusieurs) nouvelle(s) année(s). Les cellules semblent bien concaténées au format LettreAnnée.

Excellente journée à vous tous

Code:

---

1 2 3 4 5 6

Sub MacroEu()   Range("B7").Select Range("B7", Cells(7, Cells(2, Columns.Count).End(xlToLeft).Column)).FormulaR1C1 = "=R[-5]C&INDIRECT(ADDRESS(1,SUMPRODUCT(MAX((COLUMN(R1C2:R[-6]C))*(R1C2:R[-6]C<>"""")))))"   End Sub

---