3ème condition ??

Bonjour,

Si j'ai bien compris ...
http://cjoint.com/?cqpS4ATx1D

On doit pouvoir optimiser.


"Poppy" <poppy@spam.non> a écrit dans le message de news:
%23a0SlRdUHHA.496@TK2MSFTNGP06.phx.gbl...

Bonjour
1ère case à cocher = Image chaussure.
2ème case à cocher = Image chaussure2.
3ème case à cocher = Imagechaussure3.
4ème case à cocher = Image mannequin si les trois condition sont remplies.
Quelqu'un pourrait il me dire comment faire pour obtenir la 4ème case à
cocher.
Voici un fichier d'exemple.
http://cjoint.com/?cqpj5KXSUE

Cordialement
Poppy


--------------------------------------------------------------------------------
J'utilise la version gratuite de SPAMfighter pour utilisateurs privés.
8 e-mails spam ont été bloqués jusqu'à maintenant.
Les utilisateurs payant n'ont pas ce message dans leurs e-mails.
Essayez SPAMfighter gratuitement maintenant!

Salut Poppy,

Essaie ceci :

Sub AfficheImage()
If CheckBox1 = True Then
Chaussure.Visible = True
Else
Chaussure.Visible = False
End If
If CheckBox2 = True Then
chaussure2.Visible = True
Else
chaussure2.Visible = False
End If
If CheckBox3 = True Then
Chaussure3.Visible = True
Else
Chaussure3.Visible = False
End If
If CheckBox1 = True And CheckBox2 = True And CheckBox3 = True Then
Manequin.Visible = True
Else
Manequin.Visible = False
End If
End Sub

Serge



"Poppy" <poppy@spam.non> a écrit dans le message de news: %23a0SlRdUHHA.496@TK2MSFTNGP06.phx.gbl...

Bonjour
1ère case à cocher = Image chaussure.
2ème case à cocher = Image chaussure2.
3ème case à cocher = Imagechaussure3.
4ème case à cocher = Image mannequin si les trois condition sont remplies.
Quelqu'un pourrait il me dire comment faire pour obtenir la 4ème case à cocher.
Voici un fichier d'exemple.
http://cjoint.com/?cqpj5KXSUE

Cordialement
Poppy


--------------------------------------------------------------------------------
J'utilise la version gratuite de SPAMfighter pour utilisateurs privés.
8 e-mails spam ont été bloqués jusqu'à maintenant.
Les utilisateurs payant n'ont pas ce message dans leurs e-mails.
Essayez SPAMfighter gratuitement maintenant!

Salut Poppy,

J'ai testé avec des formes automatiques.
Est-ce bien le résultat que tu attends ?
Macros dans module de feuille :

Private Sub CheckBox1_Click()
AfficheImage
End Sub

Private Sub CheckBox2_Click()
AfficheImage
End Sub

Private Sub CheckBox3_Click()
AfficheImage
End Sub

Sub AfficheImage()
If CheckBox1 = True Then
Shapes("Chaussure").Visible = True
Else
Shapes("Chaussure").Visible = False
End If
If CheckBox2 = True Then
Shapes("Chaussure2").Visible = True
Else
Shapes("Chaussure2").Visible = False
End If
If CheckBox3 = True Then
Shapes("Chaussure3").Visible = True
Else
Shapes("Chaussure3").Visible = False
End If
If CheckBox1 = True And CheckBox2 = True And CheckBox3 = True Then
Shapes("Manequin").Visible = True
Else
Shapes("Manequin").Visible = False
End If
End Sub

Serge

Bonsoir garnote
C'est tout à fait ce que je voulais
Merci de ton aide
Cordialement
Poppy

"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news:
%23mz5vBeUHHA.3652@TK2MSFTNGP04.phx.gbl...

Salut Poppy,

J'ai testé avec des formes automatiques.
Est-ce bien le résultat que tu attends ?
Macros dans module de feuille :

Private Sub CheckBox1_Click()
AfficheImage
End Sub

Private Sub CheckBox2_Click()
AfficheImage
End Sub

Private Sub CheckBox3_Click()
AfficheImage
End Sub

Sub AfficheImage()
If CheckBox1 = True Then
Shapes("Chaussure").Visible = True
Else
Shapes("Chaussure").Visible = False
End If
If CheckBox2 = True Then
Shapes("Chaussure2").Visible = True
Else
Shapes("Chaussure2").Visible = False
End If
If CheckBox3 = True Then
Shapes("Chaussure3").Visible = True
Else
Shapes("Chaussure3").Visible = False
End If
If CheckBox1 = True And CheckBox2 = True And CheckBox3 = True Then
Shapes("Manequin").Visible = True
Else
Shapes("Manequin").Visible = False
End If
End Sub

