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 !

Bonjour
Sur ton code testé, sur un fichier bidon, je ne vois d'où peut venir ton problème SAUF que le i=i+1 est à mettre juste après Do While...
Car sinon, pour la première boucle tu auras cells(0,1) qui n'a pas de sens.

Ton code pourrait être comme ceci

Code:

---

1 2 3 4 5 6 7 8

Dim i As Integer 'ou Long si le nombre de tes lignes dépasse 32767   Application.ScreenUpdating = False With Sheets("Feuil1") 'Adapte le nom de ta feuille For i = 1 To 10 .Rows(i).Hidden = .Cells(i, 1).Value = "-" Or .Cells(i, 1).Value = "" Next i End With

---

Vraiment merci, votre code est beaucoup plus propre et efficace que le
mien !
Cependant j'ai toujours ce même problème d'incompatibilité de type avec

Code:

---

.Rows(i).Hidden = .Cells(i, 1).Value = "-" Or .Cells(i, 1).Value = ""

---

Peut être est ce du à une cellule qui contient un type différent
(il y a des nombres, des pourcentages, parfois des sommes de cellules vides...)

Étrange, tu peux mettre en PJ un extrait non confidentiel de ton fichier?

Bien sûr, je vous laisse consulter ça !

C'est sur ce fichier que tu as eu l'erreur?
As tu adapté? dans le fichier le test sur la colonne B?
Tes tirets ne sont pas des tirets mais des 0

Code testé sur ton fichier

Code:

---

1 2 3 4 5 6 7 8 9

Dim LastLig As Long, i As Long   Application.ScreenUpdating = False With Sheets("Feuil1") LastLig = .Cells(.Rows.Count, "B").End(xlUp).Row For i = 7 To LastLig .Rows(i).Hidden = .Range("B" & i).Value = 0 Or .Range("B" & i).Value = "" Next i End With

---

C'est bon, je pense avoir trouvé !
En effet en vous envoyant une version allégée du tableau j'y
ai retiré les passages qui justement étaient litigieux.
En vérifiant les cellules de la boucle j'ai vu que une d'entre
elles a un problème de #REF... Tout le problème vient surement
de là.
En tout cas merci pour votre portion de code, je l'ai intégrée
au classeur et elle marche très bien, et merci pour votre aide.

Bonne journée !