Dim r As Long Dim sChiffre As String sChiffre = "" For r = 1 To Len(maChaine) If Mid$(maChaine, r, 1) Like "[0-9]" Then sChiffre = sChiffre & Mid$(maChaine, r, 1) Else ' C'est autre chose qu'un chiffre : ras End If Next rA toi d'alimenter ce test avec la chaine de ta cellule
ActiveCell.Value = RTrim(ActiveCell.Value)
ValeurNumérique = CInt(Chaine)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionmaCellule.Value = Val(monTexte)si la destination est directement une cellule.