Concatener une sélection de décimaux

bonoboas · 5 Février 2019

Bonjour la communauté,

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

VB:

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 · 5 Février 2019

Bonsoir @bonoboas,

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

VB:

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

End Sub

bonoboas · 5 Février 2019

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 · 5 Février 2019

Re @bonoboas,

Comme ceci? :

VB:

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 · 5 Février 2019

Impeccable !!!!
Merci mapomme

Concatener une sélection de décimaux

bonoboas

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

bonoboas

XLDnaute Occasionnel

Pièces jointes

mapomme

XLDnaute Barbatruc

bonoboas

XLDnaute Occasionnel

Discussions similaires