Masquage conditionnel de lignes

[paul9595]

Bonjour tout le monde,

Étant débutant en VBA je bloque sur une macro et j'espère trouver l'aide donc j'ai besoin ici pour résoudre mon problème, j'ai besoin de créer une macro pour ma société qui me permettrait de masquer toute les lignes au dessous de la dernière image de ma feuille.

Si quelqu'un se penche sur mon problème pouvez vous me décrire le code pour que je puisse apprendre de vos conseils, que je ne copier pas seulement un code que je ne comprend pas.

Merci d'avance de votre aide

 

[camarchepas]

Re : Masquage conditionnel de lignes

Bonjour ,

Peut être plus simple , mais bon :

Sub test()
Dim Image  As Shape
Dim Tourne As Long, U As Long, Mem As Long, Somme As Long

'Scrute l'ensemble des formes
For Each Image In Feuil1.Shapes
'La position basse de la forme est le haut + la hauteur
U = Image.Top + Image.Height
'Repérage de l'image la plus basse
If U > Mem Then Mem = U
Next Image

'Calcul de la cellule sur la position point
For Tourne = 1 To 1000000
 Somme = Somme + Range("A" & Tourne).RowHeight
 If Mem < Somme Then
      Rows(Tourne + 1 & ":" & Rows.Count).EntireRow.Hidden = True
      Exit For
 End If
Next Tourne
End Sub