XL 2019 alterner cochage oui ou non dans checkbox

job75

XLDnaute Barbatruc

• 18 Mars 2021

• #2

Bonjour pat66,

VB:

Sub CheckBox6_Click()
Sheets("BDD").Range("N2") = IIf(CheckBox6, "Oui", "Non")
CheckBox7 = Not CheckBox6
End Sub

A+

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 18 Mars 2021

• #3

Bonjour Job

merci pour ton aide

cela fonctionne bien, je coche la checkbox 6 cela décoche checkbox 7, mais si la checkbox 6 est cochée et que je clique sur la checkbox7 les 2 restent cochées, mais en plus cela n'écrit pas forcément dans BDD ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Mars 2021

• #4

Mettre une macro du même genre pour CheckBox7 vous devriez y arriver non ?

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 18 Mars 2021

• #5

oui bien sur, mais cela n'écrit pas dans la "N2"

Sub CheckBox6_Click()
Sheets("BDD").Range("N2") = IIf(CheckBox6, "Oui", "Non")
CheckBox7 = Not CheckBox6
End Sub

Sub CheckBox7_Click()
Sheets("BDD").Range("N2") = IIf(CheckBox7, "Oui", "Non")
CheckBox6 = Not CheckBox7
End Sub

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Mars 2021

• #6

Vous avez dit bien sûr alors écrivez correctement la 2ème ligne !

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 18 Mars 2021

• #7

encore un grand merci pour votre aide Job75

Sub CheckBox7_Click()
Sheets("BDD").Range("N2") = IIf(CheckBox7, "Non", "Oui")
CheckBox6 = Not CheckBox7
End Sub

bonne soirée

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 19 Mars 2021

• #8

Bonjour Job75
Pourriez vous me dire comment prodécer dans le cas où l'on a 3 checkbox, mon souhait si je coche une checkbox cela décoche les 2 autres, et pour être très précis, je souhaite que si
Checkbox8 est cochée E60 = Avant
Checkbox9 est cochée E60 = Arrière
Checkbox10 est cochée E60 = Avant/Arrière

merci beaucoup

 

Dernière édition: 19 Mars 2021

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 19 Mars 2021

• #9

Bonjour pat66, job75,

un essai :

VB:

Sub CheckBox8_Click()
  CheckBox9 = 0: CheckBox10 = 0: [E60] = "Avant"
End Sub

Sub CheckBox9_Click()
  CheckBox8 = 0: CheckBox10 = 0: [E60] = "Arrière"
End Sub

Sub CheckBox10_Click()
  CheckBox8 = 0: CheckBox9 = 0: [E60] = "Avant/Arrière"
End Sub

attention : si E60 est sur la feuille "BDD", mettre :

[BDD!E60] au lieu de [E60]

soan

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 19 Mars 2021

• #10

Bonjour Soan,

Merci cela fonctionne, mais j'ai juste un souci, est ce qu'on peut éviter de devoir cliquer 2 fois pour cocher une autre checkbox car en l'état si une checkbox est cochée, le premier clic la décoche et il faut un 2ième clic pour recocher une chckbox

L'idéal serait qu'avec un clic cela coche la checkbox choisit et décoche les autres ?

merci

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 19 Mars 2021

• #11

@pat66

j'viens d'lire ton nouveau post, mais j'comprends pas :

normalement, avec le code VBA de mon post #9, si tu coches une CheckBox, alors les 2 autres sont décochées automatiquement ! attention : vérifie bien attentivement les numéros des CheckBox ! peut-être que tu as fait un copier/coller d'une des 3 subs sans ajuster ensuite ce numéro ?

si avec ces infos tu arrives à résoudre ton problème : ok ; sinon, difficile de t'aider davantage sans un fichier exemple (si y'a des données confidentielles, remplace-les par des données fictives).​

soan

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 19 Mars 2021

• #12

Bonjour,
Je comprendrais jamais ce genre de demande !

Si tu lie ta CheckBox à une cellule tu auras Vrai/Faut ce qui veut bien dire Oui/Non ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Mars 2021

• #13

Bonjour pat66, soan, dyso,

Si les CheckBoxes sont dans une feuille de calcul placez ces macros dans le code de cette feuille :

VB:

Sub CheckBox8_Click()
Coche CheckBox8
End Sub

Sub CheckBox9_Click()
Coche CheckBox9
End Sub

Sub CheckBox10_Click()
Coche CheckBox10
End Sub

Sub Coche(CB As Object)
Static flag As Boolean
If flag Then Exit Sub 'bloque l'exécution
Dim a, b, i As Byte, j As Byte, k As Byte
a = Array("CheckBox8", "CheckBox9", "CheckBox10")
b = Array("Avant", "Arrière", "Avant/Arrière")
i = Application.Match(CB.Name, a, 0)
j = IIf(i = 3, 1, i + 1)
k = IIf(j = 3, 1, j + 1)
flag = True
Me.OLEObjects(Application.Index(a, j)).Object = Not CB
Me.OLEObjects(Application.Index(a, k)).Object = 0
flag = False
[E60] = Application.Index(b, IIf(CB, i, j))
End Sub

Le cochage se fait par permutation circulaire, on pourrait le faire autrement.

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Mars 2021

• #14

Avec une permutation aléatoire :

VB:

Sub CheckBox8_Click()
Coche CheckBox8
End Sub

Sub CheckBox9_Click()
Coche CheckBox9
End Sub

Sub CheckBox10_Click()
Coche CheckBox10
End Sub

Sub Coche(CB As Object)
Static flag As Boolean
If flag Then Exit Sub 'bloque l'exécution
Dim a, b, i As Byte, j As Byte, k As Byte, temp As Byte
a = Array("CheckBox8", "CheckBox9", "CheckBox10")
b = Array("Avant", "Arrière", "Avant/Arrière")
i = Application.Match(CB.Name, a, 0)
j = IIf(i = 3, 1, i + 1)
k = IIf(j = 3, 1, j + 1)
Randomize
If Rnd > 0.5 Then temp = j: j = k: k = temp 'permutation aléatoire
flag = True
Me.OLEObjects(Application.Index(a, j)).Object = Not CB
Me.OLEObjects(Application.Index(a, k)).Object = 0
flag = False
[E60] = Application.Index(b, IIf(CB, i, j))
End Sub

 

Vote positif 0 Vote négatif

Solution

S

soan

XLDnaute Barbatruc

Inactif

• 19 Mars 2021

• #15

Bonjour job75, le fil,

ils sont géniaux, tes 2 codes VBA ! surtout celui de la permutation circulaire :
il respecte tout à fait le code de la route et le sens giratoire !

soan

 

Vote positif 0 Vote négatif