VBA - masquer des lignes

[pepsi]

Bonjour le forum,


J'ai une liste de produits avec des cases à cocher.

J'essaye d'écrire une macro qui masque les lignes dont la case à cocher n'est pas cochée.

Pour le moment voici mon code, qui ne fonctionne pas :

Dim i As Integer
i = 6
While i < 200


If Worksheets("feuil1").Range("D" + CStr(i)).Value = False Then _

Worksheets("feuil1").Row((i)).Visible = False

  
End If

i = i + 1
Wend
ActiveCell.Select

End Sub

J'espère que quelqu'un peut m'aider

Merci d'avance

 

[JNP]

Re : VBA - masquer des lignes

Salut Pepsi 🙂,
Sous réserve que ta case à cocher soit liée à la cellule de colonne D

If Worksheets("feuil1").Range("D" & i).Value = False Then _
    Worksheets("feuil1").Row(i).Hidden = True

devrait mieux fonctionner 🙄...
Bonne soirée 😎

 

[pepsi]

Re : VBA - masquer des lignes

Merci pour cette correction du code.

par contre maintenant, j'ai un message

"erreur de compilation : End if sans bloc If"

Alors que j'ai bien un If en ouverture !

Comment ca se fait ?

 

[JNP]

Re : VBA - masquer des lignes

Re 🙂,
Evite le _retour sur un Then

If Worksheets("feuil1").Range("D" & i).Value = False Then Worksheets("feuil1").Row(i).Hidden = True

ou fait un bloc

If Worksheets("feuil1").Range("D" & i).Value = False Then
    Worksheets("feuil1").Row(i).Hidden = True
End If

Bon courage 😎

 

[pepsi]

Re : VBA - masquer des lignes

Je viens de corriger ce que tu m'as indiqué

Maintenant, nouveau message d'erreur pour la ligne Worksheets("feuil1").Row(i).Hidden = True

erreur d’exécution '438' : propriété ou méthode non gérée par cet objet

 

[JNP]

Re : VBA - masquer des lignes

Re 🙂,

Maintenant, nouveau message d'erreur pour la ligne Worksheets("feuil1").Row(i).Hidden = True

Voilà ce que c'est de ne pas mettre de fichier d'essai pour tester nos codes 😡...
Désolé, j'ai pas vu que tu avais loupé le S 😱...

Worksheets("feuil1").Rows(i).Hidden = True

Bon courage 😎

 

[Si...]

Re : VBA - masquer des lignes

Salut

Si... sans If :

 Worksheets("feuil1").Rows(i).Hidden = Worksheets("feuil1").Range("D" & i).Value = False