Pour les pôvres qui ne peuvent lire JOINDRE.TEXTE :
VB:Function Chiffres(txt$) Dim i%, x$ For i = 1 To Len(txt) x = Mid(txt, i, 1) If IsNumeric(x) Then Chiffres = Chiffres & x Next End Function Function Nombres(txt$, Optional sep$) Dim i%, x$ For i = 1 To Len(txt) x = Mid(txt, i, 1) Nombres = Nombres & IIf(IsNumeric(x) Or x = "," Or x = ".", x, " ") Next Nombres = Application.Trim(Nombres) 'SUPPRESPACE If Len(sep) Then Nombres = Replace(Nombres, " ", sep) End Function
La somme des chiffres ou la somme des nombres ? Mais peu importe voyez ce fichier (2) :je comprends que ce sont les nombres que je devais dire est-il possbile que la formule fasse la somme des chiffres récupérées de la colonne A ?
Function SommeChiffres#(txt$)
Dim i%, x$
For i = 1 To Len(txt)
x = Mid(txt, i, 1)
If IsNumeric(x) Then SommeChiffres = SommeChiffres + x
Next
End Function
Function SommeNombres#(txt$)
Dim i%, x$
txt = " " & Replace(txt, ",", ".")
For i = 2 To Len(txt)
x = Mid(txt, i - 1, 1)
If x <> "." And Not IsNumeric(x) And IsNumeric(Mid(txt, i, 1)) Then SommeNombres = SommeNombres + Val(Mid(txt, i))
Next
End Function
La somme des chiffres ou la somme des nombres ? Mais peu importe voyez ce fichier (2) :
VB:Function SommeChiffres#(txt$) Dim i%, x$ For i = 1 To Len(txt) x = Mid(txt, i, 1) If IsNumeric(x) Then SommeChiffres = SommeChiffres + x Next End Function Function SommeNombres#(txt$) Dim i%, x$ txt = " " & Replace(txt, ",", ".") For i = 2 To Len(txt) x = Mid(txt, i - 1, 1) If x <> "." And Not IsNumeric(x) And IsNumeric(Mid(txt, i, 1)) Then SommeNombres = SommeNombres + Val(Mid(txt, i)) Next End Function
Bonjour job75
N'ayant qu'un modeste 2010, je reste sur la touche
Pour les pôvres qui ne peuvent lire JOINDRE.TEXTE :
Vous m'impressionnez . Rien ne vous échappe .vous êtes donc récemment passé de la version 2007 à 2010...., il y a une petiite évolution
En cette période de confinement, ils ont d'autres chats à fouetter. Je vais attendre la reprise.Au taf, je suis sur Excel 2010 et j'ai demandé à ma DSN d'avoir PQ. Ce qui fut fait, puisqu'il existe sous forme d'addon
La somme des chiffres ou la somme des nombres ? Mais peu importe voyez ce fichier (2) :
VB:Function SommeChiffres#(txt$) Dim i%, x$ For i = 1 To Len(txt) x = Mid(txt, i, 1) If IsNumeric(x) Then SommeChiffres = SommeChiffres + x Next End Function Function SommeNombres#(txt$) Dim i%, x$ txt = " " & Replace(txt, ",", ".") For i = 2 To Len(txt) x = Mid(txt, i - 1, 1) If x <> "." And Not IsNumeric(x) And IsNumeric(Mid(txt, i, 1)) Then SommeNombres = SommeNombres + Val(Mid(txt, i)) Next End Function
Bonjour andromaque,
C'est sûr que sans code VBA ça ne risque pas de fonctionner !
Le code de la fonction doit être impérativement dans un module standard.
Et le fichier doit être enregistré en .xlsm.
A+