Discussion :

[Labrickk]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[EricDgn]

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.

[Labrickk]

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" ?

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[patricktoulon]

EricDgn bonsoir

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

[Labrickk]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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


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

[HopPopPop]

Bonjour à tous,

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

[Labrickk]

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.

[Labrickk]

bonsoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[EricDgn]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[EricDgn]

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).



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

[patricktoulon]

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

[Labrickk]

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

[Pierre Fauconnier]

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" Sur un plan ergonomique, c'est un non-sens d'utiliser des checkbox en lieu et place d'optionbutton.

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?

[Jean-Philippe André]

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' ?


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...

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

voila
et c'est encore plus facile dans un UserForm en gérant par le test "if activecontrol.name=check.name"

[Pierre Fauconnier]

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

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é).



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

[patricktoulon]

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

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