Autres Masquer les lignes sous condion des cellules

[chaelie2015]

Bonjour Forum
dans le fichier ci rattaché;j'ai une colonne "BB" de BB21 au BB154; elle affiche dans les cellules soit A ou M.
je souhaite par le bouton"Valider" masquer toutes les lignes (de 21au154) ou il y a la valeur M.
et par le bouton"Afficher tout" re afficher toutes les lignes (21-154).
Salutations

 

[sylvanu]

Bonjour Chaelie,
En PJ un essai avec :

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For i = 21 To 154
    If Range("BB" & i) = "M" Then Range("BB" & i).EntireRow.Hidden = True
Next i
End Sub
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
For i = 21 To 154
    Range("BB" & i).EntireRow.Hidden = False
Next i
End Sub

 

[job75]

Bonjour chaelie2015, sylvanu,

On peut utiliser le filtre automatique, soit manuellement soit avec cette macro :

Private Sub ToggleButton1_Click()
If ToggleButton1 Then
    [BB20:BB154].AutoFilter 1, "<>M" 'filtre automatique
    ToggleButton1.Caption = "Afficher les M"
Else
    If FilterMode Then ShowAllData
    ToggleButton1.Caption = "Masquer les M"
End If
End Sub

A+

 

[chaelie2015]

Bonjour sylvanu
merci , c'est parfait.
Bonne journée

 

[chaelie2015]

Bonjour chaelie2015, sylvanu,

On peut utiliser le filtre automatique, soit manuellement soit avec cette macro :

Private Sub ToggleButton1_Click()
If ToggleButton1 Then
    [BB20:BB154].AutoFilter 1, "<>M" 'filtre automatique
    ToggleButton1.Caption = "Afficher les M"
Else
    If FilterMode Then ShowAllData
    ToggleButton1.Caption = "Masquer les M"
End If
End Sub

A+

Bonjour JOB
OUPS je n'ai pas vu ta réponse.
c'est extrat .
a+

 

[chaelie2015]

Bonjour chaelie2015, sylvanu,

On peut utiliser le filtre automatique, soit manuellement soit avec cette macro :

Private Sub ToggleButton1_Click()
If ToggleButton1 Then
    [BB20:BB154].AutoFilter 1, "<>M" 'filtre automatique
    ToggleButton1.Caption = "Afficher les M"
Else
    If FilterMode Then ShowAllData
    ToggleButton1.Caption = "Masquer les M"
End If
End Sub

A+

Bonjour Forum, Job
@ job( post#3) : j'ai trouvé un petit souci, si je protége la feuille la macro ne fonctionne pas ?
a+

 

[sylvanu]

Bonjour,
Bien évidemment, si la feuille est protégée elle n'est pas accessible !
mais le problème n'a rien à voir avec la requête initiale. C'est vrai pour toute macro.

En PJ avec a modif. Elle suppose une feuille protégée sans mot de passe.
Dans le code on peut modifier si la feuille est protégée sans mot de passe ou s'il y a un mot de passe :

'ActiveSheet.Unprotect ("ton mot de passe")
ActiveSheet.Unprotect

'Sheets(1).Protect Password:="ton mot de passe"
Sheets(1).Protect

Pour utilisation d'un mot de passe utiliser les premières lignes et mettre le mot de passe désié.

 

[chaelie2015]

Bonjour sylvanu
Merci pour la réponse et les remarques.
A+ et Bonne journée

 

[job75]

En général une seule instruction suffit :

Protect "toto", UserInterfaceOnly:=True

 

[manuZ51]

Bonjour à Tous

je suis sur une meme demande avec ce code

Sub Masquer_Afficher()
Dim i As Integer

Application.ScreenUpdating = False

If Range("D1") = 1 Then
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Range("A" & i).Interior.Color = 65535 Then Range("A" & i).EntireRow.Hidden = True
Next i
Range("D1") = ""
Else
Cells.EntireRow.Hidden = False
Range("D1") = 1
End If

End Sub

mon souci est que je souhaiterai piloter la couleur via une MFC et lorsque je vais cette action mes lignes ne sont pas masquées. seules les lignes ou j'applique la couleur sont masquées que dois-je changer dans ce code?

Merci pour votre aide

Manu

 

[job75]

Bonjour manuZ51,

mon souci est que je souhaiterai piloter la couleur via une MFC

Sur Excel 2007 et versions postérieures on peut utiliser DisplayFormat :

If Range("A" & i).DisplayFormat.Interior.Color = 65535 Then Range("A" & i).EntireRow.Hidden = True

A+

 

[job75]

Le filtre automatique permet de filtrer les couleurs, voyez le fichier joint :

[BB20:BB154].AutoFilter 1, 65535, Operator:=xlFilterCellColor 'filtre la couleut jaune

Fonctionne même si la couleur est appliquée par MFC.

 

[manuZ51]

Bonjour manuZ51,

Sur Excel 2007 et versions postérieures on peut utiliser DisplayFormat :

If Range("A" & i).DisplayFormat.Interior.Color = 65535 Then Range("A" & i).EntireRow.Hidden = True

A+

Super Merci beaucoup

 

[manuZ51]

Le filtre automatique permet de filtrer les couleurs, voyez le fichier joint :

[BB20:BB154].AutoFilter 1, 65535, Operator:=xlFilterCellColor 'filtre la couleut jaune

Fonctionne même si la couleur est appliquée par MFC.

Merci pour ta reponse rapide. J'ai pris le code de Job75 qui fait exactement ce que je voulais