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

Bruno_65 39 Messages postés jeudi 10 avril 2014Date d'inscription 18 mai 2015 Dernière intervention - 19 nov. 2014 à 14:26 - Dernière réponse : Bruno_65 39 Messages postés jeudi 10 avril 2014Date d'inscription 18 mai 2015 Dernière intervention
- 19 nov. 2014 à 16:02
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 

Votre réponse

3 réponses

ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut 11 avril 2018 Dernière intervention - 19 nov. 2014 à 14:45
0
Utile
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
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut 11 avril 2018 Dernière intervention - 19 nov. 2014 à 14:52
0
Utile
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
Bruno_65 39 Messages postés jeudi 10 avril 2014Date d'inscription 18 mai 2015 Dernière intervention - 19 nov. 2014 à 16:02
0
Utile
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.