vba garder le chiffre sans le texte

dacyrix · 25 Octobre 2017

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. · 25 Octobre 2017

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

thebenoit59 · 25 Octobre 2017

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 · 25 Octobre 2017

Bonjour dacyrix, D.D., thebenoit59,

Pas besoin de boucle :

Code:

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 · 25 Octobre 2017

Re,

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

Code:

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+

vba garder le chiffre sans le texte

dacyrix

XLDnaute Nouveau

Pièces jointes

D.D.

XLDnaute Impliqué

thebenoit59

XLDnaute Accro

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires