Mode création (case à cocher)

gilbert_RGI

XLDnaute Barbatruc

• 4 Avril 2012

• #2

Re : Mode création (case à cocher)

bonjour

comme ceci

 

Pièces jointes

• Habillement.xlsm

  99.3 KB · Affichages: 125
• Habillement.xlsm

  99.3 KB · Affichages: 130
• Habillement.xlsm

  99.3 KB · Affichages: 130

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 4 Avril 2012

• #3

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 :

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é...

 

Pièces jointes

• Guy_v01.xls

  168 KB · Affichages: 115
• Guy_v01.xls

  168 KB · Affichages: 117
• Guy_v01.xls

  168 KB · Affichages: 114

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 4 Avril 2012

• #4

Re : Mode création (case à cocher)

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

Ok, j'ai vu dans "visual Basic"

 

Dernière édition: 4 Avril 2012

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 4 Avril 2012

• #5

Re : Mode création (case à cocher)

Code:

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

uniquement ça 😎

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 4 Avril 2012

• #6

Re : Mode création (case à cocher)

Bonjour, Robert,
Je garde aussi ta version

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 6 Avril 2012

• #7

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

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 7 Avril 2012

• #8

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 7 Avril 2012

• #9

Re : Mode création (case à cocher)

bonsour®

gilbert_RGI à dit:

uniquement ça 😎

Code:

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

Cliquez pour agrandir...

c'est beaucoup...

Code:

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

sourire...

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 7 Avril 2012

• #10

Re : Mode création (case à cocher)

Bonjour Modeste.
Effectivement, c'est plus court.

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 7 Avril 2012

• #11

Re : Mode création (case à cocher)

guy72 à dit:

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.

Cliquez pour agrandir...

Code:

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 ... ?

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 10 Avril 2012

• #12

Re : Mode création (case à cocher)

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

 

Dernière édition: 10 Avril 2012

Vote positif 0 Vote négatif