IF et incompatibilité de type
Bonjour à tous,
Bon j'ai encore pas mal de difficultés avec la syntaxe VBA... :aie:
Je sais que c'est un problème classique, mais même en parcourant
les différentes solutions sur le Net je n'ai pas réussi.
Voici ma difficulté :
J'ai une condition dans une boucle :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13
|
Dim i As Integer
i = 0
Do While i <= 10
If IsEmpty(Cells(i, 1)) Or IsNull(Cells(i, 1)) Then
Cells(i, 1).EntireRow.Hidden = True
ElseIf Not IsNumeric(Cells(i, 1)) Then
If Cells(i, 1).Value = "-" Then
Cells(i, 1).EntireRow.Hidden = True
End If
End If
i = i + 1
Loop |
Et à chaque fois j'ai une erreur d'incompatibilité de type au niveau
de ElseIf Cells(i, column).Value = "-".
Comment éviter ceci ? Et pourquoi excel renvoie une erreur au lieu
de renvoyer FALSE, en ne réalisant pas la condition ?
Merci d'avance, et bonne journée !