Concatener une sélection de décimaux

[bonoboas]

Bonjour la communauté,

C'est peut-être idiot mais je bloque :

Sub Concateneraddition()
       Dim plage As Range
        Set plage = Application.InputBox(prompt:="Choisissez un champ à concatener", Type:=8)

For Each Cellule In plage
Contenu = Contenu & "+" & Cellule
Next
ActiveCell = "=" & Contenu
End Sub

Cette macro fonctionne très bien qu'avec des nombres entiers. Pouvez-vous m'aider à la rendre fonctionnelle avec des nombres à virgule s'il vous plaît ?

Merci d'avance pour votre aide

 

[mapomme]

Bonsoir @bonoboas,

Pas bien saisi ce que vous désirez. Si c'est la somme des cellules de la plage, alors essayez:

Sub ConcatenerAddition()
   ActiveCell = Application.Sum(Application.InputBox(prompt:="Choisissez un champ à concatener", Type:=8))
End Sub

End Sub

 

[bonoboas]

Bonsoir Mapomme

En effet c'est une somme mais celle-ci doit être détaillée de la façon suivant "=112+25.23+2+..."
Cela fonctionne qu'avec des nombres entiers mais pas avec les décimaux
Je vous joins un fichier d'exemple
Cordialement

 

[mapomme]

Re @bonoboas,

Comme ceci? :

Sub Concateneraddition()
   Set plage = Application.InputBox(prompt:="Choisissez un champ à concatener", Type:=8)
   contenu = "="
   For Each cellule In plage: contenu = contenu & "+" & cellule: Next cellule
   ActiveCell.Formula = Replace(contenu, ",", ".")
End Sub

 

[bonoboas]

Impeccable !!!!
Merci mapomme