hahahaha, oui encore désolé pour mon manque de clarté.
C'est marrant cette réaction épidermique que tous le monde a, à la cellule fusionnée, jusqu'à présent elles ne m'ont que très rarement posé problème.
Bon, pour l'instant, j'ai réussi a créer un tableau à deux dimensions et à l'alimenter avec les infos souhaitées
PS: la plage COMM_E1, représente l'ensemble des commentaires pour une colonne, (elle ne figure pas dans le doc extrait, vu que je viens de la créer mais bon tu as l'idée)
PS2: ce bout de code fonctionne, le tableau tabcom s'alimente bien avec les bonnes données, c'est pour réinscrire les données en question dans la cellule cible que je bloque.
voici le code:
Sub test_tab_comment()
Dim tabcom()
With Worksheets("SAISIE")
c = 3
n = 0
nb = Application.WorksheetFunction.CountA(.Range("comm_e1")) - 1
ReDim tabcom(nb, 1)
For t = 12 To 92 Step 20
For l = 0 To 18 Step 3
If IsEmpty(.Cells(t + l, c)) = False Then
'MsgBox .Cells(l, c)
tabcom(n, 0) = .Cells(t + l - 2, c - 1).Value
tabcom(n, 1) = .Cells(t + l, c).Value
'MsgBox tabcom(n, 0) & ", " & tabcom(n, 1)
n = n + 1
End If
Next
Next
Total = MyConCat(", ", tabcom())
'MsgBox Total
End With
End Sub
la où ça bug, c'est sur la dernière partie: Total = MyConCat(", ", tabcom())
Total représentant la cellule cible...
la fonction MyConcat n'est pas faite pour fonctionner avec un tab() (c'est du moins ce que j'en ai déduis), et du coup je suis coincée, je ne sais pas comment l'adapter, car je ne comprend pas la fonction (ou alors il y a une autre solution que je ne connais pas)...