Masquage auto de lignes en VBA

[BAT]

Bonjour à tous les Xliens,

Je cherche à créer une macro qui va me masquer toutes les lignes d'une feuille (sauf la ligne n°1 qui doit toujours rester visible) qui ne remplissent pas les caractéristiques suivantes :
- "mauvais attendu" dans la cellule C
- "" dans la cellule E

Merci d'avance à tous !

 

[Robert]

Re : Masquage auto de lignes en VBA

Bonsoir Bat, bonsoir le forum,

Juste une précision. J'ai considérée que la colonne de référence était la colonne A. Tu adapteras à ton cas la macro ci-dessous :

Sub Macro1()
Dim cel As Range 'déclare la variable cel
Dim li As Integer 'déclare la variable li
 
With Sheets("Feuil1") ' tu asdapteras à ton cas
 
    'boucle sur toutes les cellules éditées de la colonne A (tu adapteras)
    For Each cel In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
        li = cel.Row 'définit la variable li
 
        'condition : si la cellule associée de la colonne C = "mauvais attendu"
        'et la cellule associée de la colonne E est vide
        If Cells(li, 3).Value = "mauvais attendu" And Cells(li, 5).Value = "" Then
            cel.EntireRow.Hidden = True 'masque la ligne
        Else 'sinon
            cel.EntireRow.Hidden = False 'afficheula ligne
        End If 'fin uide la condition
 
    Next cel 'prochane cellule de la plage
 
End With
 
End Sub

 

[BAT]

Re : Masquage auto de lignes en VBA

Bonsoir Robert et merci pour ta réponse !

Par contre je me suis trompé ! C'est l'inverse en fait ! La macro doit me masquer les cellules qui ne corespondent PAS aux variables exprimées !!! Peux tu me guider ?

 

[BAT]

Re : Masquage auto de lignes en VBA

j'ai trouvé ! Il fallait jsute inversé True et falshe !!!! Youpi ! Merci beaucoup