Microsoft 365 Supprimer des chiffres d'une cellule sous condition

JHA à dit:

Bonjour à tous,

A essayer par formule

VB:

=STXT($A1;SIERREUR(SIERREUR(CHERCHE("-";$A1);CHERCHE(" ";$A1));0)+1;99)

JHA

Cliquez pour agrandir...

don_pets à dit:

Hello,

Tu peux tester avec cette combinaison de deux fonctions :

VB:

Function SuppChif(a As String)
Dim I As Byte
Application.Volatile
SuppChif = a
    For I = 0 To 9
    SuppChif = Replace(SuppChif, I, "")
    Next I
End Function

Function NumChaine(chaine)
Application.Volatile
TempChaine = Trim(Application.Substitute(chaine, ",", "."))
Temp = ""
For I = 1 To Len(TempChaine)
    c = Mid(TempChaine, I, 1)
    If c >= "0" And c <= "9" Or c = "." Then Temp = Temp & c
  Next I
NumChaine = Val(Temp)
End Function

Elles te permettent de splitter ce qui est du alpha du num, et donc dans ta cellule tu écris un truc du genre =SuppChif(A1)&"-"&NumChaine(A1)

Cliquez pour agrandir...