Concatener sur une plage variable

Version imprimable

Bonjour,
Je voudrais concaténer les valeurs de plusieurs cellules sur une plage variable.

J'utilise le code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 Sub Conc() Dim i As Integer, CommUn As String, LISTCOM As Range, DerCom As Range Set DerCom = Cells(1, Range("IV1").End(xlToLeft).Column) LISTCOM = Range("" & Cells(1, 26), DerCom & "").Value Range("W1").Select ActiveCell.FormulaR1C1 = "=ConcatPlage(" & LISTCOM & ",""-"")" Range("W2").Select End Sub Function ConcatPlage(plage As Range, Optional séparateur As String = ", ") As String Dim rep As String, c As Range For Each c In plage If c.Value <> "" Then rep = rep & c.Value & séparateur End If Next c ConcatPlage = Left(rep, Len(rep) - Len(séparateur)) End Function
Ce code me renvoie la ligne

Code:

LISTCOM = Range("" & Cells(1, 27), DerCom & "")

en surbrillance avec l'erreur: 1004: La méthode 'Range' de l'objet '-Global' a échoué.

Je crois comprendre que mon erreur vient de la définition de mes plage avec mes Range.

Merci de me donner un petit coup de main

J'ai essayé d'avance:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim i As Integer, CommUn As String, LISTCOM As Range, DerCom As Range, DerCol As String, a As Range
 
DerCol = ConvertCol(Range("AF1").End(xlToLeft).Column)
Set DerCom = Cells(1, Range("AF1").End(xlToLeft).Column)
 
 
 
    Set a = Range("AA1:" & DerCol & "1")
    a.Select
 
Range("W1").Select
    ActiveCell.FormulaR1C1 = "=ConcatPlage(" & a & ","","")"
    Range("W2").Select
 
 
 
End Sub

Là ça plante sur

Code:

ActiveCell.FormulaR1C1 = "=ConcatPlage(" & a & ","","")"

:

Erreur d'exécution 13: incompatibilité de type.....

Pour info, je suis arrivé a cette solution.

Code:

1
2
3
Range("W1").Select
    ActiveCell.FormulaR1C1 = "=ConcatPlage(R1C27:R1C" & Range("AF1").End(xlToLeft).Column & ","","")"
    Range("W2").Select