masquer ligne complète si 0 en colonne I

[moutchec]

bonjour le forum,
bonjour à tous,
j'ai besoin de votre expertise pour corriger et m'aider à comprendre pourquoi mon code ne fonctionne pas, il masque la ligne 1 alors qu'il est censé agir de la ligne 3 à la dernière ligne non vide si en colonne I on a un chiffre inférieur à 1.
merci d'avance pour votre aide.

For y = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
'For y = 3 To Cells(Rows.Count, "A").End(xlUp).Row
If (Cells(y, 9)) < 1 Then
Cells(y).EntireRow.Hidden = True
End If
Next y


cordialement
Moutchec

 

[pierrejean]

Bonjour Moutchec

Private Sub B_Click()
For y = Cells(Rows.Count, 9).End(xlUp).Row To 3 Step -1
    If (Cells(y, 9)) < 1 Then
           Rows(y).EntireRow.Hidden = True
    End If
 Next y
End Sub

 

[moutchec]

Bonjour Moutchec

Private Sub B_Click()
For y = Cells(Rows.Count, 9).End(xlUp).Row To 3 Step -1
    If (Cells(y, 9)) < 1 Then
           Rows(y).EntireRow.Hidden = True
    End If
Next y
End Sub

bonjour, ok il fallait mettre rows au lieu de cells.
juste pour comprendre, pquoi il masquait la ligne 1 alors que ce n'était pas dans le champs.
merci bcp pour votre réaction.
Moutchec.

 

[pierrejean]

Re

Cells(Rows.Count, 1).End(xlUp).Row est le numéro de la dernière ligne non vide de la colonne A ce qui est bien la ligne 1 dans ton fichier

 

[job75]

Bonjour moutchec, Pierre

juste pour comprendre, pquoi il masquait la ligne 1 alors que ce n'était pas dans le champs.

Pour comprendre exécutez la macro :

Sub test()
Dim y
y = Columns.Count
MsgBox "y = " & y & vbLf & "Cells(y) => " & Cells(y).Address(0, 0)
End Sub

A+

 

[moutchec]

bonjour, merci bien.
Moutchec.