Erreur 13 VBA incompatibilité de type

[pierrotyahoo]

Bonjour,

j'essaie de faire fonctionner une macro, mais impossible de l'exécuter sans avoir le message d'erreur 13, incompatibilité de type.

le but de la macro est d'enlever toutes les lignes qui sont, après mise à jour des données, vides.
la ligne que j'ai mis en rouge est d'après excel la source du problème.
voilà le code :

Sub cacher()


With Application

.ScreenUpdating = False

End With

'afficher toutes les lignes


Cells.Select

Selection.EntireRow.Hidden = False


Dim i, j, fin, fin2, compt As Integer

Dim cache As Object


Selection.SpecialCells(xlCellTypeLastCell).Select

fin = Selection.Row

fin2 = Selection.Column

'Parcourir les cellules

Set cache = Nothing

For i = 11 To fin

compt = 0

For j = 6 To fin2

If IsNumeric(Cells(i, j)) And Cells(i, j).Value <> 0 Then
compt = compt + 1

End If

Next j

'Si la ligne est totalement vide, enregistrer dans l'objet

If compt = 0 Then

If cache Is Nothing Then

Set cache = Rows(i & ":" & j)

Else

Set cache = Union(cache, Rows(i & ":" & j))

End If

End If

Next i


'cacher les lignes vides


If Not cache Is Nothing Then

cache.Select

Selection.EntireRow.Hidden = True

End If

ActiveSheet.Outline.ShowLevels RowLevels:=1

With Application

.ScreenUpdating = True

End With


MsgBox "Toutes les lignes non nulles sont affichées.", vbOKOnly

End Sub

si quelqu'un à une idée...ce serait avec plaisir !
merci beaucoup !

 

[sousou]

Re : Erreur 13 VBA incompatibilité de type

Bonjour essai ceci
If IsNumeric(Cells(i, j))=true And Cells(i, j).Value <> 0 Then

 

[job75]

Re : Erreur 13 VBA incompatibilité de type

Bonjour,

La seule chose qui puisse faire beuguer cette ligne est une valeur d'erreur dans Cells(i, j).

Donc écrire alors :

If IsNumeric(Cells(i, j)) Then
  If Cells(i, j) <> 0 Then
    compt = compt + 1
  End If
End If

A+

 

[pierrotyahoo]

Re : Erreur 13 VBA incompatibilité de type

@ sousou

j'ai testé ta solution, mais le résultat est que la macro efface toutes mes lignes

j'ai comme message " Toutes les lignes non nulles sont affichées" et il n'y en a plus aucune !

@ Job75 : même chose avec ta solution, même message que pour sousou !