Microsoft 365 Formule Excel pour faire une somme grâce à une plage

lampadaire

XLDnaute Nouveau
Bonjour,

Je n'arrive pas à trouver une formule Excel me permettant de calculer la somme (dans les exemples suivant 30) :

1688476986527.png


Pour clarifier ma demande, je souhaite une formule qui me permette de faire la somme des lettres grâce la 1re plage de donnée qu'importe l'un des exemples que j'ai pu donner ou si vous avez un autre exemple à me proposer je prend également !

En espérant que quelqu'un pourra m'aider, merci d'avance du temps que vous prendrez à me répondre !
 

Pièces jointes

  • Exemple.xlsx
    9 KB · Affichages: 3
Dernière édition:

Cousinhub

XLDnaute Barbatruc
Inactif
Bonjour,
Et bienvenu sur Xld...
Comme tu sembles ne pas connaître les us et coutumes (autrement dit, la charte), je ne peux que te conseiller de la lire sous ce lien
Et notamment les points 2.3 (clarté du titre), et 2.5 (possibilité de joindre un fichier exemple, anonyme)
@ te relire
 

lampadaire

XLDnaute Nouveau
Bonjour,
Et bienvenu sur Xld...
Comme tu sembles ne pas connaître les us et coutumes (autrement dit, la charte), je ne peux que te conseiller de la lire sous ce lien
Et notamment les points 2.3 (clarté du titre), et 2.5 (possibilité de joindre un fichier exemple, anonyme)
@ te relire
Bonjour,
Effectivement je suis nouvelle ici donc désolé si je n'ai pas respecter la charte, j'espère avoir fais les modifications nécessaires afin d'être conforme à la charte cette fois !
 

job75

XLDnaute Barbatruc
Bonjour lampadaire, Cousinhub,

Bah c'est le genre de problème tordu, les 4 exemples correspondent à 4 problèmes différents.

Voyez le fichier joint et les 4 formules dans les cellules jaunes.

A+
 

Pièces jointes

  • Exemples(1).xlsx
    10.6 KB · Affichages: 3

job75

XLDnaute Barbatruc
Avec une fonction VBA les 4 problèmes deviennent un seul problème :
VB:
Function Calcul(base As Range, plage As Range)
Dim c As Range, x$, i%, v2 As Variant, v1 As Variant
For Each c In plage
    x = Chr(1) & c
    For i = 2 To Len(x)
        v2 = Application.VLookup(Mid(x, i, 1), base, 2, 0) 'RECHERCHEV
        If IsNumeric(v2) Then
            v1 = Mid(x, i - 1, 1)
            If Not IsNumeric(v1) Then v1 = 1 'si aucun nombre devant
            Calcul = Calcul + v1 * v2
        End If
Next i, c
End Function
Mais ce n'est pas facile à comprendre, dites-nous ce que vous ne comprenez pas.

A+
 

Pièces jointes

  • Exemples VBA(1).xlsm
    17.2 KB · Affichages: 1

Discussions similaires

Statistiques des forums

Discussions
314 653
Messages
2 111 586
Membres
111 208
dernier inscrit
estalavista