Sommer une cellule contenant plusieurs valeurs

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Sommer une cellule contenant plusieurs valeurs

deca2

Bonjour, plusieurs heures que je cherche pourtant au début cela me paraissait simple.
J'ai un programme VBA qui ajoute dans une cellule, des valeurs séparées par des retour à la ligne (matérialisé par "chr(10)" ).
Donc dans une cellule j'ai plusieurs montant.
Cette opération est répétée sur plusieurs cellules de la même colonne.
A la fin de cette colonne je veux faire une somme de tous ces montants.
Ben ça a l'air bête mais je n'y arrive pas. Comme faire comprendre à Excel en langage VBA de sommer chaque montant qui sont présent dans la cellule séparée par des chr(10) ?
Si quelqu'un a une idée...
Merci d'avance, je continue à chercher.

Bon dimanche

Publicité

deca2

Bon, j'ai fini par toruver.
Je poste ici le code que j'ai adapté et qui peut être utile à d'autres.

Code :

Sub extraireValeursNumeriques_DansChaine()
Dim i As Byte, Nb As Byte
Dim Cible As String, Resultat As String
Dim Resul As Double
Dim Nombre As Double
Dim lig As Long
Cells(1, 2) = " " & Cells(1, 5) & Chr(10) & " " & Cells(2, 5) & Chr(10) & " " & Cells(3, 5)
For lig = 1 To 3
Cible = Cells(lig, 2)
'Pour que fonction Val puisse reconnaitre les décimales: Remplacement des
'virgules par des points
Cible = Replace(Cible, ",", "." )
'Pour gérer deux nombres qui se suivent: remplacement des espaces
'par un caractère Alpha
Cible = Replace(Cible, Chr(10), "x" )
For i = 1 To Len(Cible)
If IsNumeric(Mid(Cible, i, 1)) Then
Nombre = Val(Mid(Cible, i, Len(Cible) - i + 1))
Nb = Nb + 1
Resultat = Resultat & Nombre & vbLf
Resul = Resul + Nombre
i = i + Len(Str(Nombre)) - 1
End If
Next
Next lig
Cells(5, 1) = Resul
MsgBox "Il y a " & Nb & " valeurs numériques dans la cellule " & vbLf & Resultat
End Sub

Re bon dimanche à tous.

Paul Hood

Il y avait plus simple...

Private Sub CommandButton1_Click()
Montotal = 0
For i = 1 To 2

Macell = Cells(i, 1)
Mesval = Split(Macell, Chr(10))
NbValCel = UBound(Mesval)

TotalCel = 0
For j = 0 To NbValCel
TotalCel = TotalCel + CDbl(Mesval(j))
Next

Montotal = Montotal + TotalCel
Next
MsgBox Montotal
End Sub

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Sommer une cellule contenant plusieurs valeurs

Sujets relatifs
Comment faire une recherche avec plusieurs mots?	récupérer différentes valeurs d'une même variable dans un tableau
Récupérer 2 valeurs et + avec deux tables(SQL Server)	Récupération de plusieurs textarea
Noob inside, SELECT plusieurs dates en 1 fois	[C] executer plusieurs boucles en meme temps
plusieurs fichier xsd	[nxtOSEK] Comment connecter plusieurs Bricks NXT en Bluetooth
[Access] Regrouper plusieurs résultats d'1 requête sur 1 seule ligne?	Valeur à un champs de plusieurs lignes
Plus de sujets relatifs à : Sommer une cellule contenant plusieurs valeurs

Page générée en 0.045 secondes