convertir cellule text en nombre

[buromania]

Bsr forum
j'ai converti une feuil en format texte en nombre avec ces 2 procédures mais cela ne marche pas sur toutes les cellules? pourquoi?

Sub A()
Range('L1').Select '=1
Selection.Copy
Range('a2:bo1585').Select
Selection.PasteSpecial Paste:=xlPasteAll, OPERATION:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
End Sub

Sub B()
Dim X As Object
For Each X In Range('a2:bo1585')
If X = '0' Then
X = ''
End If
Next X
End Sub

Bonne soirée à tous

 

[Hellboy]

Bonjour buromania

Est ce que c'est parce que tes cellules sont vides ? Ou bien elles sont en polices Wingdings ?

Ça sersait plus facile de t'aider avec exemple à l'appuit ou Fichier encore mieux.

 

[buromania]

bjr hellboy, le forum
Ces cellules ont été remplies par des nombres décimaux en format texte ex coef majorateur ou prix spécial ) via procédure. Toute la feuil est en Arial.
La procédure en question, a été, depuis, modifié par ce code
If IsNumeric(TextBox28) Then Range('ab' & ComboBox1.ListIndex + 1) = CDbl(TextBox28)

En faisant les 2 procédures du 1ier post, je pensais tout convertir en nombre... eh bé non et je ne comprends pas pourquoi ??
Bonne journée à tous.

 

[Hellboy]

Bonjour buromania

1- Ton importation de donner est peut être la base de tes ennuis
2- Pourquoi demander IsNumeric(TextBox28) et ensuite le convertir en double, si tu crois qu'il est déjà en numérique ??
3- Dans ton premier post, ta première routine, au lieu de:
- Paste:=xlPasteAll
essaie
- Paste:=xlPasteValues
4- Ta deuxième routine, ne converti rien en numérique.

C'est trop mystérieux ton affaire. Joint un fichier en exemple. Pour le faire, suit le lien dans ma signature.

a+

 

[buromania]

bjr Hellboy, le Forum

Sans trop savoir pourquoi, les cells text ont été converties en nombre. La procédure 1 a fonctionnée sur certaines cells ...mais pas sur toutes sauf si c'est fait manuellement.
Je te remercie pour tes réponses et te souhaite, ainsi qu'au Forum une bonne journée