XL 2013 Incomptabilité de type dans une colonne avec plusieurs formats

[sr94]

Bonjour,

Dans une colonne je dois effacer toutes les celulles qui contiennent la valeur 7 ou 7/01/1900 (format date) ainsi que les cellules qui contiennent #VALEUR! (format texte).
J'ai également des cellules vides qui ne peuvent pas êtres complétées.

Comment puis je corriger l'erreur d'incomptabilité de type ?

Je joins un fichier exemple

Sub EffaceDate()

Dim cellule As Range
Dim rngETDprevue As Range

Set rngETDprevue = Sheets("PS").Range("Tableau1[Date]")

Application.ScreenUpdating = False
rngETDprevue.Select

For Each cellule In rngETDprevue
    If cellule = 7 Then cellule.ClearContents
    If cellule = "#VALEUR!" Then cellule.ClearContents

Next cellule
Application.ScreenUpdating = True
End Sub

Merci beaucoup

 

[mapomme]

Bonjour @sr94 ,

essayez:

For Each cellule In rngETDprevue
    If IsError(cellule) Then cellule.ClearContents
    If cellule = 7 Then cellule.ClearContents
Next cellule

Si vous ne désirez tester que l'erreur #VALEUR!, alors essayez:

For Each cellule In rngETDprevue
    If IsError(cellule) Then
      If cellule = CVErr(xlErrValue) Then cellule = Empty
    Else
      If cellule = 7 Then cellule.ClearContents
    End If
Next cellule

L'idée étant de traiter les cas d'erreur au sein de la cellule avant de traiter la valeur numérique de la cellule.

 

[sr94]

Ça fonctionne, merci !