Problème de filtre

[sir_lex_g]

Bonjour,
j'aimerais mettre un filtre en place, mais je ne sais comment faire, j'espère que vous pourez m'aidez. Voici donc se que je veut faire, j'ai des cellules qui continnenent du texte et des caractères numérique, j'aimerais qu'un filtre prenne seulement les caractères numériques et les copie dans une autre cellule. Merci.

 

[Catrice]

Re : Problème de filtre

Bonsoir,

ci-joint une interpretation de ce que j'ai compris.

 

[BOISGONTIER]

Re : Problème de filtre

Bonjour,

Extrait la partie numérique d'une chaine:

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

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/Fonction_NumeriqueChaine2.xls

JB
Formation Excel VBA JB

 

[sir_lex_g]

Re : Problème de filtre

Merci de votre aide 😉, BOISGONTIER avait exactement ce qu'il me fallait.