Problème Macro, checkbox

Bonjour,

Je rencontre actuellement un problème sur l'élaboration d'un nouveau classeur comportant des macros.
Je voudrais faire un système de check-box qui identifie une valeur de donnée dans la première colonne est qui après affiche ou non la valeur suivant que la case oui est coché ou la case non. J'ai codé de cette façon ci dessous, le problème est que les lignes du tableaux veulent parfois se cacher mais ne jamais s'afficher, je débute en VBA.

Merci à tous d'avance pour vos conseils.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Private Sub CheckBox5_Click() 'CheckBox Oui Surmoulage 'Label1 = Surmoulage Application.DisplayAlerts = False If CheckBox5.Value = True Then CheckBox6.Value = False End If 'recherche et suppression de la ligne valeur "" i = 1 While Sheets("Liste process Impactés").Cells(i, 1) = "Surmoulage" Sheets("Liste process Impactés").Rows(i & ":" & i).Hidden = False i = i + 1     Wend End Sub   Private Sub CheckBox6_Click() 'non Surmoulage Application.DisplayAlerts = False If CheckBox6.Value = True Then CheckBox5.Value = False   End If i = 1 While Sheets("Liste process Impactés").Cells(i, 1) = "Surmoulage" Sheets("Liste process Impactés").Rows(i & ":" & i).Hidden = True i = i + 1   Wend   End Sub

---

Bonjour

Dans ces 2 macros, la boucle While s'arrête dès qu'il n'y a plus le mot "Surmoulage" dans une cellule de la colonne 1. Toutes le lignes ne sont donc pas analysées.

Cordialement.

Que faut t'il donc faire pour que la fonction analyse l'onglet en entier même lorsque plusieurs cellules de la colonne comporte "Surmoulage" ?

Bonjour,

Je suppose que ce que vous voulez faire est de parcourir toute la colonne A jusqu'à tomber sur une cellule vide.
Dans ce cas, c'est ceci qu'il faut faire:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

Option Explicit   Private Sub CheckBox5_Click() 'CheckBox Oui Surmoulage 'Label1 = Surmoulage Application.DisplayAlerts = False If CheckBox5.Value = True Then CheckBox6.Value = False End If 'recherche et masque ligne marquée surmoulage i = 1 With Sheets("Liste process Impactés") While .Cells(i, 1) <> "" '--- tant que non vide If .Cells(i, 1) = "Surmoulage" Then .Rows(i).Hidden = False End If i = i + 1 Wend End With End Sub   Private Sub CheckBox6_Click() 'non Surmoulage Application.DisplayAlerts = False If CheckBox6.Value = True Then CheckBox5.Value = False End If 'recherche et affiche ligne marquée surmoulage i = 1 With Sheets("Liste process Impactés") While .Cells(i, 1) <> "" '--- tant que non vide If .Cells(i, 1) = "Surmoulage" Then .Rows(i).Hidden = True End If i = i + 1 Wend End With End Sub

---

Cordialement.

EricDgn bonsoir

pour tes checkboxs tu n'a pas besoins de les modifier par vba il suffit de les grouper comme les optionbuttons

Citation:

---

Envoyé par EricDgn

Bonjour,

Je suppose que ce que vous voulez faire est de parcourir toute la colonne A jusqu'à tomber sur une cellule vide.
Dans ce cas, c'est ceci qu'il faut faire:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

Option Explicit   Private Sub CheckBox5_Click() 'CheckBox Oui Surmoulage 'Label1 = Surmoulage Application.DisplayAlerts = False If CheckBox5.Value = True Then CheckBox6.Value = False End If 'recherche et masque ligne marquée surmoulage i = 1 With Sheets("Liste process Impactés") While .Cells(i, 1) <> "" '--- tant que non vide If .Cells(i, 1) = "Surmoulage" Then .Rows(i).Hidden = False End If i = i + 1 Wend End With End Sub   Private Sub CheckBox6_Click() 'non Surmoulage Application.DisplayAlerts = False If CheckBox6.Value = True Then CheckBox5.Value = False End If 'recherche et affiche ligne marquée surmoulage i = 1 With Sheets("Liste process Impactés") While .Cells(i, 1) <> "" '--- tant que non vide If .Cells(i, 1) = "Surmoulage" Then .Rows(i).Hidden = True End If i = i + 1 Wend End With End Sub

