Simplifier Code VBA pour masquer lignes Résolu

Question

Bonjour, 

J'utilise un code afin de masquer plusieurs lignes qui me sont inutiles.
Pourriez vous m'aider à le simplifier ?
Toutes les lignes à masquer commencent par 6M ou 7A mais quand je ne met que 6M rien ne se passe... D'où l'ensemble de ces lignes qui n'ont pas grand intérêt !

Merci d'avance

Sub Masquer_lignes()

    Dim ligne As Integer

        For ligne = 2 To 1000
    If Cells(ligne, 3) = "6M01A" Then
        Rows(ligne & ":" & ligne).EntireRow.Hidden = True
    End If
Next

        For ligne = 2 To 1000
    If Cells(ligne, 3) = "6M01B" Then
        Rows(ligne & ":" & ligne).EntireRow.Hidden = True
    End If
Next

        For ligne = 2 To 1000
    If Cells(ligne, 3) = "6M01C" Then
        Rows(ligne & ":" & ligne).EntireRow.Hidden = True
    End If
Next

        For ligne = 2 To 1000
    If Cells(ligne, 3) = "6M02B" Then
        Rows(ligne & ":" & ligne).EntireRow.Hidden = True
    End If
Next
 
        For ligne = 2 To 1000
    If Cells(ligne, 3) = "7A01C" Then
        Rows(ligne & ":" & ligne).EntireRow.Hidden = True
    End If
Next
 
End Sub

Excel 2010

f894009 · Answer

Bonjour,

Au plus simple:

Sub Masquer_lignes()

    Dim ligne As Integer

    For ligne = 2 To 1000
        If Cells(ligne, 3) Like "6M*" Or Cells(ligne, 3) Like "7A*" Then
                Rows(ligne & ":" & ligne).EntireRow.Hidden = True
        End If
    Next
End Sub

Bonne suite

Simplifier Code VBA pour masquer lignes

1 réponse

Discussions similaires

Newsletters