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
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
ThierryP
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
@+
Bonjour,
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
http://cjoint.com/?mxnd5EFUjJ
Merçi de votre aide A+
-- @+ thierryp
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
@+
Bonjour,
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
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
@+
Bonjour,
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