---

Cordialement.

---

Bonsoir, j'ai remplacé votre code dans le miens et lorsque j'active une des deux checkbox la oui ou la non alors rien ne passe.

bonsoir

déjà il faut savoir que quand tu change la valeur d'un checkbox par vba tu déclenche son évènement

j'ai pris pour habitude (TOUJOURS) de mettre le code de l'evenement du checkbox dans une condition if activecontrol.name=ton checkbox then ...

comme ca il n'y a pas d'ambiguïté

parti de la !!!
comme tu change la valeur de l'un par le click de l'autre et vise et versa
comme le visible doit etre egal au checkbox5.value
je te propose ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Sub CheckBox5_Click() MsgBox ActiveControl.Name mescheckboxs_Click CheckBox5 End Sub ' ' Private Sub CheckBox6_Click() MsgBox ActiveControl.Name mescheckboxs_Click CheckBox6 End Sub ' ' Private Sub mescheckboxs_Click(check) If check.Name = "CheckBox5" Then x = 5: CheckBox6.Value = Not CheckBox5.Value Else CheckBox5 = Not CheckBox6.Value: x = 6 With Sheets("Liste process Impactés") .Cells.EntireRow.Hidden = False With Sheets("Liste process Impactés").Range("A1", Cells(Rows.Count, "A").End(xlUp)) For Each cel In .Cells If ActiveControl.Name = check.Name Then 'tres important ca !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! If cel.Value = "Surmoulage" Then cel.EntireRow.Hidden = Not CheckBox5.Value End If Next End With End With End Sub

---

j'ai mis des msgbox dans les deux évènements que tu pourra supprimer
c'est juste pour te montrer que quand tu clique sur l'un tu clique sur l'autre tout de suite après
voila la raison pour la quelle ca ne fonctionnait pas

j'avais un doute aussi avec ton xldown j'ai utilisé xlup pour déterminer la plage utilisé
démonstration
Pièce jointe 482639

quand tu fait une bascule avec deux controls identiques(checkbox,optionbutton) n'oublie jamais la condition sur activecontrol
sinon bien évidement tu fait et redéfait aussi tôt
;)

Bonjour à tous,

Est-ce obligation d'utiliser des controls CheckBox ? Car, à mon sens, il serait plus judicieux d'utiliser des controls OptionButton.

Bonjour,

J'ai essayé d'instaurer les modifications pour mettre le code de l'évènement du checkbox dans une condition if activecontrol.name=ton checkbox then ... Mais la macro ne fonctionne pas je crois que je m'emmêle les pinceaux de plus en plus. Est il possible que ce code ne soit pas applicable à mon document ?
Je propose de le joindre pour plus de compréhension de mon problème.

La seule exigence est qu'il ne doit pas avoir d'userform. Toutes les checkbox doivent être accessible sur l'onglet directement. Il faut que toutes les cases commencent.

Excusez-moi de mon ignorance, mais je travaille avec VBA que depuis peu et celui-ci m’intéresse beaucoup.

Citation:

---

Envoyé par patricktoulon

bonsoir

Code:

---

1 2 3 4 5

If ActiveControl.Name = check.Name Then 'tres important ca !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! If cel.Value = "Surmoulage" Then cel.EntireRow.Hidden = Not CheckBox5.Value End If

---

quand tu fait une bascule avec deux controls identiques(checkbox,optionbutton) n'oublie jamais la condition sur activecontrol
sinon bien évidement tu fait et redéfait aussi tôt
;)

---

Je ne comprend pas bien comment utiliser la fonction ActiveControl.Name=check.Name.
Il faut que pour chaque checkbox je duplique la macro ? Quand je lance la ligne de code Excel me dit que je n'ai pas d'objet attitré avec la ligne If ActiveControl.Name = check.Name Then surlignée.

Je ne sais pas quoi faire cordialement.

re
bonjour
il m'est difficile de faire plus simple que le modèle que je t'ai donné

si tu en comprends pas le fonctionnement peut être devrais tu commencer par plus facile

