Extraire lettres et chiffres

Bonjour à tous,

Je voudrais extraire R2C1 dans cette donnée avec une fonction ou une macro !

Course: R.2-C.1 Hippodrome: STRASBOURG Allocation: 20000 € Discipline: PLAT Spécialité: CONDITIONS Date: 16/04/2017

Merci à l'avance et bonne journée !

Bonjour consonnes, bonjour le forum,

Les deux pour le même prix !.. La macro agit sur la cellule A1, la fonction agit sur la cellule ciblée :

La macro :

Sub Macro1()
Dim D As String
D = Split(Range("A1").Value, " ")(1)
D = Replace(D, ".", "")
D = Replace(D, "-", "")
MsgBox D
End Sub

La fonction :

Public Function Extract(Cible As Range)
Dim D As String
D = Split(Cible.Value, " ")(1)
D = Replace(D, ".", "")
D = Replace(D, "-", "")
Extract = D
End Function

Merci beaucoup ça marche !

Bonne soirée à tous !

Rechercher des sujets similaires à "extraire lettres chiffres"