XL 2010 Case à cocher avec exception

Morgane60 · 16 Juin 2017

Bonjour à tous,

Je travaille sur un fichier depuis plusieurs semaines maintenant (oui je ne maitrise pas très bien, donc c'est long!) mais il me reste encore deux petits détails à régler ...

Sur ce fichier, j'ai inséré plusieurs checkbox , au nombre de 7 exactement, avec le nom des zones que nous utilisons AMO AME APC COI EUZ EUD puis une dernière checkbox Toutes Zones. Actuellement plusieurs choix sont possibles mais j'aimerais que si la checkbox Toutes Zones est coché, qu'aucune autre puisse l'être.
Si je choisis le bouton radio je ne peux cocher qu'une seule case à la fois ...

Ensuite mon deuxième détail est au niveau des lignes 53 - 58 . Si on clique OUI on peut cocher En € ou en En % , mais si on coche sur NON il faudrait que ce ne soit pas possible de cocher la suite.
Revenons au OUI, puis après au choix de la promotion soit € ou % , j'aimerais que ce € ou % s'affiche dans la case du dessous au moment où on indique la valeur.
Je ne sais pas si c'est très clair, je vous fourni en pièce jointe mon fichier Excel pour visualiser.

Merci pour vos aides précieuses

Bonne journée

vgendron · 16 Juin 2017

Hello

j'ai changé tes boutons "controle de formulaire" en bouton ActiveX
voir PJ :-D

Morgane60 · 16 Juin 2017

Bonjour !

Ohlala .. merci beaucoup ! mais comment avez vous fait ?

vgendron · 16 Juin 2017

mais comment avez vous fait ?

:-D
pas de magie. juste un peu de code
va voir le code qui est Dans la feuille qui contient ces OptionButton
j'ai remis de quel bouton il s'agissait à coté histoire de s'y retrouver..

Morgane60 · 16 Juin 2017

Non mais pour moi c'est de la magie, je suis trop nulle sur ce sujet !
Ok je vois ce que tu as fait ! on le traduit par si on clique sur toutes zones, les autres CheckBox sont fausses.
Haaaa et j'ai vu aussi pour les € et % ! c'est super !!!!

merci beaucoup

Morgane60 · 16 Juin 2017

Alors j'ai encore essayé de bidouiller mais je n'y arrive pas ..

J'aurais voulu que quand Toutes Zones est coché, qu'il ne soit plus possible de cocher les autres

j'ai essayé ca :
Private Sub CheckBox7_Click() 'Toutes Zones
If CheckBox7 Then
CheckBox1.Enabled = False 'AMO
CheckBox2.Enabled = False 'APC
CheckBox3.Enabled = False 'AME
CheckBox4.Enabled = False 'EUZ
CheckBox5.Enabled = False 'COI
CheckBox6.Enabled = False 'EUD

Mais quand je décoche ma CheckBox7 les autres CheckBox restent grisées alors que j'aimerais qu'elles redeviennent normales.

Comment puis-je faire ?

Merci d'avance

vgendron · 16 Juin 2017

il te manque la condition si CheckBox7=false pour remettre les autres dispo
sinon. tu fais juste

Private Sub CheckBox7_Click() 'Toutes Zones

CheckBox1.Enabled = not(CheckBox7) 'AMO
CheckBox2.Enabled = not(CheckBox7) 'APC
CheckBox3.Enabled = not(CheckBox7) 'AME
CheckBox4.Enabled = not(CheckBox7) 'EUZ
CheckBox5.Enabled = not(CheckBox7) 'COI
CheckBox6.Enabled = not(CheckBox7) 'EUD

Morgane60 · 16 Juin 2017

je viens de le faire mais les cases restent quand même grisées

Morgane60 · 16 Juin 2017

vgendron · 16 Juin 2017

Ok pigé

Remplace par ce code

VB:

Private Sub CheckBox7_Click() 'Toutes Zones
    If CheckBox7 Then
        CheckBox1 = False 'AMO
        CheckBox2 = False 'APC
        CheckBox3 = False 'AME
        CheckBox4 = False 'EUZ
        CheckBox5 = False 'COI
        CheckBox6 = False 'EUD
        CheckBox1.Enabled = False
        CheckBox2.Enabled = False
        CheckBox3.Enabled = False
        CheckBox4.Enabled = False
        CheckBox5.Enabled = False
        CheckBox6.Enabled = False
    Else
        CheckBox1.Enabled = True
        CheckBox2.Enabled = True
        CheckBox3.Enabled = True
        CheckBox4.Enabled = True
        CheckBox5.Enabled = True
        CheckBox6.Enabled = True
    End If
End Sub

Morgane60 · 23 Juin 2017

Désolée pour le retard pour les remerciements ,

tu es génial !
C'est exactement ce que je souhaitais ! Merci merci merci !
Mon fichier est maintenant parfait pour le présenter officiellement

XL 2010 Case à cocher avec exception

Morgane60

XLDnaute Nouveau

Pièces jointes

vgendron

XLDnaute Barbatruc

Pièces jointes

Morgane60

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

Morgane60

XLDnaute Nouveau

Morgane60

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

Morgane60

XLDnaute Nouveau

Morgane60

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

Morgane60

XLDnaute Nouveau

Discussions similaires