Simplification VBA

[stagiairerm]

Y a t'il moyen de combiner cette macro ?
je suis sur qu'il y a une solution
L'idée est de masquer des lignes en fonction de plusieurs critères (variables)

merci bcp d 'avance

Rows("23:500").Select
Selection.EntireRow.Hidden = True
Range("A23:A500").Select
For Each o In Selection
If o.Value = "1" Then
o.EntireRow.Hidden = False
End If

Next
Range("E23:E500").Select
For Each o In Selection
If o.Value = Range("K518") Then
o.EntireRow.Hidden = True
End If
Next
Range("E23:E500").Select
For Each o In Selection
If o.Value = Range("K520") Then
o.EntireRow.Hidden = True
End If
Next
Range("E23:E500").Select
For Each o In Selection
If o.Value = Range("K521") Then
o.EntireRow.Hidden = True
End If
Next
Range("E23:E500").Select
For Each o In Selection
If o.Value = Range("K522") Then
o.EntireRow.Hidden = True
End If
Next
Range("E23:E500").Select
For Each o In Selection
If o.Value = Range("K523") Then
o.EntireRow.Hidden = True
End If
Next

Range("E23:E500").Select
For Each o In Selection
If o.Value = Range("K524") Then
o.EntireRow.Hidden = True
End If
Next

Range("E23:E500").Select
For Each o In Selection
If o.Value = Range("K525") Then
o.EntireRow.Hidden = True
End If
Next

Range("E23:E500").Select
For Each o In Selection
If o.Value = Range("K519") Then
o.EntireRow.Hidden = True
End If
Next
For Each o In Selection
If o.Value = Range("K519") Then
o.EntireRow.Hidden = True
End If
Next
End Sub

 

[mécano41]

Re : Simplification VBA

Bonjour,

Peut-être ainsi pour remplacer l'ensemble des parties similaires:

For Cpt = 518 To 525
    Range("E23:E500").Select
    For Each o In Selection
        If o.Value = Range("K" & Cpt) Then
        o.EntireRow.Hidden = True
        End If
    Next o
Next Cpt

Cordialement