Boucle pour faire disparaître des objets

[Magic_Doctor]

Bonjour à tous,

Sur une feuille j'ai disposé 20 listes déroulantes.
Ces listes se dénomment : ListeChxPourcents1, ListeChxPourcents2, ListeChxPourcents3, etc. jusqu'à 20.

Par le biais d'une macro, je veux les faire disparaître ou réapparaître suivant le contexte.
Pour ce faire, j'ai crée une boucle :

'faire disparaître toutes les listes déroulantes
For i% = 1 To 20
ActiveSheet.Shapes("ListeChxPourcents" & i%).Visible = False
Next i%

'faire réapparaître toutes les listes déroulantes
For i% = 1 To 20
ActiveSheet.Shapes("ListeChxPourcents" & i%).Visible = True
Next i%

Contre toute attente, ça ne marche pas du tout, mais vraiment pas du tout.

Un grand merci à celle ou celui qui m'apportera une réponse.

 

[phlaurent55]

Re : Boucle pour faire disparaître des objets

C'est peut-être une réponse à la con................comment as-tu déclaré, où as-tu déclaré Dim i%

 

[Magic_Doctor]

Re : Boucle pour faire disparaître des objets

i% a bien été déclaré là où il faut, en début de procédure.
Du reste j'utilise cette variable dans une autre boucle (indépendante de celle qui ne marche pas) et qui, elle, fonctionne très bien.

 

[Pierrot93]

Re : Boucle pour faire disparaître des objets

Bonjour MagicDoctor, Laurent

si ce sont les seuls objets sur ta feuille de calcul, tu peux utiliser le code ci dessous :

Sheets("Feuil1").Shapes.SelectAll
Selection.Visible = False

à remettre à "True" pour les rendre visibles.

bon après midi
@+

 

[Pierrot93]

Re : Boucle pour faire disparaître des objets

Re

une fois bien déclarée ta variable, suis pas sur qu'il soit nécessaire de remettre le caractère de déclaration lorsque tu uttilises cette même variable...

@+

 

[Lord Nelson]

Re : Boucle pour faire disparaître des objets

Salut à tous,

Il me semble que les propriétés des listes passent bien à Visible = False mais que leur dessin reste à l'écran.

J'ai testé ceci :

    Dim SHP
    Range("A100").Select
    For Each SHP In ActiveSheet.Shapes
      If Left(SHP.Name, 4) = "List" Then
        SHP.Visible = False
      End If
    
    Next
    Range("A1").Select

Le fait d'aller voir ailleurs (ligne 100 par exemple) puis de revenir force la mémoire vidéo à se comporter comme une bonne fille.

A+
Horatio

 

[Magic_Doctor]

Re : Boucle pour faire disparaître des objets

Problème réglé !!

Une des "fucky" listes avait été mal nommée.........

Moralité : TOUJOURS SE RELIRE & BIEN VÉRIFIER !!!!!!