Extraire seulement les chiffres comprises entre la lettre R et -

[CHTING]

Bonjour à toutes et à tous,

Je cherche à extraire les chiffres d'une colonne compris entre la lettre R et le tiret (-) ou entre H et un espace
dans une cellule de la colonne A j'ai R45- texte et je souhaiterai avoir dans la cellule à côtè seulement 45
pour être le plus clair possible je vous joins un fichier avec des exemple de rendu recherchés.

Merci de votre aide.

Bien cordialement

 

[PMO2]

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

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.

 

[CHTING]

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

 

[PMO2]

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.

 

[CHTING]

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

Merci, je vais regarder.

Cordialement

 

[CHTING]

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