Discussion :

[fabien0733]

Bonjour à tous,

j'ai un formulaire avec un champ mémo alimenté par un formulaire indépendant en double cliquant.

Dans ce dernier, il y a des nombres.
Forms!Frmtravaildujour!detailC = Forms!Frmtravaildujour!detailC & Me.ActiveControl & vbCrLf & ""

Je voudrais pouvoir calculer la somme des nombres qui apparaissent dans mon texte long et mettre ce total de cette somme dans une zone de texte.

Merci pour vos futures réponses.

[ClaudeLELOUP]

Bonjour,

Tu ne donnes pas assez de détails.
Donne-nous quelques exemples d'un texte complet contenu dans le contrôle d'origine.

[Jeannot45]

Si j'ai bien compris, tu trouveras un exemple dans la petite base ci-jointe

bonne continuation

[fabien0733]

Si j'ai bien compris, tu trouveras un exemple dans la petite base ci-jointe

bonne continuation

Bonsoir,
Effectivement, c'était ce que je recherchais. Je pensais pouvoir intégrer après votre aide, du texte et des nombres dans le texte long. Et vous l'avez fait !
je vais pouvoir avancer très vite maintenant.
Cela dit, il y a quelque chose d'étrange. Même si cela ne me gêne aucunement, je peux remarquer qu'en mettant dans cet exemple les nombres à droite du texte (ex: truc 10) dans le texte long, la somme est erronée. Est-ce normal ?
Dans tous les cas merci à vous!

[Jeannot45]

Content que la solution proposée te convienne.
Pour résoudre ton problème auquel je n'avais pas pensé, il faut compléter la procédure de la fonction comme suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function SommeDesNombres(strChaine As String)
    Dim l_intCompteur As Integer
    Dim l_varCaractLu As Variant
    Dim l_strNbEnCours As String
    Dim l_lngTotal As Long
    
    ...

    If l_strNbEnCours <> "" Then
        SommeDesNombres = l_lngTotal + CLng(l_strNbEnCours)
    Else
        SommeDesNombres = l_lngTotal
    End If
End Function

Bonne continuation