Extraire seulement les chiffres comprises entre la lettre R et -

P

PMO2

XLDnaute Accro

• 18 Février 2015

• #2

Re : Extraire seulement les chiffres comprises entre la lettre R et -

Bonjour,

Une piste avec une fonction personnalisée.

Copiez le code suivant dans un module Standard

Code:

Function ExtractChiffres(Cellule As Range) As String
Dim A$
Dim B$
Dim i&
'---
A$ = CStr(Cellule)
For i& = 1 To Len(A$)
  If IsNumeric(Mid(A$, i&, 1)) Then
    B$ = B$ & Mid(A$, i&, 1)
  Else
    If Right(B$, 1) <> " " Then B$ = B$ & " "
  End If
Next i&
ExtractChiffres = Trim(B$)
End Function

Dans une cellule, mettez la formule =ExtractChiffres(A2) puis tirez vers le bas.

 

Pièces jointes

• test_pmo.xlsm

  14.6 KB · Affichages: 30

Vote positif 0 Vote négatif

C

CHTING

Guest

• 18 Février 2015

• #3

Re : Extraire seulement les chiffres comprises entre la lettre R et -

Merci pour la réponse,

ca marche bien,
mais est-il possible de faire la même chose sans rajouter une formule sur le fichier?

Cordialement

 

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 18 Février 2015

• #4

Re : Extraire seulement les chiffres comprises entre la lettre R et -

Oui, c'est possible.
***
Cependant, vous pouvez Copier/ Collage spécial valeurs pour faire disparaître les formules.

 

Vote positif 0 Vote négatif

C

CHTING

Guest

• 18 Février 2015

• #5

Re : Extraire seulement les chiffres comprises entre la lettre R et -

Merci, je vais regarder.

Cordialement

 

Vote positif 0 Vote négatif

C

CHTING

Guest

• 18 Février 2015

• #6

Re : Extraire seulement les chiffres comprises entre la lettre R et -

Pour information,

A la fin du programme d'extraction, j'utilise cette macro pour supprimer les formules.


Sub Effacer_formules()
'remplacer les formules par des valeurs
With ActiveSheet.UsedRange
.Value = .Value
End With
End Sub


Cordialement

 

Vote positif 0 Vote négatif