le principe est on ne peut plus simple
tu a 2 checkboxs

1. checkbox1
2. checkbox2

tu veux que le checkbox1 fasse quelque chose et le checkbox2 remette tout a l'inittial

donc on va faire une sub globale

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

sub mescheckbox_click(check as msform.checkbox) if activecontrol.name=checkbox1 then 'blablabla 'blablabla checkbox2.value=not checkbox1.value'le checkbox2prends la valeur contraire a celle du checkbox1 else 'blablabla 'blablabla   checkbox1.value=not checkbox2.value'le checkbox1prends la valeur contraire a celle du checkbox2   end if   end sub

---

et dans chaque click des checkbox1 et 2 tu code mescheckbox_click
bref tu a un exemple plus haut ;)

Bonjour,

Avec Excel 2010, je n'ai pas réussi à obtenir ActiveControl.Name sur un contrôle ActiveX inséré dans une feuille.
Cependant en partant du principe présenté par Patrick, il est possible de faire ainsi pour ce qui concerne les checkboxes SalleBlancheOui et SalleBlancheNon:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

Private Sub SalleBlancheOui_Click() Salle_Blanche True End Sub   Private Sub SalleBlancheNon_Click() Salle_Blanche False End Sub   Private Sub Salle_Blanche(Oui As Boolean) If Oui Then Debug.Print "SalleBlancheOui_Click", "SalleBlancheOui = "; SalleBlancheOui.Value SalleBlancheNon.Value = Not SalleBlancheOui.Value Else Debug.Print "SalleBlancheNon_Click", "SalleBlancheNon = "; SalleBlancheNon.Value SalleBlancheOui.Value = Not SalleBlancheNon.Value End If SalleBlanche SalleBlancheOui.Value End Sub   Private Sub SalleBlanche(Oui As Boolean) '--- Oui = True ou False suivant le cas ! Debug.Print "SalleBlanche: ", Oui Drapage_ManNon.Visible = Oui Drapage_ManOui.Visible = Oui Drapage_Manuel.Visible = Oui CheckBox2.Visible = Oui CheckBox4.Visible = Oui Drapage_Auto.Visible = Oui CheckBox5.Visible = Oui CheckBox6.Visible = Oui Label1.Visible = Oui Label2.Visible = Oui CheckBox7.Visible = Oui CheckBox8.Visible = Oui CheckBox13.Visible = Oui CheckBox14.Visible = Oui Label5.Visible = Oui Label21.Visible = Oui CheckBox45.Visible = Oui CheckBox46.Visible = Oui End Sub

---

Les Debug.Print permettent de voir que l'on passe 2 fois par la routine Salle_Blanche vu qu'il y a 2 checkboxes changées.

Bonne continuation.

P.S. Il me semble qu'il y a un sac de noeuds au niveau des noms des contrôles.
Ci-dessous, il est indiqué comme nom Label21 dans la zone de noms (en haut à gauche) mais quand on va sur propriétés c'est Label36. Il en est ainsi pour toute une série de labels (dans ma feuille en tous cas).

Pièce jointe 489763

Je ne sais pas d'où cela provient.
Bonne continuation.

re
d'accords les checkbox sont dans une feuille et non dans un UserForm alors non activecontrol ne fonctionnera pas
et ben on est mal

Merci de vos conseils, j'ai enfin fini de réaliser mon panel de checkbox :D

Salut.

Comme le dit Hop hop hop, il serait bien plus judicieux d'utiliser des optionbutton que de monter du code pour réaliser la même chose avec des checkbox qui "basculent" :koi: Sur un plan ergonomique, c'est un non-sens d'utiliser des checkbox en lieu et place d'optionbutton.

Citation:

---

Envoyé par patricktoulon

EricDgn bonsoir

pour tes checkboxs tu n'a pas besoins de les modifier par vba il suffit de les grouper comme les optionbuttons

---

Sauf astuce que je ne connais pas, je ne vois pas en quoi grouper les chekbox les amène à se comporter comme des optionbutton groupés. La propriété Groupe est inopérante pour les checkbox. Les mettre dans un frame ne change rien à l'affaire. Que veux-tu dire par grouper? As-tu testé ce que tu proposes?

