Discussion :

[perso11]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[78chris]

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)

[Patrice740]

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

[perso11]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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