ActiveCell.FormulaR1C1 = Concatener

Bonjour,

Quelle est la syntaxe pour concatener des valeurs séparées d'une virgule entre elles sous le format suivant ?

Range("B" & x).Select

ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[" & Compteur & "]C)"

Merci d'avance

Bonjour,

peux-tu montrer un exemple concret ?

Bonjour,

Oui pardon désolé pour cette imprécision.

Je souhaite concatener les valeurs de la colonne B sur une première ligne récapitulative (voir capture d'écran)

J'ai déjà la formule pour faire la somme mais je ne connais pas la synthaxe pour la formule CONCATENER les lignes regroupées avec un compteur.

sur une première ligne récapitulative

je ne comprend pas.

Je souhaiterai faire la chose suivante dans ma macro VBA :

- Concatener la première cellule B7 (ligne récapitulative) concatener les cellules du dessous ici B8 à B11 séparées par une virgule et d'un espace sous la même forme que pour cette somme :

Range("B" & x).Select

ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[" & Compteur & "]C)"

Il me semble que je dois remplacer le "SUM" par "INT" mais pour la suite du code, c'est une autre histoire.

re,

à tester,

Sub test()
x = 13
Range("B" & x).Select
ActiveCell.Formula = "=SUM(B8:B" & x - 1 & ")"

For i = 8 To x - 2
t = t & Range("B" & i).Value & ", "
Next
Range("B7") = t
End Sub

Bonjour,

Ça fonctionne mais cela fait concaténer toutes les données suivantes de la feuille dans la cellule récapitulative.

Bonjour, salut i20100

Une fonction perso à tester :

Public Function ConcatSep(Plage As Range, Optional Sep As String = ",")

Dim Cell As Range, Res As String
For Each Cell In Plage
    If Res = "" Then Res = Cell Else Res = Res & Sep & Cell
Next Cell
ConcatSep = Res

End Function

A appeler comme ceci dans le code (ou directement dans le fichier) :

Range("B" & x).FormulaR1C1 = "=ConcatSep(R[1]C:R[" & Compteur & "]C)"

Bonjour Pedro,

C'est Super ça marche !!

Merci avec pour votre temps passé et vos neurones

resplendissant a écrit :

Bonjour Pedro,

C'est Super ça marche !!

Merci avec pour votre temps passé et vos neurones

Au plaisir !