en supposant que la les valeur sont dans la colonne A:A=GAUCHE(A1;1)
Rés = CDbl(Split(Z, "-")(0))
=N(SUBSTITUE(GAUCHE(A1;2);"-";""))
Bonjour
En VBA:En Formule:VB:Rés = CDbl(Split(Z, "-")(0))
A tester.Code:=N(SUBSTITUE(GAUCHE(A1;2);"-";""))
Cordialement.
Bonjour
En VBA:En Formule:VB:Rés = CDbl(Split(Z, "-")(0))
A tester.Code:=N(SUBSTITUE(GAUCHE(A1;2);"-";""))
Cordialement.
@ + +=GAUCHE(A1;TROUVE("-";A1)-1)