(RESOLU)afficher les lignes masqueés selon une valeur

[chaelie2015]

Bonjour
Je souhaite afficher les lignes masquées selon le nombre saisi dans la cellule AA365
Les lignes de 370 au 381 Sont masquées par defaut
Si je saisi dans la cellule AA365 la valeur 3 , je souhaite afficher 3 lignes apartir de la ligne 370 ( c a d afficher 370 371 et 372)
merci

 

[CPk]

Re : afficher les lignes masqueés selon une valeur

Bonjour testez ceci

Sub afficher_les_lignes()
Dim a As Byte
a = Feuil1.Range("AA365")
Feuil1.Rows("370:" & 370 + a).Hidden = False
End Sub

Modifiez "feuil1" par le nom de vos feuilles respectives pour que le code soit adapté

 

[chaelie2015]

Re : afficher les lignes masqueés selon une valeur

Bonjour CPk
merci pour la réponse ,ça fonctionne mais j'ai un autre souci
si je vide la cellule AA365 , je devrai re masquer les lignes (Les lignes de 370 au 381 Sont masquées par defaut)

 

[CPk]

Re : afficher les lignes masqueés selon une valeur

Bonjour chaelie2015, essayez avec ceci par hasard

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Byte
a = Feuil1.Range("AA365")
If a = 0 Or a = vbNull Then
Feuil1.Rows("370:381").Hidden = True
Else
Feuil1.Rows("370:" & 370 + a).Hidden = False
End If
End Sub

 

[chaelie2015]

Re : afficher les lignes masqueés selon une valeur

Bonjour CPk
Merci pour la réponse c'est exactement ce que je cherchais
Problème Résolut
Salutations

 

[CPk]

Re : (RESOLU)afficher les lignes masqueés selon une valeur

Bonjour chaelie , salutations également