Masquer des ligne en fonction d'un autre cellule

Résolu/Fermé
Cedric V - 4 oct. 2016 à 10:35
 Cedric V - 4 oct. 2016 à 15:51
Bonjour,

Je voudrais masquer des lignes d'une feuille (Bon de Pliage1) de A5 a A8 en condition que dans une autre feuille Calcul il y est ecrie "7" en E4

j'ai trouver cette formule mais je ne suis pas sur de l'adaptation:

Sub Masquer_lignes()
Dim ligne As Integer

For ligne = 1 To 100
If Cells(ligne, 1) = "Livré" Then
Rows(ligne & ":" & ligne).EntireRow.Hidden = True
End If
Next

End Sub


donc en gros il faudrait que j’écrive:

Sub Masquer_lignes()
Dim ligne As Integer

For ligne = 1 To 100
If Cells('Calcul'!E4) = "7" Then
Rows(ligne & ":" & ligne).EntireRow.Hidden = True
End If
Next

End Sub

et après ?

De plus je doit répéter l’opération 4 foi sur Bon de pliage1 ( donc A5aA8 - A9aA12 -A13aA16-A17aA20) selon Calcul E4-E5-E6-E7 et de suivent sur Bon de Pliage2 (4 foi identique) selon E8-E9-E10-E11 et encore sur 2 autre feuiller Bon de pliage3 et 4.
Merci d'avance

1 réponse

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 534
4 oct. 2016 à 13:49
Bonjour,

Une proposition
https://www.cjoint.com/c/FJelV5sXZeN

A+
0
Merci c'est génial a part pour 1 chose :/
J'ai des images (image qui change en validation de donnée selon le choix 1-etc-7-etc ) intégré dans mes feuilles Bon de travail est ça ne les fait pas disparaître juste ça les entasses les une sur les autres. A tu une solution pour ça aussi?
Bon après en 7 ça me fait des images vide mais a l'impression ca va imprimer un contour dont je n'ai pas besoin.
0
Bon de pliage pardon pas bon de travail
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 534 > Cedric V
4 oct. 2016 à 15:36
Dans les propriétés de l'image, cocher l'option
"Déplacer et Dimensionner avec les cellules".

A+
0
Merciiiiiii :)
0