bonjour le forum
je dispose de certains objet sur ma feuille que j'ai nommé "Rectangle" je voudrais masquer 16 d'entre eux j'ai met un code pour le faire mais malheureusement il masque tous et non pas 16.
voici le code :
merci d'avance pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27 Sub MasqueFormulaire() Dim Sh As Shape Dim Tableau() As String Dim i As Integer On Error Resume Next 'Boucle sur les formes de la feuille active For Each Sh In Feuil1.Shapes 'Vérifie si le nom de la forme commence par "Rectangle". If Left(Sh.Name, 9) = "Rectangle" Then For i = 1 To 15 'Redéfinit la taille du tableau et intègre le nom de la forme. ReDim Preserve Tableau(1 To i) Tableau(i) = Sh.Name Next 'On sort si le tableau est vide. If i = 0 Then Exit Sub 'Regroupe les formes dont le nom se trouve dans le tableau Set Sh = Feuil1.Shapes.Range(Tableau).Group 'masquer les formes" Sh.Visible = msoFalse End If Next End Sub
Partager