Cette aprés midi j'ai demandé que l'on m'aide sur une macro dont voiçi mon
besoin
et en second la réponse apportée.
J'ai un problème je n'arrive pas à la faire fonctionner.
Je vous joint le fichier
MERCI A+
http://cjoint.com/?mxthr8OOkk
******************************************
Je souhaiterais que vous m'aidiez sur la macro suivante.
voilà j'ai une case à cocher qui doit activer désactiver 2 cases d'option
si la case à cocher pas valider les 2 cases d'option sont désactivés (en gris)
si la case à cocher est valider on peut opter soit case à option 1 voiture,
soit case à option 2 camion.
si case à cocher désactivé la valeur dans le cadre blanc = 0
si case à cocher activée et case option 1 activée la valeur dans le cadre
blanc = 2
si case à cocher activée et case option 2 activée la valeur dans le cadre
blanc = 5
************************************************
Bonjour JACK 43,
Avec ceci
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Voiture.Visible = True: Camion.Visible = True
Else
Voiture.Visible = False: Camion.Visible = False: [j18] = 0
End If
End Sub
Private Sub Voiture_Click()
If Voiture.Value = True Then [j18] = 2
End Sub
Private Sub Camion_Click()
If Camion.Value = True Then [j18] = 5
End Sub
A placer dans le module de la feuille
Mettre la propriété visible de camion et voiture à false par défaut
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LSteph
Bonsoir Jack, Normal il y a un hic : le bouton Voiture en chevauche un autre nommé optionbutton1 et le optionbutton2 correspond à camion dont un nom est défini ans la feuille. J'ai supprimé les noms dans l'exemple rectifié que je lie et utilisé la fenêtre propriété pour nommer l'un voitue l'autre camion et ai supprimé le 3ème . Ainsi cela peut fonctionner: http://cjoint.com/?mybA6WjiNG '*** Private Sub CheckBox1_Click() Voiture.Visible = CheckBox1 Camion.Visible = CheckBox1 If CheckBox1 Then [j18] = choix Else [j18] = 0 End If End Sub
Private Sub Voiture_Click() [j18] = choix End Sub Private Sub Camion_Click() [j18] = choix End Sub
Function choix() If Voiture = True Then choix = 2 If Camion = True Then choix = 5 End Function '***
'lSteph
"JACK 43" (sansspam)> a écrit dans le message de news:
Bonsoir,
Cette aprés midi j'ai demandé que l'on m'aide sur une macro dont voiçi mon besoin et en second la réponse apportée.
J'ai un problème je n'arrive pas à la faire fonctionner.
Je vous joint le fichier
MERCI A+
http://cjoint.com/?mxthr8OOkk
******************************************
Je souhaiterais que vous m'aidiez sur la macro suivante.
voilà j'ai une case à cocher qui doit activer désactiver 2 cases d'option
si la case à cocher pas valider les 2 cases d'option sont désactivés (en gris)
si la case à cocher est valider on peut opter soit case à option 1 voiture, soit case à option 2 camion.
si case à cocher désactivé la valeur dans le cadre blanc = 0 si case à cocher activée et case option 1 activée la valeur dans le cadre blanc = 2 si case à cocher activée et case option 2 activée la valeur dans le cadre blanc = 5
************************************************
Bonjour JACK 43, Avec ceci
Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Voiture.Visible = True: Camion.Visible = True Else Voiture.Visible = False: Camion.Visible = False: [j18] = 0 End If End Sub
Private Sub Voiture_Click() If Voiture.Value = True Then [j18] = 2 End Sub Private Sub Camion_Click() If Camion.Value = True Then [j18] = 5 End Sub
A placer dans le module de la feuille
Mettre la propriété visible de camion et voiture à false par défaut
Bonsoir Jack,
Normal il y a un hic : le bouton Voiture en chevauche un autre nommé
optionbutton1
et le optionbutton2 correspond à camion dont un nom est défini ans la
feuille.
J'ai supprimé les noms dans l'exemple rectifié que je lie et utilisé la
fenêtre propriété
pour nommer l'un voitue l'autre camion et ai supprimé le 3ème . Ainsi cela
peut fonctionner:
http://cjoint.com/?mybA6WjiNG
'***
Private Sub CheckBox1_Click()
Voiture.Visible = CheckBox1
Camion.Visible = CheckBox1
If CheckBox1 Then
[j18] = choix
Else
[j18] = 0
End If
End Sub
Private Sub Voiture_Click()
[j18] = choix
End Sub
Private Sub Camion_Click()
[j18] = choix
End Sub
Function choix()
If Voiture = True Then choix = 2
If Camion = True Then choix = 5
End Function
'***
'lSteph
"JACK 43" <jacques.deberle@wanadoo.fr.(sansspam)> a écrit dans le message de
news: 720FD4AC-2A13-4C34-944F-9BFC1369AB7A@microsoft.com...
Bonsoir,
Cette aprés midi j'ai demandé que l'on m'aide sur une macro dont voiçi mon
besoin
et en second la réponse apportée.
J'ai un problème je n'arrive pas à la faire fonctionner.
Je vous joint le fichier
MERCI A+
http://cjoint.com/?mxthr8OOkk
******************************************
Je souhaiterais que vous m'aidiez sur la macro suivante.
voilà j'ai une case à cocher qui doit activer désactiver 2 cases d'option
si la case à cocher pas valider les 2 cases d'option sont désactivés (en
gris)
si la case à cocher est valider on peut opter soit case à option 1
voiture,
soit case à option 2 camion.
si case à cocher désactivé la valeur dans le cadre blanc = 0
si case à cocher activée et case option 1 activée la valeur dans le cadre
blanc = 2
si case à cocher activée et case option 2 activée la valeur dans le cadre
blanc = 5
************************************************
Bonjour JACK 43,
Avec ceci
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Voiture.Visible = True: Camion.Visible = True
Else
Voiture.Visible = False: Camion.Visible = False: [j18] = 0
End If
End Sub
Private Sub Voiture_Click()
If Voiture.Value = True Then [j18] = 2
End Sub
Private Sub Camion_Click()
If Camion.Value = True Then [j18] = 5
End Sub
A placer dans le module de la feuille
Mettre la propriété visible de camion et voiture à false par défaut
Bonsoir Jack, Normal il y a un hic : le bouton Voiture en chevauche un autre nommé optionbutton1 et le optionbutton2 correspond à camion dont un nom est défini ans la feuille. J'ai supprimé les noms dans l'exemple rectifié que je lie et utilisé la fenêtre propriété pour nommer l'un voitue l'autre camion et ai supprimé le 3ème . Ainsi cela peut fonctionner: http://cjoint.com/?mybA6WjiNG '*** Private Sub CheckBox1_Click() Voiture.Visible = CheckBox1 Camion.Visible = CheckBox1 If CheckBox1 Then [j18] = choix Else [j18] = 0 End If End Sub
Private Sub Voiture_Click() [j18] = choix End Sub Private Sub Camion_Click() [j18] = choix End Sub
Function choix() If Voiture = True Then choix = 2 If Camion = True Then choix = 5 End Function '***
'lSteph
"JACK 43" (sansspam)> a écrit dans le message de news:
Bonsoir,
Cette aprés midi j'ai demandé que l'on m'aide sur une macro dont voiçi mon besoin et en second la réponse apportée.
J'ai un problème je n'arrive pas à la faire fonctionner.
Je vous joint le fichier
MERCI A+
http://cjoint.com/?mxthr8OOkk
******************************************
Je souhaiterais que vous m'aidiez sur la macro suivante.
voilà j'ai une case à cocher qui doit activer désactiver 2 cases d'option
si la case à cocher pas valider les 2 cases d'option sont désactivés (en gris)
si la case à cocher est valider on peut opter soit case à option 1 voiture, soit case à option 2 camion.
si case à cocher désactivé la valeur dans le cadre blanc = 0 si case à cocher activée et case option 1 activée la valeur dans le cadre blanc = 2 si case à cocher activée et case option 2 activée la valeur dans le cadre blanc = 5
************************************************
Bonjour JACK 43, Avec ceci
Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Voiture.Visible = True: Camion.Visible = True Else Voiture.Visible = False: Camion.Visible = False: [j18] = 0 End If End Sub
Private Sub Voiture_Click() If Voiture.Value = True Then [j18] = 2 End Sub Private Sub Camion_Click() If Camion.Value = True Then [j18] = 5 End Sub
A placer dans le module de la feuille
Mettre la propriété visible de camion et voiture à false par défaut
