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 ? …

[EngueEngue]

Parce que je ne sais pas dans quel ordre il les a mis et combien de types de shapes il a..

[Marc-L]

A l'origine, la question s'adressait à Saïd … Mais effectivement t'es aussi concerné !

Relire le premier post alors car c'est bien expliqué !

Donc une seule boucle de 01 à 16 sur le nom des Shapes "Rectangle " & valeur de la boucle …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________
- A ton avis, quel est le plus grand mal de notre époque : l'ignorance ou l'indifférence ?
- J' sais pas et j' m'en fous !

[EngueEngue]

C'est ce que j'ai proposé mais il faut bien boucler sur les shapes pour voir si c'est bien eux! ou alors illumine moi!

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub MasqueFormulaire()
Dim i As Integer
 
    'Boucle sur les formes de la feuille active
For i = 0 To ActiveSheet.Shapes.Count - 1
'    Si les critères collent ?
        If CLng(Replace(1, ActiveSheet.Shapes(i).Name, "Rectangle")) > 5 And CLng(Replace(1, ActiveSheet.Shapes(i).Name, "Rectangle")) > 10 Then
            ActiveSheet.Shapes(i).Visible = False
        End If
 
Next i
End Sub

[Marc-L]

C'est ce que j'ai proposé mais il faut bien boucler sur les shapes pour voir si c'est bien eux! ou alors illumine moi!

Comme un sapin de Noël car c'est du niveau débutant ‼

For N% = 1 To 16: Feuil1.Shapes("Rectangle " & Format$(N, "00")).Visible = False: Next …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________
A celle qui dit que les hommes sont tous pareils, lui répondre qu'il ne fallait pas tous les essayer !

[EngueEngue]

Et bien depuis toujours je boucle pour aller selectionner des objets, je ne savais pas qu'on pouvait les select directement. Une bonne chose de faite hahah

[Marc-L]

Un Shape est un objet comme un autre, à partir du moment qu'il dispose d'une propriété .Name …


Pensée du jour (applicable chaque jour) :

La sélection est souvent source d'ennuis …

[BERRACHED SAID]

Bonjour mes amis et encore merci

c'est ce bout de code proposé par Marc qui a bien fait l'affaire :

Code :

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

For N% = 1 To 16: Feuil1.Shapes("Rectangle " & Format$(N, "00")).Visible = False: Next

bonne journée