Bonjour,
J'ai bricolé une function pour extraire des caractères d'une cellule.
Public Function gcar(cel, deb, fin)
On Error GoTo finn
gcar = Mid(cel, deb, fin)
If gcar = Val(Mid(cel, deb, fin)) = 0 Then GoTo finn
gcar = Val(Mid(cel, deb, fin))
finn:
End Function
Cela marche, les valeurs textes reviennent bien en texte, mais les valeurs
numériques ne sont pas reconnues si il y a une virgule.
comment faire pour y remédier?
