if imbriqués pour afficher et masquer les lignes

chaelie2015 · 7 Août 2017

Bonjour Forum
je souhaite avoir un code des "if" imbriqués pour afficher et masquer les lignes selon le nombre saisié, je m'explique
j'ai un fichier
dans la cellule G41( jaune) nombre de lot des valeurs variable de 0 au 8
si je saisie la valeur 2 dans la cellule G41, il s'affiche que les lignes 44 et 76 seulement
après si je sélectionne dans la cellule AN44 (valeur entre 0 et 15 de la ligne 44) la valeur 3
j'aurais (il s'affiche) les lignes 46 au 51
et le mème raisonnement pour la cellule AN76 ( de la ligne 76) la valeur 5; j'aurais les ligne
78 au 87.
merci

youky(BJ) · 7 Août 2017

Bonjour,
Je sais pas si j'ai pigé.
Voici un petit début pour voir si c'est ca
Par contre je comprends pas plus loin.
Code à mettre en worksheet_change
Bruno

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target < 1 Then Rows("45:1000").Hidden = False: Exit Sub

If Target.Address = "$G$41" Then
Rows("45:1000").Hidden = False
haut = 45: bas = 75
For k = 1 To Target.Value
Rows(haut & ":" & bas).Hidden = True
haut = haut + 32: bas = bas + 32
Next
End If
End Sub

chaelie2015 · 7 Août 2017

youky(BJ) à dit:
Bonjour,
Je sais pas si j'ai pigé.
Voici un petit début pour voir si c'est ca
Par contre je comprends pas plus loin.
Code à mettre en worksheet_change
Bruno

VB:

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target < 1 Then Rows("45:1000").Hidden = False: Exit Sub If Target.Address = "$G$41" Then Rows("45:1000").Hidden = False haut = 45: bas = 75 For k = 1 To Target.Value Rows(haut & ":" & bas).Hidden = True haut = haut + 32: bas = bas + 32 Next End If End Sub

Merci pour la réponse youky(BJ)
mais ca n'a pas fonctionné ????
a+

youky(BJ) · 7 Août 2017

Voir si c'est mieux pour le début
Bruno

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target < 1 Then Rows("44:1000").Hidden = True: Exit Sub
If Target.Address = "$G$41" Then
haut = 45: bas = 75
nb = 1
For k = 44 To 139 Step 32
If nb <= Target.Value Then Rows(k).Hidden = False: nb = nb + 1
Next
End If
End Sub

youky(BJ) · 7 Août 2017

Voici un essai pas trop mal je pense et commence à piger.
Bruno

if imbriqués pour afficher et masquer les lignes

chaelie2015

XLDnaute Accro

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

youky(BJ)

XLDnaute Barbatruc

Pièces jointes

Discussions similaires