Citation:

---

Envoyé par patricktoulon

EricDgn bonsoir

pour tes checkboxs tu n'a pas besoins de les modifier par vba il suffit de les grouper comme les optionbuttons

---

Bonjour,

tu pourrais être plus explicite, car il me semble que tu dis n'importe quoi, comment peux-tu 'les grouper comme les optionbuttons' ? :roll:


Le regroupement ne fonctionne que pour les options buttons.
https://docs.microsoft.com/fr-fr/off...pname-property

A trop vouloir en faire, on fait mal...

re
tu met tes checkbox(le nombre et le nom que tu veux )

tu fait tes groupes en metant un nom(que tu veux dans la propriété "GroupName" dans vbe

tu peux faire autant de groupe que tu veux par 2,3 10 20,100

exemple
ici j'ai 5 checkbox (1,2,3,4,5) les 4 premiers onT un groupe nommé "toto" le 5eme n'en fait pas partie OK


le tout dans le module de la feuille

évènement click

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub CheckBox1_Click() mescheck_click CheckBox1 End Sub Private Sub CheckBox2_Click() mescheck_click CheckBox2 End Sub Private Sub CheckBox3_Click() mescheck_click CheckBox3 End Sub Private Sub CheckBox4_Click() mescheck_click CheckBox4 End Sub Private Sub CheckBox5_Click() mescheck_click CheckBox5 End Sub

---

LA MEME SUB POUR TOUS LES CHECKBOXS DE TOUS LES GROUPES

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub mescheck_click(check) If check.Value = True Then g = check.GroupName For Each ctrl In Me.OLEObjects If TypeName(ctrl.Object) = "CheckBox" Then If ctrl.Object.GroupName = g And ctrl.Object.Value = True Then ctrl.Object.Value = False End If Next check.Value = True End If End Sub

---

tu n'a ni besoins de connaitre leur nom ou même leur état et même pas le nombre de checkbox dans le groupe

tu peux ajouter /supprimer un/des checkbox dans n'importe quel groupe tu change pas d'un yotat le code

démonstration
Pièce jointe 490001
voila
et c'est encore plus facile dans un UserForm en gérant par le test "if activecontrol.name=check.name"

Et dire que cela se réalise nativement en utilisant les bons contrôles sans aucune ligne de code, à savoir des Optionbutton groupés :roll:

Dans l'exemple ci-dessous, les Options de la première colonne sont dans le groupe G1, ceux de la seconde colonne dans le groupe G2. Dès lors, ceux du G1 s'excluent mutuellement, ceux du G2 également. On ajoute aussi autant de groupes qu'on veut, et on a pondu 0 lignes de codes pour une ergonomie attendue par l'utilisateur, à savoir des checkbox qui peuvent être remplis sans s'exclure (ce n'est pas leur fonctionnalité), et des optionbutton qui s'excluent (c'est leur fonctionnalité).

Pièce jointe 490045

Je ne comprendrai jamais pourquoi des gens perdent du temps à réinventer (souvent en plus mal et en plus lourd) des trucs qui existent nativement :roll:

Bonjour pierre
il est certain que les optionbuttons fonctionne déjà comme cela
c'était juste pour répondre a jean Philippe André

Citation:

---

comment peux-tu 'les grouper comme les optionbuttons' ?

---

Salut Patrick,

Citation:

---

Envoyé par patricktoulon

Bonjour pierre
il est certain que les optionbuttons fonctionne déjà comme cela
c'était juste pour répondre a jean Philippe André

---

Tu dis ceci:

Citation:

---

Envoyé par patricktoulon

[...]il suffit de les grouper comme les optionbuttons

---

Ta réponse est erronée puisque ça ne fonctionne pas comme les optionbuttons, justement. Lorsque tu dis cela, tu laisse supposer qu'il suffit d'utiliser la propriété GroupName "comme pour des optionbuttons" alors que ce n'est pas le cas. Et si tu donnes l'exemple avec du code en disant que ça marche comme des optionbuttons, tu masques justement le fait qu'avec les optionbuttons, il n'y a pas besoin de code!

