VBA garder chiffre sans texte

Bonjour,

dans une cellule colonne C j'ai 8 % T 201 et en copiant via une boucle en colonne R je voudrais garder uniquement le chiffre à gauche donc 8 en éliminant % T 201 (des fois on peut avoir des dizaines :15 %)

j'ai essayé avec mid , left mais je n'y arrive pas

Aussi en colonne H je voudrais faire pareil garder que les chiffres

merci

Bonjour Dacyrix.

Tu peux utiliser cet exemple :

chiffre = Trim(Left([C5358].Value, InStr([C5358].Value, "%") - 1))

Le Trim enlève les espaces avant et avant le nombre au besoin.

Bonjour,

dacyrix a écrit :

Bonjour,

dans une cellule colonne C j'ai 8 % T 201 et en copiant via une boucle en colonne R je voudrais garder uniquement le chiffre à gauche donc 8 en éliminant % T 201 (des fois on peut avoir des dizaines :15 %)

j'ai essayé avec mid , left mais je n'y arrive pas

avec une fonction comme celle-ci, exploitant les expressions régulières :

Function ChercheChaine(chaine, pattern)
  Set obj = CreateObject("vbscript.regexp")
  obj.pattern = pattern
  Set a = obj.Execute(chaine)
  If a.Count > 0 Then ChercheChaine = a(0) Else ChercheChaine = ""
End Function

et

=ChercheChaine(C5358;"([0-9])+")*1

pour H tu peux mettre

=ChercheChaine(H5358;"([0-9 ])+")*1

Bonjour

tu peux aussi faire comme ca

A+

Maurice

Sub Test()

derlig = Range("C" & Rows.Count).End(xlUp).Row

For L = 2 To derlig

Num = Val(Range("C" & L).Value)

If Num > 0 Then Range("R" & L).Value = Num

Next

End Sub

Bonjour,

une tentative :

=GAUCHE(C6;CHERCHE("%";C6)-1)*1 (*1 pour obtenir du numérique)

P.

Attention les gars, il y a aussi ceci

dacyrix a écrit :

Aussi en colonne H je voudrais faire pareil garder que les chiffres

c'est pour cela que je préconise les REgExp

merci

ne fonctionne qu"avec les entiers comment integrer les décimaux?

=ChercheChaine(H5358;"([0-9]+)([ ][0-9]+)?([.,][0-9]+)?")