Serge

--------------------------------------------------------------------------------
J'utilise la version gratuite de SPAMfighter pour utilisateurs privés.
8 e-mails spam ont été bloqués jusqu'à maintenant.
Les utilisateurs payant n'ont pas ce message dans leurs e-mails.
Essayez SPAMfighter gratuitement maintenant!

Ou plus simplement :

Private Sub CheckBox1_Click()
Shapes("Chaussure").Visible = CheckBox1
Cordonnier
End Sub

Private Sub CheckBox2_Click()
Shapes("Chaussure2").Visible = CheckBox2
Cordonnier
End Sub

Private Sub CheckBox3_Click()
Shapes("Chaussure3").Visible = CheckBox3
Cordonnier
End Sub

Sub Cordonnier()
Shapes("Manequin").Visible = CheckBox1 And CheckBox2 And CheckBox3
End Sub


Serge
















"Poppy" <poppy@spam.non> a écrit dans le message de news: eDu6lIeUHHA.5068@TK2MSFTNGP03.phx.gbl...

Bonsoir garnote
C'est tout à fait ce que je voulais
Merci de ton aide
Cordialement
Poppy

"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: %23mz5vBeUHHA.3652@TK2MSFTNGP04.phx.gbl...

Salut Poppy,

J'ai testé avec des formes automatiques.
Est-ce bien le résultat que tu attends ?
Macros dans module de feuille :

Private Sub CheckBox1_Click()
AfficheImage
End Sub

Private Sub CheckBox2_Click()
AfficheImage
End Sub

Private Sub CheckBox3_Click()
AfficheImage
End Sub

Sub AfficheImage()
If CheckBox1 = True Then
Shapes("Chaussure").Visible = True
Else
Shapes("Chaussure").Visible = False
End If
If CheckBox2 = True Then
Shapes("Chaussure2").Visible = True
Else
Shapes("Chaussure2").Visible = False
End If
If CheckBox3 = True Then
Shapes("Chaussure3").Visible = True
Else
Shapes("Chaussure3").Visible = False
End If
If CheckBox1 = True And CheckBox2 = True And CheckBox3 = True Then
Shapes("Manequin").Visible = True
Else
Shapes("Manequin").Visible = False
End If
End Sub

Serge

--------------------------------------------------------------------------------
J'utilise la version gratuite de SPAMfighter pour utilisateurs privés.
8 e-mails spam ont été bloqués jusqu'à maintenant.
Les utilisateurs payant n'ont pas ce message dans leurs e-mails.
Essayez SPAMfighter gratuitement maintenant!

Bonjour garnote
Effectivement c'est plus simple.
Je voudrais en profiter pour te poser une autre question.
Si j'ai une 4ème chaussure, (par exemple une tongue) que je coche la case
"tongue".
Je voudrais que l'image du mannequin disparaisse si je coche cette case (car
la chaussure ne correspond pas à ce modèle.
Est-ce possible ?

Cordialement
Poppy



"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news:
O4T3pxeUHHA.1364@TK2MSFTNGP06.phx.gbl...

Ou plus simplement :

Private Sub CheckBox1_Click()
Shapes("Chaussure").Visible = CheckBox1
Cordonnier
End Sub

Private Sub CheckBox2_Click()
Shapes("Chaussure2").Visible = CheckBox2
Cordonnier
End Sub

Private Sub CheckBox3_Click()
Shapes("Chaussure3").Visible = CheckBox3
Cordonnier
End Sub

Sub Cordonnier()
Shapes("Manequin").Visible = CheckBox1 And CheckBox2 And CheckBox3
End Sub


Serge
















"Poppy" <poppy@spam.non> a écrit dans le message de news:
eDu6lIeUHHA.5068@TK2MSFTNGP03.phx.gbl...

Bonsoir garnote
C'est tout à fait ce que je voulais
Merci de ton aide
Cordialement
Poppy

"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de
news: %23mz5vBeUHHA.3652@TK2MSFTNGP04.phx.gbl...

Salut Poppy,

J'ai testé avec des formes automatiques.
Est-ce bien le résultat que tu attends ?
Macros dans module de feuille :

Private Sub CheckBox1_Click()
AfficheImage
End Sub

Private Sub CheckBox2_Click()
AfficheImage
End Sub

Private Sub CheckBox3_Click()
AfficheImage
End Sub

Sub AfficheImage()
If CheckBox1 = True Then
Shapes("Chaussure").Visible = True
Else
Shapes("Chaussure").Visible = False
End If
If CheckBox2 = True Then
Shapes("Chaussure2").Visible = True
Else
Shapes("Chaussure2").Visible = False
End If
If CheckBox3 = True Then
Shapes("Chaussure3").Visible = True
Else
Shapes("Chaussure3").Visible = False
End If
If CheckBox1 = True And CheckBox2 = True And CheckBox3 = True Then
Shapes("Manequin").Visible = True
Else
Shapes("Manequin").Visible = False
End If
End Sub

