XL 2016 Supprimer les caracteres avant les chiffres dans une cellule

neo220783

XLDnaute Nouveau
Bonjour a toutes et tous,
je cherche une solution pour supprimer une chaine de caractères avant le 1er chiffre dans une cellule excel.

je vous donne un exemple "cabinet de réparation 2 rue du docteur marc "

je voudrai avoir "2 rue du docteur marc"

sachant que je n ai pas toujours la même chose avant le chiffre .

Merci d avance
 

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour Neo, bonjour le forum,

Peut-être comme ça :

VB:
Sub Macro1()
Dim CAM As Range 'déclare la variable CAM (Cellule À Modifier)
Dim VCAM As String 'déclare la variable VCAM (Valeur de la Cellule À Modifier)
Dim I As Integer 'déclare la variable I (Incrément)

Set CAM = Range("A1") 'définit la cellule à modifier (à adapter à ton cas)
VCAM = CAM.Value 'définit la valeur VCAM
For I = 1 To Len(VCAM) 'boucle sur tous les caractères de VCAM
    'si le caractère de la boucle est numérique redéfinit VCAM (la valeur à partir de ce caractère), sort de la boucle
    If IsNumeric(Mid(VCAM, I, 1)) Then VCAM = Mid(VCAM, I): Exit For
Next I 'prochain caractère de la boucle
CAM.Value = VCAM 'définit la valeur de CAM
End Sub

[Édition]
Bonjour Sylvanu, Mapomme, nos posts se sont croisés...
 

Discussions similaires

Statistiques des forums

Discussions
312 196
Messages
2 086 101
Membres
103 116
dernier inscrit
kutobi87