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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
Notre forum d’entraide est 100 % gratuit et le restera.
Aucune formation payante, aucun fichier à acheter, rien à vendre. Mais comme tout site, nous devons couvrir nos frais pour continuer à vous accompagner.
Soutenez-nous en souscrivant à un compte membre : c’est rapide, vous choisissez simplement votre niveau de soutien et le tour est joué.

Je soutiens la communauté et j’accède à mon compte membre

Discussions similaires

Réponses
7
Affichages
318
Réponses
5
Affichages
75
Réponses
58
Affichages
299
Retour