Serge

--------------------------------------------------------------------------------
J'utilise la version gratuite de SPAMfighter pour utilisateurs privés.
8 e-mails spam ont été bloqués jusqu'à maintenant.
Les utilisateurs payant n'ont pas ce message dans leurs e-mails.
Essayez SPAMfighter gratuitement maintenant!

--------------------------------------------------------------------------------
J'utilise la version gratuite de SPAMfighter pour utilisateurs privés.
8 e-mails spam ont été bloqués jusqu'à maintenant.
Les utilisateurs payant n'ont pas ce message dans leurs e-mails.
Essayez SPAMfighter gratuitement maintenant!

Bonjour Poppy,

Essaie ces macros et dis-moi si elles te permettent
d"obtenir ce que tu veux :

A+
Serge


Private Sub CheckBox1_Click()
Shapes("Chaussure").Visible = CheckBox1
Cordonnier
End Sub

Private Sub CheckBox2_Click()
Shapes("Chaussure2").Visible = CheckBox2
Cordonnier
End Sub

Private Sub CheckBox3_Click()
Shapes("Chaussure3").Visible = CheckBox3
Cordonnier
End Sub

Private Sub CheckBox4_Click()
Shapes("Chaussure4").Visible = CheckBox4
Cordonnier
End Sub

Sub Cordonnier()
Shapes("Manequin").Visible = CheckBox1 And CheckBox2 And CheckBox3 And Not CheckBox4
End Sub




"Poppy" <poppy@spam.non> a écrit dans le message de news: %23TfuNAmUHHA.4188@TK2MSFTNGP06.phx.gbl...

Bonjour garnote
Effectivement c'est plus simple.
Je voudrais en profiter pour te poser une autre question.
Si j'ai une 4ème chaussure, (par exemple une tongue) que je coche la case "tongue".
Je voudrais que l'image du mannequin disparaisse si je coche cette case (car la chaussure ne correspond pas à ce modèle.
Est-ce possible ?

Cordialement
Poppy



"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: O4T3pxeUHHA.1364@TK2MSFTNGP06.phx.gbl...

Ou plus simplement :

Private Sub CheckBox1_Click()
Shapes("Chaussure").Visible = CheckBox1
Cordonnier
End Sub

Private Sub CheckBox2_Click()
Shapes("Chaussure2").Visible = CheckBox2
Cordonnier
End Sub

Private Sub CheckBox3_Click()
Shapes("Chaussure3").Visible = CheckBox3
Cordonnier
End Sub

Sub Cordonnier()
Shapes("Manequin").Visible = CheckBox1 And CheckBox2 And CheckBox3
End Sub


Serge
















"Poppy" <poppy@spam.non> a écrit dans le message de news: eDu6lIeUHHA.5068@TK2MSFTNGP03.phx.gbl...

Bonsoir garnote
C'est tout à fait ce que je voulais
Merci de ton aide
Cordialement
Poppy

"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: %23mz5vBeUHHA.3652@TK2MSFTNGP04.phx.gbl...

Salut Poppy,

J'ai testé avec des formes automatiques.
Est-ce bien le résultat que tu attends ?
Macros dans module de feuille :

Private Sub CheckBox1_Click()
AfficheImage
End Sub

Private Sub CheckBox2_Click()
AfficheImage
End Sub

Private Sub CheckBox3_Click()
AfficheImage
End Sub

Sub AfficheImage()
If CheckBox1 = True Then
Shapes("Chaussure").Visible = True
Else
Shapes("Chaussure").Visible = False
End If
If CheckBox2 = True Then
Shapes("Chaussure2").Visible = True
Else
Shapes("Chaussure2").Visible = False
End If
If CheckBox3 = True Then
Shapes("Chaussure3").Visible = True
Else
Shapes("Chaussure3").Visible = False
End If
If CheckBox1 = True And CheckBox2 = True And CheckBox3 = True Then
Shapes("Manequin").Visible = True
Else
Shapes("Manequin").Visible = False
End If
End Sub

Serge

--------------------------------------------------------------------------------
J'utilise la version gratuite de SPAMfighter pour utilisateurs privés.
8 e-mails spam ont été bloqués jusqu'à maintenant.
Les utilisateurs payant n'ont pas ce message dans leurs e-mails.
Essayez SPAMfighter gratuitement maintenant!

