Extration de nombre (d'un résultat) dans une autre cellule
Résolu/Fermé
A voir également:
- Extration de nombre (d'un résultat) dans une autre cellule
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
- Verrouiller une cellule excel - Guide
- Excel compter le nombre de caractères spécifique dans une cellule ✓ - Forum Excel
2 réponses
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 249
9 avril 2020 à 13:07
9 avril 2020 à 13:07
Bonjour,
faisable par formule puisque limité à 3 valeurs, mais j'ai fait le fainéant avec une fonction personnalisée.
A mettre dans un module standard :
https://www.cjoint.com/c/JDjlhLyxu7V
eric
faisable par formule puisque limité à 3 valeurs, mais j'ai fait le fainéant avec une fonction personnalisée.
A mettre dans un module standard :
Function addExtrait(ch As String) As Double
Dim tmp, i As Long
tmp = Split(ch, " ")
For i = 1 To UBound(tmp)
If tmp(i - 1) = ":" Then addExtrait = addExtrait + Val(tmp(i))
Next i
End Function
https://www.cjoint.com/c/JDjlhLyxu7V
eric
Est il possible de rajouter une condition à cette formule....
Car dans certain cas j'ai une date juste avant les : et dans ce car je ne veux pas prendre le chiffre qui suit.
Exemple :
25 : 25 ///// 25896 : 65 //// 258 : 54 ///// 258 : 54 (résultat = 198)
25 : 25 ///////////// 25896 : 65 //// 258 : 54 ///// 2020-02-02 : 54 // (résultat = 198)
Le résultat de la 2eme ligne du coup doit être 144 car je ne veux pas prendre le chiffre après la date
Merci
Car dans certain cas j'ai une date juste avant les : et dans ce car je ne veux pas prendre le chiffre qui suit.
Exemple :
25 : 25 ///// 25896 : 65 //// 258 : 54 ///// 258 : 54 (résultat = 198)
25 : 25 ///////////// 25896 : 65 //// 258 : 54 ///// 2020-02-02 : 54 // (résultat = 198)
Le résultat de la 2eme ligne du coup doit être 144 car je ne veux pas prendre le chiffre après la date
Merci
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 249
9 avril 2020 à 15:09
9 avril 2020 à 15:09
Bien sûr :
eric
Function addExtrait(ch As String) As Double
Dim tmp, i As Long
tmp = Split(ch, " ")
For i = 2 To UBound(tmp)
If tmp(i - 1) = ":" And Not tmp(i - 2) Like "####-##-##" Then addExtrait = addExtrait + Val(tmp(i))
Next i
End Function
eric
DamTab
>
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
9 avril 2020 à 15:30
9 avril 2020 à 15:30
Merci Mr Eriiic !
9 avril 2020 à 13:56
Merci beaucoup Eric !!!