Remplace un caractere texte par la valeur 150

[christ-94]

Remplacement d'un caractere texte par la valeur 150

Bonjour

Voila, dans la colonne A j'aimerais ne garde que des chiffres, si il y a du texte dans la cellule la cellule doit prendre la valeur 150

Je cherche du VBA car le code doit etre integre a une macro

Exemple:
Avant___Apres
1C______150
2 _______2
26______26
45______45
45A_____150
8B______150
8456____8456

Merci d'avance de votre aide

 

[Cousinhub]

Re : Remplace un caractere texte par la valeur 150

Bonjour christ-94,

tout dépend si la valeur de ta cellule provient d'une formule ou d'une constante :

Si constante :

Range("A2:A" & Range("A65000").End(xlUp).Row).SpecialCells(xlCellTypeConstants, 2).Value = 150

(sur une seule ligne)

si formule :

Range("A2:A" & Range("A65000").End(xlUp).Row).SpecialCells(xlCellTypeFormulas, 2).Value = 150

(sur une seule ligne également)

 

[kiki29]

Re : Remplace un caractere texte par la valeur 150

Sous VBE Propriété (name) de "Feuil1" à changer en ShDatas

Option Explicit
Sub Tst()
Dim i As Long
Dim iLastRow As Long
    iLastRow = ShDatas.Range("A65536").End(xlUp).Row
    For i = 1 To iLastRow
        If Not IsNumeric(ShDatas.Cells(i, 1)) Then ShDatas.Cells(i, 1) = "150"
    Next i
End Sub

 

[christ-94]

Re : Remplace un caractere texte par la valeur 150

Bonjour

Merci pour les solutions , désole pour le retard mais test au travail

Donc pour la solution de kiki29
Je ne peut changer le préférence de la feuil car la feuil est crée avec la macro

pour la solution de bhbh
j'ai un problème avec la déclaration de la variable

le fichier
Regarde la pièce jointe 150.xls

merci de votre aide

 

[pierrejean]

Re : Remplace un caractere texte par la valeur 150

bonjour Christ

vois si cela te convient

 

[kiki29]

Re : Remplace un caractere texte par la valeur 150

Pas de bras pas de chocolat

 

[christ-94]

Re : Remplace un caractere texte par la valeur 150

Re-bonjour

Merci a vous, les deux solutions fonctionnent nickel