Mode création (case à cocher)

[guy72]

Bonjour,
J'arrive à faire apparaître une image en cochant une case (en métant "False" dans la ligne "visible " des propriétés.
mais elle change et revient avec "True"
Je ne sais pas comment faire pour faire disparaître l'image en décochant la case et la faire réapparaître en cochant de nouveau.

Voici un petit exemple en pièce jointe.

Merci de votre aide

 

[gilbert_RGI]

Re : Mode création (case à cocher)

bonjour

comme ceci

 

[Robert]

Re : Mode création (case à cocher)

Bonjour Guy, bonjour le forum,

Ton fichier réagit bizarrement... Il plante et reste en mode création.
Je te propose un solution sans cases à cocher. Juste le même nom dans la cellule en colonne A (à adapter) que pour l'image. Double clique sur une celllule...
le code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sh As Shape

If Target.Column <> 1 Then Exit Sub
Cancel = True
For Each sh In Shapes
    If sh.Name <> Target.Value Then sh.Visible = False
Next sh
On Error Resume Next
ActiveSheet.Shapes(Target.Value).Visible = Not ActiveSheet.Shapes(Target.Value).Visible
If Err <> 0 Then
    Err = 0
    MsgBox "Il n'y a pas d'image portant le nom : " & Target.Value & " !"
End If
End Sub

Le fichier :

[Édition]
Bonjour Golbert on s'est croisé...

 

[guy72]

Re : Mode création (case à cocher)

Bonjour,
Merci pour ton aide, mais qu'as-tu modifié ?

Ok, j'ai vu dans "visual Basic"

 

[gilbert_RGI]

Re : Mode création (case à cocher)

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
        Tee_shirt.Visible = True
        Else
      
        Tee_shirt.Visible = False
        End If
End Sub

uniquement ça 😎

 

[guy72]

Re : Mode création (case à cocher)

Bonjour, Robert,
Je garde aussi ta version

 

[guy72]

Re : Mode création (case à cocher)

Bonjour,

Une petite précision.
J’ai superposé plusieurs images.

Exemple :
Avec « CheckBox1 », j’ai mis la 1ère image.
Avec « CheckBox2 », j’ai mis la 2ère image sur la 1ère.
Avec « CheckBox3 », j’ai mis la 3ère image sur la 2ème.
Etc………

Mais je souhaite changer l’ordre d’apparitions.
Par exemple, je voudrais que la 10ème soit sous la 2ème.
Suis-je obligé de tout recommencer ou est-il possible de changer l'ordre dans les propriétés ?

Merci de votre aide
Cordialement
Guy

 

[guy72]

Re : Mode création (case à cocher)

Bonjour Robert
Je souhaite voir comment je peux faire avec ta version.

Actuellement, avec 2 clics j'obtiens une image suivant la cellule.
Ce que je souhaitais:
1) Avoir un image (ok)
2) Avoir une autre image sans supprimer la première (polo + pantalon).
3) Ou remplacer une image part une autre (polo1 remplacé par polo2).
Etc.....
Comme un catalogue.

Est-ce possible avec ta version ?

Cordialement

 

[Modeste geedee]

Re : Mode création (case à cocher)

bonsour®

uniquement ça 😎

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
        Tee_shirt.Visible = True
        Else      
        Tee_shirt.Visible = False
        End If
End Sub

c'est beaucoup...

Private Sub CheckBox1_Click()
        Tee_shirt.Visible = CheckBox1 
End Sub

sourire...

 

[guy72]

Re : Mode création (case à cocher)

Bonjour Modeste.
Effectivement, c'est plus court.

 

[Modeste geedee]

Re : Mode création (case à cocher)

Bonjour,

Une petite précision.
J’ai superposé plusieurs images.

Exemple :
Avec « CheckBox1 », j’ai mis la 1ère image.
Avec « CheckBox2 », j’ai mis la 2ère image sur la 1ère.
Avec « CheckBox3 », j’ai mis la 3ère image sur la 2ème.
Etc………

Mais je souhaite changer l’ordre d’apparitions.

Private Sub CheckBox1_Click()
         Tee_shirt1.Visible = CheckBox1
         Tee_shirt1.BringToFront 
End Sub
Private Sub CheckBox2_Click()
         Tee_shirt2.Visible = CheckBox2
         Tee_shirt2.BringToFront 
End Sub 
etc...

Cependant est-ce un bonne idée d'afficher plusieur images pour la même catégorie ?
l'optionButton serait mieux appropriée.
un seul optionButton actif par catégorie,
une seule image visible par catégorie, Non ... ?

 

[guy72]

Re : Mode création (case à cocher)

Bonjour Modeste
Par exemple, je peux mettre un tee-shirt et une chemise pardessusou un pull etc...