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 !
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
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