Masquer toute les labels

[maval]

Bonjour,

Je suis a la recherche d'un code VBA pour masquer toutes les labels au moment d'afficher une image

J'ai comme code ceci pour masquer les images

 ' Masquer toutes les images pour éviter qu'elles soient au premier plan
        For Each MyControl In Controls
            If MyControl.Name Like "Image*" And MyControl.Name <> iImage.Name Then
                MyControl.Visible = False

Quel code ajouter pour masquer les labels (20)

Merci d'avance

 

[Paf]

Re : Masquer toute les labels

Bonjour

plusieurs solutions

si les Labels sont nommés Label1, Label2 etc par leur nom:

If MyControl.Name Like "Label*" Then

sinon par leur type

If TypeName(MyControl) = "Label" Then

(on peut utiliser la solution 2 même si les Labels sont nommés Label1, Label2 etc)

A+

 

[camarchepas]

Re : Masquer toute les labels

Bonjour

@@ Bonjour Paf


Peut être :


' Masquer toutes les images pour éviter qu'elles soient au premier plan
For Each MyControl In Controls
If (MyControl.Name Like "Image*" And MyControl.Name <> iImage.Name) or MyControl.Name Like "Label*" Then
MyControl.Visible = False

 

[maval]

Re : Masquer toute les labels

Bonjour Paf, nono,

Je vous remercie sa fonctionne Nickel

Bonne journée

 

[Paf]

Re : Masquer toute les labels

Re et bonjour camarchepas

encore mal lu l'énoncé !
pas vu qu'il fallait masquer les Labels en plus des images .

Bonne journée