DAVAWAY
XLDnaute Junior
Bonjour,
Je cherche à masquer toutes les lignes où "oui" a été saisie (colonne U), mais je parviens uniquement à faire disparaitre la ligne 1 car il y a oui en U1.. voici mon ébauche de code :
Sub macro1()
Sheets("DépensesPersonnel BS").Select
Range("U1").Select
While ActiveCell <> ""
If ActiveCell.Value = "OUI" Then
m = ActiveCell.Row
Rows(m).EntireRow.Hidden = True
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Par ailleurs comment faire pour faire réapparaître toutes les lignes masquées sans avoir à faire un clique droit sur l'interstice puis afficher ?
Merci beaucoup pour votre aide,
Bonne journée,
David
Je cherche à masquer toutes les lignes où "oui" a été saisie (colonne U), mais je parviens uniquement à faire disparaitre la ligne 1 car il y a oui en U1.. voici mon ébauche de code :
Sub macro1()
Sheets("DépensesPersonnel BS").Select
Range("U1").Select
While ActiveCell <> ""
If ActiveCell.Value = "OUI" Then
m = ActiveCell.Row
Rows(m).EntireRow.Hidden = True
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Par ailleurs comment faire pour faire réapparaître toutes les lignes masquées sans avoir à faire un clique droit sur l'interstice puis afficher ?
Merci beaucoup pour votre aide,
Bonne journée,
David