--------------------------------------------------------------------------------
J'utilise la version gratuite de SPAMfighter pour utilisateurs privés.
8 e-mails spam ont été bloqués jusqu'à maintenant.
Les utilisateurs payant n'ont pas ce message dans leurs e-mails.
Essayez SPAMfighter gratuitement maintenant!

Bonjour garnote
Oui c'est encore parfait.
ça parait si simple
Merci encore
Cordialement
Poppy



"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news:
ehwHPXnUHHA.3652@TK2MSFTNGP04.phx.gbl...

Bonjour Poppy,

Essaie ces macros et dis-moi si elles te permettent
d"obtenir ce que tu veux :

A+
Serge


Private Sub CheckBox1_Click()
Shapes("Chaussure").Visible = CheckBox1
Cordonnier
End Sub

Private Sub CheckBox2_Click()
Shapes("Chaussure2").Visible = CheckBox2
Cordonnier
End Sub

Private Sub CheckBox3_Click()
Shapes("Chaussure3").Visible = CheckBox3
Cordonnier
End Sub

Private Sub CheckBox4_Click()
Shapes("Chaussure4").Visible = CheckBox4
Cordonnier
End Sub

Sub Cordonnier()
Shapes("Manequin").Visible = CheckBox1 And CheckBox2 And CheckBox3 And
Not CheckBox4
End Sub




"Poppy" <poppy@spam.non> a écrit dans le message de news:
%23TfuNAmUHHA.4188@TK2MSFTNGP06.phx.gbl...

Bonjour garnote
Effectivement c'est plus simple.
Je voudrais en profiter pour te poser une autre question.
Si j'ai une 4ème chaussure, (par exemple une tongue) que je coche la case
"tongue".
Je voudrais que l'image du mannequin disparaisse si je coche cette case
(car la chaussure ne correspond pas à ce modèle.
Est-ce possible ?

Cordialement
Poppy



"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de
news: O4T3pxeUHHA.1364@TK2MSFTNGP06.phx.gbl...

Ou plus simplement :

Private Sub CheckBox1_Click()
Shapes("Chaussure").Visible = CheckBox1
Cordonnier
End Sub

Private Sub CheckBox2_Click()
Shapes("Chaussure2").Visible = CheckBox2
Cordonnier
End Sub

Private Sub CheckBox3_Click()
Shapes("Chaussure3").Visible = CheckBox3
Cordonnier
End Sub

Sub Cordonnier()
Shapes("Manequin").Visible = CheckBox1 And CheckBox2 And CheckBox3
End Sub


Serge
















"Poppy" <poppy@spam.non> a écrit dans le message de news:
eDu6lIeUHHA.5068@TK2MSFTNGP03.phx.gbl...

Bonsoir garnote
C'est tout à fait ce que je voulais
Merci de ton aide
Cordialement
Poppy

"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de
news: %23mz5vBeUHHA.3652@TK2MSFTNGP04.phx.gbl...

Salut Poppy,

J'ai testé avec des formes automatiques.
Est-ce bien le résultat que tu attends ?
Macros dans module de feuille :

Private Sub CheckBox1_Click()
AfficheImage
End Sub

Private Sub CheckBox2_Click()
AfficheImage
End Sub

Private Sub CheckBox3_Click()
AfficheImage
End Sub

Sub AfficheImage()
If CheckBox1 = True Then
Shapes("Chaussure").Visible = True
Else
Shapes("Chaussure").Visible = False
End If
If CheckBox2 = True Then
Shapes("Chaussure2").Visible = True
Else
Shapes("Chaussure2").Visible = False
End If
If CheckBox3 = True Then
Shapes("Chaussure3").Visible = True
Else
Shapes("Chaussure3").Visible = False
End If
If CheckBox1 = True And CheckBox2 = True And CheckBox3 = True Then
Shapes("Manequin").Visible = True
Else
Shapes("Manequin").Visible = False
End If
End Sub

Serge

--------------------------------------------------------------------------------
J'utilise la version gratuite de SPAMfighter pour utilisateurs privés.
8 e-mails spam ont été bloqués jusqu'à maintenant.
Les utilisateurs payant n'ont pas ce message dans leurs e-mails.
Essayez SPAMfighter gratuitement maintenant!

--------------------------------------------------------------------------------
J'utilise la version gratuite de SPAMfighter pour utilisateurs privés.
8 e-mails spam ont été bloqués jusqu'à maintenant.
Les utilisateurs payant n'ont pas ce message dans leurs e-mails.
Essayez SPAMfighter gratuitement maintenant!

--------------------------------------------------------------------------------
J'utilise la version gratuite de SPAMfighter pour utilisateurs privés.
8 e-mails spam ont été bloqués jusqu'à maintenant.
Les utilisateurs payant n'ont pas ce message dans leurs e-mails.
Essayez SPAMfighter gratuitement maintenant!