Boucle sur image
Bonjour à tous,
Je sais bien que les boucles sur les images existent au travers du forum, mais je n'arrive pas à l'appliquer...
Sur une feuille, j'ai un plan de site avec les logos (type extincteur etc)... je souhaite pouvoir afficher ou masquer les logos (s'ils sont visible ça les masques et inversement)...
Pour cet exemple, je veux faire ma boucle sur les extincteurs, les images sont donc renommés "EXT 1" "EXT 2" etc
J'ai donc essayé la boucle suivante :
With Sheets("Feuil1")
For i = 1 To 25
If .[EXT i].Visible = True Then
.[EXT i].Visible = False
Else
.[EXT i].Visible = True
End If
Next
End With
Il m'indique une erreur d'objet après le 1er test...
Avez-vous une idée ??
Merci,
Bonjour,
Un essai (non testé) :
For Each Img In Sheets("Feuil1").Pictures
Img.Visible = Not Img.Visible
Next ImgBonjour et merci de ta réponse rapide !
Effectivement ton code fonctionne mais il s'applique à toutes les images,
Dans ma feuil1 j'ai des images s'appelant "EXT 1" à "EXT 25" et d'autres par exemple "DI 1" à "DI 8", il faut donc que je sépare chaque "famille" d'image, je sais pas si je suis clair
Bonjour et merci de ta réponse rapide !
Effectivement ton code fonctionne mais il s'applique à toutes les images,
Dans ma feuil1 j'ai des images s'appelant "EXT 1" à "EXT 25" et d'autres par exemple "DI 1" à "DI 8", il faut donc que je sépare chaque "famille" d'image, je sais pas si je suis clair
Oui c'est clair ! Une adaptation :
For Each Img In Sheets("Feuil1").Pictures
If Img.Name Like "*EXT*" Then Img.Visible = Not Img.Visible
Next ImgPour exemple pour les images commencant par "DI" j'ai fais le code suivant :
If .[DI 1].Visible = True Then
.[DI 1].Visible = False
Else
.[DI 1].Visible = True
End If
If .[DI 2].Visible = True Then
.[DI 2].Visible = False
.[FDI 2].Visible = False
Else
.[DI 2].Visible = True
.[FDI 2].Visible = True
End If
If .[DI 3].Visible = True Then
.[DI 3].Visible = False
Else
.[DI 3].Visible = True
End If
If .[DI 4].Visible = True Then
.[DI 4].Visible = False
Else
.[DI 4].Visible = True
End If
If .[DI 5].Visible = True Then
.[DI 5].Visible = False
Else
.[DI 5].Visible = True
End If
If .[DI 6].Visible = True Then
.[DI 6].Visible = False
Else
.[DI 6].Visible = True
End If
If .[DI 7].Visible = True Then
.[DI 7].Visible = False
Else
.[DI 7].Visible = True
End If
If .[DI 8].Visible = True Then
.[DI 8].Visible = False
Else
.[DI 8].Visible = True
End If
(sans boucle du coup, mais je voudrais appliquer la boucle si j'en trouve une ^^)
Hey ben magnifique tout fonctionne parfaitement apriori !!
Merci beaucoup ! =)