Macro - sélection plusieurs images - à cacher [Résolu]
Bruno_65
- Messages postés
- 41
- Date d'inscription
- jeudi 10 avril 2014
- Dernière intervention
- 22 novembre 2018
- Messages postés
- 41
- Date d'inscription
- jeudi 10 avril 2014
- Dernière intervention
- 22 novembre 2018
A voir également:
- Macro - sélection plusieurs images - à cacher
- Visual Basic / VB.NET : [Word][Macro VBA] Insérer image depuis scanner - CodeS SourceS - Guide
- Excel macro - Sélection d'une plage de cellule avec cell ? ✓ - Forum - Visual Basic 6
- Selection d'images ayant une classe particulière ✓ - Forum - Javascript / DHTML
- Méthode select() sur image ✓ - Forum - Visual Basic 6
- Cacher un message dans une image - Codes sources - Visual Basic / VB.NET (Divers)
3 réponses
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
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)
(mais tout cela est vraiment évident)
- Messages postés
- 41
- Date d'inscription
- jeudi 10 avril 2014
- Dernière intervention
- 22 novembre 2018
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
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
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.