Discussion :

[actuenligne]

Bonjour à tous,

Bon j'ai encore pas mal de difficultés avec la syntaxe VBA...
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[mercatog]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[actuenligne]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

.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...)

[mercatog]

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

[actuenligne]

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

[mercatog]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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