Discussion :

[BERRACHED SAID]

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 :

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

merci d'avance pour votre aide

[EngueEngue]

Pourquoi ne pas les masquer directement dans ta condition ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Left(Sh.Name, 9) = "Rectangle" Then
Sh.Visible = msoFalse
end if

[BERRACHED SAID]

bonjour EngueEngue merci

le problème c'est que ce code masque tous les rectangle dans la feuille alors que moi je voudrais masqué de "Rectangle 01" a "Rectangle 16" c'est a dire 16 objets
même si je met le code masque dans la condition comme tu l'a suggerer ça change rien.

merci

[EngueEngue]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
sub MasqueFormulaire()
Dim Sh As Shape
Dim i As Integer
 On Error Resume Next
 
    'Boucle sur les formes de la feuille active
For i = 1 to 16
    For Each Sh In Feuil1.Shapes
        If Sh.Name= "Rectangle" & i Then
Sh.Visible = msoFalse
end if
next sh
next i
end sub

[BERRACHED SAID]

salut

j'ai essayé ton code mais apparemment il donne rien ?????????

merci encore

[EngueEngue]

Des fois il faut essayer de voir ce qu'il se passe sans recopier sans comprendre... il manquait un espace après rectangle..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
sub MasqueFormulaire()
Dim Sh As Shape
Dim i As Integer
 On Error Resume Next
 
    'Boucle sur les formes de la feuille active
For i = 1 to 16
    For Each Sh In Feuil1.Shapes
        If Sh.Name= "Rectangle " & i Then
Sh.Visible = msoFalse
end if
next sh
next i
end sub

[Marc-L]

Bonjour,

pourquoi utiliser For Each (=tous !) si ce n'est pas pour tous les traiter ? …