VBA Boucle for next

rocky9 · 20 Juin 2011

Bonjour,

Le code suivant bug sur la ligne "If Cells(x, 8).Value >= Range("I2") Then"

Code:

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

Si les valeurs de la colonne H sont inférieures ou égales à la valeur absolu se trouvant en I2, alors la ligne entière où se trouve la valeur <=I2 se masque.

Merci d'avance

bond · 20 Juin 2011

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

tototiti2008 · 20 Juin 2011

Re : VBA Boucle for next

Bonjour rocky,

à tester

Code:

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

Caillou · 20 Juin 2011

Re : VBA Boucle for next

Bonjour,

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

Caillou

rocky9 · 20 Juin 2011

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.

tototiti2008 · 20 Juin 2011

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

pierrejean · 20 Juin 2011

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

bond · 20 Juin 2011

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

rocky9 · 20 Juin 2011

Re : VBA Boucle for next

Bonjour,

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

Merci

VBA Boucle for next

rocky9

XLDnaute Nouveau

bond

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Caillou

XLDnaute Impliqué

rocky9

XLDnaute Nouveau

Pièces jointes

tototiti2008

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

bond

XLDnaute Occasionnel

rocky9

XLDnaute Nouveau

Discussions similaires