vba garder le chiffre sans le texte

[dacyrix]

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

 

[D.D.]

Bonjour.
=GAUCHE(C6;CHERCHE("%";C6)-1)
devrait fonctionner. Et ajoute un "sierreur" au besoin.

 

[thebenoit59]

Je ne comprendrai jamais pourquoi ouvrir deux sujets en même temps ...
https://forum.excel-pratique.com/excel/vba-garder-chiffre-sans-texte-t100334.html

 

[job75]

Bonjour dacyrix, D.D., thebenoit59,

Pas besoin de boucle :

Sub GarderNombres()
Application.ScreenUpdating = False
[C:C].NumberFormat = "General"
[C:C].Replace "%*", "", xlPart
[H:H].NumberFormat = "General"
[H:H].Replace "P=", "": [H:H].Replace "mBar", ""
[H:H].Replace "Duty=", "": [H:H].Replace "th/h", ""
[H:H].Replace "Tx Reflux=", "": [H:H].Replace " ", ""
[H:H].Replace ",", "."
End Sub

A+

 

[job75]

Re,

Bien sûr si l'on transfère la colonne C en R :

Sub GarderNombres()
Application.ScreenUpdating = False
[C:C].Copy [R1]: [R1] = "T201"
[R:R].NumberFormat = "General"
[R:R].Replace "%*", "", xlPart
[H:H].NumberFormat = "General"
[H:H].Replace "P=", "": [H:H].Replace "mBar", ""
[H:H].Replace "Duty=", "": [H:H].Replace "th/h", ""
[H:H].Replace "Tx Reflux=", "": [H:H].Replace " ", ""
[H:H].Replace ",", "."
End Sub

A+