Parcourir un range et si texte rencontré dans une cellule alors valeur cellule = 0

[Profane]

Bonjour à tous,
mon soucis est que je n'arrive pas à voir où est mon erreur.....
ma macro devrait en parcourant une plage définie, lorsqu'elle rencontre une cellule texte, mettre sa valeur à 0
malheureusement rien ne se passe
merci d'avance pour votre aide
Cordialement

Sub SupprimeTexte()

Dim lig As Long
Dim tablo, i As Long, t

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
lig = Cells(Rows.Count, "A").End(xlUp).Row
With Sheets("A").Range("D2:AY" & lig).Select

tablo = Range("D2:AY" & lig)
For i = 1 To UBound(tablo)
t = tablo(i, 1)
If Not IsNumeric(tablo(i, 1)) Then tablo(i, 1).Value = "0"
Next
Range("D2:AY" & lig) = tablo
End With
End Sub

 

[vgendron]

Re : Parcourir un range et si texte rencontré dans une cellule alors valeur cellule =

Hello

Essaie en remplaçant par ce code

Sub SupprimeTexte()

Dim lig As Long
Dim tablo, i As Long, t


Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
lig = Cells(Rows.Count, "A").End(xlUp).Row


With Sheets("A").Range("D2:AY" & lig).Select
    tablo = Range("D2:AY" & lig)
    For i = 1 To UBound(tablo)
        t = tablo(i, 1)
        If Not IsNumeric(tablo(i, 1)) Then tablo(i, 1) = 0
    Next i
    Range("D2:AY" & lig) = tablo
End With
End Sub

à noter. ta macro ne parcourt QUE la première colonne de ta range D2:AZlig
donc. les colonnes E F G.... resteront telles quelles..

 

[Profane]

Re : Parcourir un range et si texte rencontré dans une cellule alors valeur cellule =

Merci Vgendron, a force d'avoir le nez dessus(la macro) on ne vois plus rien ;-)
ps: j'ai modifié aussi pour les colonnes