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

sr94 · 25 Février 2019

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

VB:

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 · 25 Février 2019

Bonjour @sr94 ,

essayez:

VB:

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:

VB:

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 · 25 Février 2019

Ça fonctionne, merci !

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

sr94

XLDnaute Occasionnel

Pièces jointes

mapomme

XLDnaute Barbatruc

sr94

XLDnaute Occasionnel

Discussions similaires