Concatener une sélection de décimaux

mapomme

XLDnaute Barbatruc

Supporter XLD

• 5 Février 2019

• #2

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

 

Vote positif 0 Vote négatif

B

bonoboas

XLDnaute Occasionnel

• 5 Février 2019

• #3

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

 

Pièces jointes

• Mapomme.xlsm

  13.2 KB · Affichages: 3

Dernière édition: 5 Février 2019

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 5 Février 2019

• #4

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

 

Vote positif 0 Vote négatif

B

bonoboas

XLDnaute Occasionnel

• 5 Février 2019

• #5

Impeccable !!!!
Merci mapomme

 

Vote positif 0 Vote négatif