Toi, dans ton code, tu utilises le GroupName de façon déviée, un peu comme un tag (présent pour les contrôles de userform mais pas pour les activex de feuille), mais nativement, la propriété ne sert pas à cela. Tu pourrais d'ailleurs avoir le même fonctionnement en préfixant les noms de tes contrôles sans t'emmêler les pinceaux avec des propriétés qui sont improprement utilisées dans le code que tu donnes (code qui, de plus, est inutile si on utilise les contrôles corrects).


Ca ne me semble pas trop difficile à comprendre... :roll:

re
je suis d'accords avec toi quand tu dis que tu peux faire sans code avec des optionbutton (dans cet exercice!!! )

mais je ne suis pas d'accord quand tu dis que je dévie l'utilisation de "GroupName" je dirais même le contraire

quoi de mieux que d'avoir la possibilité de grouper des controls identiques qui sont sensé se modifier l'un l'autre

jouer avec des préfixe ou suffixe ou tag quand tu a 3 controls ca peut être suffisant mais si tu a x groupe avec nombre de controls différent et ben amuse toi bien avec tes suffixe, préfixe,tag

et je pourrais te donner un exemple concret avec des checkboxs que tu pourrais pas reproduire avec des optionbutton

ps:il y aurai aussi (dans le cas ou le principe natif des optionbutton soit incompatible avec le projet) la possibilité d'une simple variable object de type checkbox en global module


essaie avec des optionbutton(sans les dégrouper bien sur car ca remettrais en question ton raisonnement) ceci

Citation:

---

*taille1 *objet1
*taille2 *objet2
*taille3 *objet3
*taille4 *objet4
etc.... etc...
et les dernier
*toutes les tailles * tout les objets

---

le dernier doit cocher tout les autres dans leur groupe respectif

Citation:

---

Envoyé par patricktoulon

[...]
essaie avec des optionbutton(sans les dégrouper bien sur car ca remettrais en question ton raisonnement) ceci

le dernier doit cocher tout les autres dans leur groupe respectif

---

Je n'ai rien compris de ce que tu voudrais me faire essayer, mais j'ai envie de dire: essaie toi-même et montre-nous comment tu t'y prends. La phrase que j'ai mise en gras dans la citation m'interpelle car justement, ce n'est pas possible de réaliser cela avec des optionbutton puisque si un est coché dans un groupe, il décoche tous les autres du groupe. Le dernier ne saurait donc les cocher tous. Je ne comprends donc rien à ton énoncé.

Sur aucun des nombreux projets que j'ai eu à réaliser, je n'ai dû utiliser GroupName pour autre chose que des optionbutton. Je ne vois d'ailleurs pas en quoi GroupName serait mieux que Tag et je ne vois pas que ce que tu fais avec GroupName, on ne pourrait pas le faire avec Tag. On peut d'ailleurs, avec l'une comme avec l'autre puisque ce sont des string, passer plusieurs valeurs. A part pour grouper des optionbutton (utilité première de GroupName), tout ce que tu fais avec GroupName, on peut le faire avec Tag. Je répète également que normalement, l'ergonomie spécifique des checkbox et des optionbutton fait que cocher un checkbox ne devrait pas en décocher d'autres car cela, c'est le rôle des optionbutton. C'est pour moi une mauvais pratique que d'utiliser les mauvais contrôles. Mes bonnes pratiques me font utiliser les bons contrôles et les bonnes propriétés, et je préfère alors utiliser Tag pour associer certains contrôles. Les deux propriétés sont des propriétés String. L'avantage de Tag est qu'elle est disponible pour d'autres contrôles que les checkbox ou optionbutton. Après, chacun code comme il l'entend. J'ai mes bonnes pratiques et je n'adopterai pas les tiennes.

Citation:

---

Envoyé par patricktoulon

[...]

et je pourrais te donner un exemple concret avec des checkboxs que tu pourrais pas reproduire avec des optionbutton[...]

---

Forcément, ce ne sont pas les mêmes contrôles et la finalité de leur utilisation n'est pas la même. Remplace Checkboxs par TextBox et optionbutton par ComboBox dans ta phrase et elle n'aura pas moins de sens. C'est idiot de vouloir comparer des types de contrôles entre eux. Les checkbox ont une utilité et les optionbutton une autre. Ce n'est pas juste que certains sont carrés et d'autres ronds. Purée!

