Remplace un caractere texte par la valeur 150

Cousinhub

XLDnaute Barbatruc

• 21 Septembre 2007

• #2

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)

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 21 Septembre 2007

• #3

Re : Remplace un caractere texte par la valeur 150

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

Code:

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

 

Vote positif 0 Vote négatif

C

christ-94

XLDnaute Occasionnel

• 24 Septembre 2007

• #4

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

 

Pièces jointes

• 150.xls

  17.5 KB · Affichages: 47
• 150.xls

  17.5 KB · Affichages: 47

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 24 Septembre 2007

• #5

Re : Remplace un caractere texte par la valeur 150

bonjour Christ

vois si cela te convient

 

Pièces jointes

• 150.xls

  23.5 KB · Affichages: 56
• 150.xls

  23.5 KB · Affichages: 58
• 150.xls

  23.5 KB · Affichages: 58

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 24 Septembre 2007

• #6

Re : Remplace un caractere texte par la valeur 150

Pas de bras pas de chocolat

 

Pièces jointes

• 150.xls

  19.5 KB · Affichages: 45
• 150.xls

  19.5 KB · Affichages: 47
• 150.xls

  19.5 KB · Affichages: 42

Vote positif 0 Vote négatif

C

christ-94

XLDnaute Occasionnel

• 24 Septembre 2007

• #7

Re : Remplace un caractere texte par la valeur 150

Re-bonjour

Merci a vous, les deux solutions fonctionnent nickel

 

Vote positif 0 Vote négatif