donne à penser que l'ouverture (que je ne ferai pas) du classeur joint met en exergue un aspect "improbable", mais que je ne puis deviner ...Tiens !... Ils risquent d'ouvrir une usine à gaz à Le Blanc-Mesnil...
Allez, cadeau !une copie d'écran, alors, peut-être ?
Quand on parle d'usine à gaz, ça me fait immanquablement penser à The Pogues, à Shane McGowans et à Dirty Old Town...Ils risquent d'ouvrir une usine à gaz à Le Blanc-Mesnil...
Function Extr(ByVal x As String) As String
Dim i&, c As String * 1
For i = 1 To Len(x)
c = Mid(x, i, 1)
If Not (c Like "#" Or c = "," Or c = " ") Then x = Replace(x, c, " ")
Next i
Extr = Application.Trim(x)
End Function
En bon français un chiffre c'est 0 1 2 3 4 5 6 7 8 9, à ne pas confondre avec un nombre.mettre dans la colonne B le contenu de la colonne A en ne prenant que les chiffres qu'il contient
Selon moi, pas si simple et évident que ça.En bon français un chiffre c'est 0 1 2 3 4 5 6 7 8 9, à ne pas confondre avec un nombre e
N'ayant qu'un modeste 2010, je reste sur la toucheDans ce fichier on extrait les chiffres ou les nombres avec la fonction JOINDRE.TEXTE en matriciel.
Bonsoir @job75 ,
Selon moi, pas si simple et évident que ça.
....
Donnez moi un nombre entre 5 et 15 ? On ne choisit qu'entre 10 et 15 ?
Donnez moi un chiffre entre 5 et 15 ? On ne choisit qu'entre 5 et 9 ?
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