Afficher des objets depuis des cses à cocher.

[Matjul]

Afficher des objets depuis des cases à cocher.

Bonjour à tous,
J'ai un userform avec des cases à cocher (2 pour l'exemple, 20 en réalité).
Ainsi, lorqu'une case est cochées, je souhaiterai afficher les objets associés à cette case.
De plus, tous les objets doivent avoir une position bien précise sur la feuille. Ainsi, ils peuvent être déplacés, mais lorsque l'on réinitialise le classeur, tous les objets devront reprendre leur position initiale.

Vous trouverez un exemple en pièce jointe.

Merci pour votre aide.

 

[Matjul]

Re : Afficher des objets depuis des cases à cocher.

Bonjour, Comment faire pour changer le titre du post?
Je viens de me rendre compte qu'il y avait une faute, ce qui je vous l'accorde ne donne pas envie de lire la suite...

 

[Compte Supprimé 979]

Re : Afficher des objets depuis des cses à cocher.

Salut Matjul,

Je viens de me rendre compte qu'il y avait une faute, ce qui je vous l'accorde ne donne pas envie de lire la suite...

Ne t'en fais pas !
Ce n'est pas ça qui arrête les XLDnautes 😉
Beaucoup sont partis en vacance, de plus l'été on essaye de se reposer les neurones 😀

Tu trouveras ci-joint ton fichier modifié, avec une solution :
Réduire la dimension de chaque image à zéro, et leur redonner au clique du Checkbox

A+

 

[Matjul]

Re : Afficher des objets depuis des cses à cocher.

Bonjour Bruno et merci,
Tu m'as donnée une bonne piste de réflexion pour avancer!
Merci encore

 

[Matjul]

Re : Afficher des objets depuis des cases à cocher.

Bonjour à tous,
J'ai un peu modifier le code de bruno mais il ne fonctionne pas.
Ne peut on pas arriver au résultat que je souhaite en utilisant une formule dans ce style?

Private Sub CheckBox1_Click()
  If Me.CheckBox1.Value = True Then
    "Image1".visible = True
  Else
    "Image1".visible = False
  End If
End Sub

 

[jeanpierre]

Re : Afficher des objets depuis des cases à cocher.

Bonjour Matjul, Bruno,

Chez-moi, le code de Bruno fonctionne... Seulement modifier dans la macro le 1 et 2, sinon pour pompier, tu as gendarme....

Sinon, il faut bien et la sub Afficher, et la sub Masquer.

Bon dimanche et à te lire.

Jean-Pierre

 

[Compte Supprimé 979]

Re : Afficher des objets depuis des cases à cocher.

Salut Matjul, Mon cher Jean-Pierre bonjour à toi

Ne peut on pas arriver au résultat que je souhaite en utilisant une formule dans ce style?

Private Sub CheckBox1_Click()
  If Me.CheckBox1.Value = True Then
    "Image1".visible = True
  Else
    "Image1".visible = False
  End If
End Sub

Non, cela ne fonctionne que sur des UserForm, pas dans des feuilles excel !?

Mais bon c'est comme tu veux 🙄

A+

 

[Matjul]

Re : Afficher des objets depuis des cses à cocher.

Bonjour jean pierre,
Chez moi aussi le code de bruno fonctionne, mais le principe de réduire l'objet à sa taille minimum ne me convient pas car l'objet reste sélectionné et on voit toujours l'encadrement (un point) de l'objet.
De plus , il y aura plus de 300 objets sur la feuille donc tout va se superposer. c'est pour cela que je souhaite plutot les faire disparaitre totalement.

 

[Dull]

Re : Afficher des objets depuis des cses à cocher.

Salut Matjul, Bruno, Le forum

essaye si j'ai bien compris

Private Sub CheckBox1_Click()
Me.Controls("Image1").Visible = IIf(Me.CheckBox1, False, True)
End Sub

Bonne Journée

EDITION: Salut jeanpierre🙂
Ok j'avais pas compris que ce n'était pas sur UserForm 😱

Il y a plein d' exemples sur le Forum... je regarde

RE EDITH: D'oùmonEdition 😉 J'ai pas tester mais ça doit le faire 🙂

 

[Compte Supprimé 979]

Re : Afficher des objets depuis des cses à cocher.

Re,

Il suffit de mettre une ligne de plus à la fin des sub

Sub AfficherImg(Img As Integer)
  ActiveSheet.Shapes(TabImg(Img)).Select
  Selection.ShapeRange.LockAspectRatio = msoTrue
  ' Penser à convertir les centimètres
  Selection.ShapeRange.Height = (DimImg(Img, 1) * 28.356)
  Selection.ShapeRange.Width = (DimImg(Img, 2) * 28.356)
  ActiveSheet.Range("A1").Select
End Sub
Sub MasquerImg(Img As Integer)
  ActiveSheet.Shapes(TabImg(Img)).Select
  Selection.ShapeRange.LockAspectRatio = msoTrue
  Selection.ShapeRange.Height = 0
  Selection.ShapeRange.Width = 0
  ActiveSheet.Range("A1").Select
End Sub

Ton problème d'encadrement aura disparu 🙄

A+

 

[Compte Supprimé 979]

Re : Afficher des objets depuis des cses à cocher.

Salut Dull,

Désolé pour toi, mais les images sont sur une feuille et pas dans un USF 😉

A+

 

[jeanpierre]

Re : Afficher des objets depuis des cses à cocher.

Re,

Rien de plus à ajouter, mais pour saluer Dull et Féliciter Bruno pour son nouveau grade.

Voilà, c'est fait... Bon dimanche tous.

Jean-Pierre