re

Citation:

---

Je n'ai rien compris de ce que tu voudrais me faire essayer, mais j'ai envie de dire: essaie toi-même et montre-nous comment tu t'y prends. La phrase que j'ai mise en gras dans la citation m'interpelle car justement, ce n'est pas possible de réaliser cela avec des optionbutton puisque si un est coché dans un groupe, il décoche tous les autres du groupe. Le dernier ne saurait donc les cocher tous. Je ne comprends donc rien à ton énoncé

---

d'accords pierre j'explique

j'ai un UserForm avec x colonnes de checkbox

dans chaque colonne de checkbox le dernier force les autres a se mettre a sa valeur

les autres peuvent avoir le même comportement que des optionbutton OU!!!!!!un mix des deux principe des deux type de controls
il suffit pour cela de débloquer ou bloquer une!!! ligne

voila mon UserForm
Pièce jointe 490150
voila le code a minima normalement dans mon app ayant beaucoup plus de colonnes et de nombre de check par colonne il sont classés dans un module classe

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

Option Explicit Private Sub CheckBox1_Click() mescheck_click CheckBox1 End Sub Private Sub CheckBox2_Click() mescheck_click CheckBox2 End Sub Private Sub CheckBox3_Click() mescheck_click CheckBox3 End Sub Private Sub CheckBox4_Click() mescheck_click CheckBox4 End Sub Private Sub toutetaille_Click() mescheck_click toutetaille, True End Sub '-------------------------------------------------- '2d colonne de checkbox Private Sub CheckBox5_Click() mescheck_click CheckBox5 End Sub Private Sub CheckBox6_Click() mescheck_click CheckBox6 End Sub Private Sub CheckBox7_Click() mescheck_click CheckBox7 End Sub Private Sub CheckBox8_Click() mescheck_click CheckBox8 End Sub   Private Sub toutobjet_Click() mescheck_click toutobjet, True End Sub   Private Sub mescheck_click(check, Optional same As Boolean = False) Dim Gr As String, ctrl As Object Gr = check.GroupName If check.Name Like "tout*" Then same = check.Value If Me.ActiveControl.Name = check.Name Then For Each ctrl In Me.Controls If ctrl.GroupName = Gr And ctrl.Name <> check.Name Then ctrl.Value = same Next If Not check.Name Like "tout*" Then check.Value = True End If End Sub

---

la ligne a bloquer ou débloquer est celle ci

Code:

---

If Not check.Name Like "tout*" Then check.Value = True

---

et selon si bloqué/debloqué les checkboxs sauf le dernier de chaque colonnes auront un comportement similaire au optionbutton ou checkbox

démonstration avec ligne débloqué les checkbox on a un comportement de optionbutton (c'est un autre checkbox qui éteint le précèdent cliqué )
Pièce jointe 490154

démonstration avec ligne bloquée les checkbox on un mix du comportement des deux type la différence avec la première c'est qu'un check peut être true ou false en cliquant sur le même
mais éteint les autres
Pièce jointe 490158
une même macro pour tous y compris les derniers de chaque colonnes qui sont les maitres de colonnes

si tu arrive a faire ca avec des optionbutton je change tout de suite promis

Citation:

---

Envoyé par patricktoulon

re
[...]

---

Depuis le début, je dis que les checkbox ne peuvent pas s'exclure (ce n'est pas leur rôle) et que les optionbutton doivent s'exclure (c'est leur rôle). Et toi, tu viens avec un cas d'école où on ne peut choisir que Un checkbox ou tous les checkbox, et tu me demandes de faire la même chose avec des optionbutton alors que je t'ai dit que ce n'était pas possible. A quoi joue-t-on, ici?

