Titre du sujet : Re: formulation imposible
par Mytå le 29/02/2012 03:18:24
Re le forum
Avec une fonction personnalisée
Copie le code suivant dans un module standard
Function SplitTexte(Cellule As Range)
Dim Test As Boolean
Dim Cpt As Integer
Dim Texte As String
Dim Temp As Variant
Application.Volatile
Texte = Trim(Cellule)
Test = IsNumeric(Right(Texte, 1))
Temp = ""
For Cpt = Len(Texte) To 1 Step -1
If IsNumeric(Mid(Texte, Cpt, 1)) <> Test Or _
Mid(Texte, Cpt, 1) = " " Then Exit For
Temp = Mid(Texte, Cpt, 1) & Temp
Next Cpt
Temp = IIf(Test, Val(Temp), Temp)
SplitTexte = Temp
End Function
Tu peux ensuite l'utiliser comme une fonction. (fx)
Tu la retrouve dans les fonctions personnalisées du menu fx
=SplitTexte(A2)
Mytå
|
Didier FOURGEOT