Posez votre question Signaler

Macro - sélection plusieurs images - à cacher [Résolu]

Messages postés
41
Date d'inscription
jeudi 10 avril 2014
Statut
Membre
Dernière intervention
22 novembre 2018
 - - Dernière réponse : Bruno_65
Messages postés
41
Date d'inscription
jeudi 10 avril 2014
Statut
Membre
Dernière intervention
22 novembre 2018
 - 19 nov. 2014 à 16:02
VBA Office (Excel, Word ...) Posez votre question Signaler
Bonjour,

Je voudrai faire une macro pour :
- sélectionner une série d'images (une trentaine) : "image 1", "image 2", "image 3"...
- et les cacher toutes en même temps.

J'ai essayé de faire de faire ce test limité à quelques images :
ActiveSheet.Shapes("Image 1", "Image 2", "Image 3", "Image 4").Visible = False
Mais cela ne marche pas... Je ne suis pas encore très doué avec VBA...

Alors comment faire ? ... Merci de m'aider.

Cordialement, Bruno
Afficher la suite 

3 réponses

Signaler Commenter la réponse de ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 212
0
Merci
Bonjour,
mets les images dont il s'agit dans un array, puis agit, en boucle sur cette array, sur la propriété visible de chacune d'elles !
Commenter la réponse de ucfoutu
Signaler Commenter la réponse de ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 212
0
Merci
Ou/et si elles ont vraiment et exactement ces noms-là ("Image 1", "Image 2", "Image 3" et "Image 4") rien ne t'empêche de faire une boucle for i = 1 to 4 dans laquelle tu les rends invisible tour à tout ( ActiveSheet.Shapes("Image " & i).Visible = False )
(mais tout cela est vraiment évident)
Commenter la réponse de ucfoutu
Signaler Commenter la réponse de Bruno_65
Messages postés
41
Date d'inscription
jeudi 10 avril 2014
Statut
Membre
Dernière intervention
22 novembre 2018
0
Merci
MERCIccciiiiiiiiii beacoup !!!!!!

Faire un"boucle" ou utliser un "array" est signe de bonté en VBA... et je suis suffisamment mauvais en VBA pour ne pas trouver tout cela très évident...
Cependant, J'ai réussi à comprendre, puis à faire la bonne macro (que j'ai appelée Cache-cahe) :

Sub Cache_Cache()
For i = 1 To 4
Nom = "Image & i"
ActiveSheet.Shapes("Image " & i).Visible = False
Next i
End Sub
et cela marche très bien !! donc je suis heu-reux !

Merci beaucoup ucfoutu , bonne journée !
Cordialement, Bruno
Commenter la réponse de Bruno_65
Répondre Posez votre question