Ton exemple n'a aucun sens, puisqu'il essaie de mixer les rôles de deux contrôles différents dans un seul. Perso, voici comment je modéliserais ton exemple (si tant est que ce soit pertinent de ne pouvoir choisir qu'une taille ou toutes, dans le cas illustré :roll:), uniquement avec des optionbutton. Ca ne demande aucune ligne de code pour la gestion des optionbutton puisque, par groupe, l'un exclut tous les autres. Dès lors, soit tu choisis une taille, soit tu les choisis toutes. Idem pour les couleurs. Et ainsi, tu utilises les contrôles pour ce pour quoi ils sont faits, et tu n'as pas besoin de coder les exclusions mutuelles.

Pièce jointe 490168


Maintenant, si tu as envie d'utiliser ton ergonomie, c'est ton droit, mais je la trouve déroutante car je ne m'attends pas à ce qu'un checkbox coché décoche les autres. En voyant ton userform, je m'attends à pouvoir cocher plusieurs tailles, ou aucune, ou toutes, et pas une à l'exclusion des autres ou toutes. C'est l'ergonomie habituelle des contrôles qui veut cela. D'une façon générale, je m'attends à ce qu'un développement utilise l'ergonomie communément admise et utiliser des checkbox en lieu et place des optionbutton, qui plus est en mixant les rôles, c'est à mon avis une très mauvaise idée et une très mauvais ergonomie qui va dérouter tes utilisateurs (heureusement, j'ai cru comprendre que tu es le seul utilisateur de tes oeuvres). Je rappelle que choisir des checkbox (carrés) ou des optionbutton (ronds) ne relève par d'un choix esthétique mais d'un choix ergonomique.

Bonjour,

Voici une copie écran d'un logiciel (SAP) :
Pièce jointe 490174

On ne peut choisir qu'un bouton radio à la fois.
On peut choisir une ou plusieurs cases à cocher.
Il n'y a pas de case à cocher particulière dont le but serait de tout cocher.
Si je veux faire l'équivalent de tout sélectionner, je choisi la deuxième option "Traitement incomplet" (qui ne touche pas à mes checkbox).

C'est le comportement adopté par la plupart des logiciels.
C'est le comportement attendu par la plupart des utilisateurs.

re
Bonjour Arkham

oui si tu veux
il faut pas aller bien loin pour te trouver un exemple on a bien un check qui sélectionne tout

Pièce jointe 490177

Citation:

---

Envoyé par Arkham46

[...]

On ne peut choisir qu'un bouton radio à la fois.
On peut choisir une ou plusieurs cases à cocher.[...]

C'est le comportement adopté par la plupart des logiciels.
C'est le comportement attendu par la plupart des utilisateurs.

---

Merci Arkham, ça fait plaisir de lire un message un peu cohérent.

Citation:

---

Envoyé par patricktoulon

[...]
il faut pas aller bien loin pour te trouver un exemple on a bien un check qui sélectionne tout

---

Avoir un checkbox qui les sélectionne tous, c'est parfaitement cohérent. Perso, je n'ai jamais dit le contraire. Ce qui est incohérent, c'est d'avoir des checkbox qui s'excluent. Et c'est bien de ce dernier point, et uniquement de celui-là, dont on parle depuis le début et qui est la pierre d'achoppement.

Mais je suis parfaitement d'accord d'avoir un checkbox qui sélectionne tous les autres. Et il n'y a pas besoin de manipuler la propriété GroupName (dont ce n'est pas la finalité) pour cocher toutes les tailles si on coche la case "toutes les tailles". Et si je n'aime pas manipuler cette propriété pour ça, c'est parce que ce n'est pas son rôle et que c'est donc contre-intuitif pour un programmeur qui devrait passer après moi sur mon travail (ou moi dans six mois). C'est cela aussi, le respect d'une ergonomie et des bonnes pratiques, surtout si on les systématise.

Pièce jointe 490178

Citation:

---

Envoyé par patricktoulon

oui si tu veux
il faut pas aller bien loin pour te trouver un exemple on a bien un check qui sélectionne tout

---

On a quand même une sélection multiple possible dans les filtres, ce qui justifie les cases à cocher (et la case "tous" est bien gérée, avec un tripe état).
Dans ton exemple précédent on ne pourrait choisir que un seul, ou tous ?
C'est là que c'est bizarre, et pour ce besoin on ajouterait plutôt une option "Tous" en bouton radio.
Comme ça c'est clair pour l'utilisateur.