Autres macro ne s'exécute pas pour tout le fichier

pinard

XLDnaute Nouveau
Bonjour,
pourriez-vous m'aider ?
Mon fichier ne s'exécute pour toute les feuilles.
La macro "masquer"

EN vous remerciant pour votre aide
 

pinard

XLDnaute Nouveau
Sub Masquer()
'
'Masquage des lignes vide sur toutes les feuilles
'

Dim F As Integer
Dim L, NbL, NbL2 As Long
Dim Ln, Lgn, C, T As String


For F = 3 To 21

Sheets(F).Select

NbL = Sheets(1).Range("A99999").End(xlUp).Row

For L = 4 To NbL

If Sheets(1).Range("C" & L).Value <> "" Then
T = Sheets(1).Range("A" & L).Value
NbL2 = Sheets(F).Range("A99999").End(xlUp).Row
For Ln = 12 To NbL2
C = Sheets(F).Range("A" & Ln).Value
If T = C Then
Lgn = Ln & ":" & Ln
Sheets(F).Rows(Lgn).EntireRow.Hidden = False
End If
Next Ln
Else
T = Sheets(1).Range("A" & L).Value
NbL2 = Sheets(F).Range("A99999").End(xlUp).Row
For Ln = 12 To NbL2
C = Sheets(F).Range("A" & Ln).Value
If T = C Then
Lgn = Ln & ":" & Ln
Sheets(F).Rows(Lgn).EntireRow.Hidden = True
End If
Next Ln
End If

Next L
Next F

End Sub
 

Discussions similaires

Réponses
4
Affichages
410

Statistiques des forums

Discussions
314 763
Messages
2 112 653
Membres
111 631
dernier inscrit
Danu082024