problème sur remplace VBA

reve24 · 4 Mai 2016

Bonjour à tous

J aimerais remplacer jusqu à la dernière ligne
si #N/A ou si ""
alors 0

J' utilise cette macro

Sub Conversion2()
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Dim Cell As Range
Application.ScreenUpdating = False
For Each Cell In Range("B2:J" & DernLigne)
If Cell.Value = "" Then
Cell.Value = "0"

End If
Next
[A1].Select
End Sub

Parfois cela bloque je ne comprends plus
Si un oeil nouveau pouvait m'eclairer

M12 · 4 Mai 2016

Re : problème sur remplace VBA

Bonjour

Un petit extrait de ton classeur faciliterais la solution.
Les cellules de B2 à J sont elles remplies par formules ou par VBA, etc...

Lone-wolf · 4 Mai 2016

Re : problème sur remplace VBA

Bonjour reve

Essaie comme ceci

Code:

If WorksheetFunction.IsError(Cell) = True Then
            If CVErr(xlErrNA) = Cell Then _
               Cell = "0"
        End If

EDIT: Bonjour M12

reve24 · 4 Mai 2016

Re : problème sur remplace VBA

voila

merci a toi

CPk · 4 Mai 2016

Re : problème sur remplace VBA

Bonjour à toutes et à tous.
reve24, remplacer une valeur #N/A par un 0 risque d'effacer la formule dans la cellule, est-ce bien cela que vous voulez ?

Lone-wolf · 4 Mai 2016

Re : problème sur remplace VBA

Bonjour CPk

Il n'y a pas de formules dans les cellules.

EDIT: @ reve, ton fichier en retour

CPk · 4 Mai 2016

Re : problème sur remplace VBA

un petit bout de code à remanier selon le fichier original

Code:

Sub remplacer()
    Dim c As Range
    For Each c In Feuil1.UsedRange
        If c.Column > 1 Then
            'If c.Formula = "#N/A" Then c = 0
            If c.Value = "" Then c = 0
        End If
    Next
End Sub

reve24 · 4 Mai 2016

Re : problème sur remplace VBA

Il n'y a pas de formules dans les cellules. non pourquoi

J ai réuni grâce à toi si error si vide et me suis fait plaisir si toto

parfait ça fonctionne

merci

j ai pas compris pourquoi cela ne fonctionnait pas
je pense que c est

If cell = "" Then
cell = "0"

et non
If cell.Value = "4" Then
cell.Value = "0"

problème sur remplace VBA

reve24

XLDnaute Occasionnel

M12

XLDnaute Accro

Lone-wolf

XLDnaute Barbatruc

reve24

XLDnaute Occasionnel

Pièces jointes

CPk

XLDnaute Impliqué

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

CPk

XLDnaute Impliqué

reve24

XLDnaute Occasionnel

Pièces jointes

Discussions similaires