Code VBA pour masquer lignes d'un autre onglet
Bonjour le Forum,
J'aimerais écrire une macro qui dépasse mes compétences...
Dans le fichier Excel joint je cherche à masquer des lignes de l'onglet "Collecteur" en fonction de la valeur de la cellule (E11) de la Feuil1.
Dans l'onglet "Collecteur" j'ai 40 lignes visibles (de 14 à 53), si la valeur de la cellule (E11) de la Feuil1 est égale à 10, les 10 premières lignes de l'onglet "Collecteur" restes visibles (lignes 14 à 23) et les autres doivent être masquées.
J'ai eu beau chercher, en m'aidant de discussions similaires sur le forum, mais je ne trouve pas la solution. Quelqu'un pourrait-il m'aider ?
Merci d'avance
Bonjour Sergio,
N'hésite pas à tester en modifiant la valeur de la cellule E11, le masquage des cellules se fait automatiquement.
Bonne réception
Bonjour,
Votre fichier avec le code :
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Valeur As Long
Dim DL As Long
DL = Sheets("Collecteur").Cells(Application.Rows.Count, 1).End(xlUp).Row
Sheets("Collecteur").Rows("14:" & DL).Hidden = True
If Sheets(1).Range("E11").Value = "" Then
Exit Sub
Else
Valeur = Sheets(1).Range("E11").Value
Sheets("Collecteur").Rows("14:" & Valeur + 13).Hidden = False
End If
End SubCordialement.
Bonsoir Sharney et Kuartz,
Merci beaucoup pour votre aide et surtout vos réponses très rapides.
Très bonne soirée.