VBA Boucle for next

B

bond

XLDnaute Occasionnel

• 20 Juin 2011

• #2

Re : VBA Boucle for next

Pas sur que ton code réponde à ton objectif. Une suggestion :

Code:

For x = 5 To 2 Step -1
    If Cells(x, 8).Value <= Range("I2").Value Then Rows(x).Hidden = True
Next x

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 20 Juin 2011

• #3

Re : VBA Boucle for next

Bonjour rocky,

à tester

Code:

If Cells(x, 8).Value <= Range("I2").value Then Cells(x, 8).entirerow.Hidden = True

 

Vote positif 0 Vote négatif

C

Caillou

XLDnaute Impliqué

• 20 Juin 2011

• #4

Re : VBA Boucle for next

Bonjour,

Quand ton code plante, quelle est la valeur de x ?

Caillou

 

Vote positif 0 Vote négatif

R

rocky9

Guest

• 20 Juin 2011

• #5

Re : VBA Boucle for next

Bonjour,

J'ai essayé vos codes mais ça ne fonctionne pas.

Je vous joins un exemple du fichier.
Si c'est le masquer qui pose problème, autant que je le remplace par delete.

 

Pièces jointes

• Classeur1.xls

  20.5 KB · Affichages: 70
• Classeur1.xls

  20.5 KB · Affichages: 64
• Classeur1.xls

  20.5 KB · Affichages: 66

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 20 Juin 2011

• #6

Re : VBA Boucle for next

Bonjour Caillou,
Re,

peut-être

Code:

    de = Sheets("En dessous du seuil").Cells(Application.Rows.Count, 8).End(xlUp).Row
    For x = de To 2 Step -1
        If IsNumeric(Cells(x, 8).Value) Then
            If Cells(x, 8).Value <= Range("I2").Value Then Rows(x).Hidden = True
        End If
    Next x

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 20 Juin 2011

• #7

Re : VBA Boucle for next

Bonjour à tous

A tester:

Code:

Sub test()
    de = Sheets("En dessous du seuil").Cells(Application.Rows.Count, 8).End(xlUp).Row
    For x = de To 2 Step -1
    If Not IsError(Cells(x, 8)) Then
      If Cells(x, 8).Value <= Range("I2").Value Then Rows(x).Hidden = True
    End If
    Next x
End Sub

 

Vote positif 0 Vote négatif

B

bond

XLDnaute Occasionnel

• 20 Juin 2011

• #8

Re : VBA Boucle for next

Avec un fichier, ça aide🙄...
à évaluer :

Code:

For x = 2 To 12 Step 1
    If IsNumeric(Cells(x, 8).Value) Then
        If Cells(x, 8).Value <= Range("I2").Value Then Rows(x).Hidden = True
    End If
Next x

 

Vote positif 0 Vote négatif

R

rocky9

Guest

• 20 Juin 2011

• #9

Re : VBA Boucle for next

Bonjour,

Tout vos codes fonctionnent, donc c'était la gestion des erreurs qui plantait.

Merci

 

Vote positif 0 Vote négatif