Discussion :

[mikeduff]

Bonjour à tous,

Je sais, ce sujet a déjà été traité (sous le même titre d'ailleurs je viens de lire le topic).

Alors pourquoi revenir dessus ?
Parce que la solution proposée, qui semble très marcher chez les autres ne fonctionne pas chez moi !

Mes controles s'appellent CheckBox1,CheckBox2,... ou
ToggleButton1,ToggleButton2,...

Avec un code aussi simple que ceci :

Code :

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

1
2
3
For I = 1 To 2
    Controls("CheckBox" & I).Visible = False
Next

j'obtiens systématiquement l'erreur :

Erreur de compilation - Sub ou Fonction non définie

A l'origine, ce que je voulais était:

Code :

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

1
2
3
For I = 1 To 2
    Controls("ToggleButton" & I)= False
Next

Même erreur, d'ailleurs.

Alors, pourquoi cette erreur, alors que ce code si simple semble convenir à tout le monde ?

Si quelqu'un a une idée, merci d'avance !!!!

Mike

[mercatog]

par hasard, tu n'as pas une référence manquante?

[mikeduff]

Bonjour Mercatog,

quelle rapidité !

Mais je ne suis pas sûr de bien comprendre la question:
si tu veux savoir si les objets ToggleButton1 et ToggleButton2, ainsi que Checkbox1 et Checkbox2 existent, c'est bien le cas. Vérifié.

Si tu veux dire autre chose, je n'ai pas compris.

Merci de ton aide

Mike

[mercatog]

tes controls sont bien sur un userform?

ma précédente question portait sur les références de ton vba

[ouskel'n'or]

tes controls sont bien sur un userform?

me paraît être la bonne question

[laetitia]

bonjour, question dans userform tes controls sont pas renommées par hasard ??

si c'est le cas il faut utiliser TypeOf ou TypeName

un exemple basique a adapter

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
Dim i As Byte, j As Control
For Each j In Controls
If TypeName(j) = "CheckBox" Then
i = i + 1
If i < 3 Then j.Visible = False
End If: Next
End Sub

si ils sont sur une feuille & non renommées tu peus tenter cela

Code :

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

1
2
3
4
5
6
Sub es()
Dim i As Byte
For i = 1 To 2
ActiveSheet.Shapes("CheckBox" & i).Visible = False
Next
End Sub

sur feuille en utilisant OLEObjects

Code :

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

1
2
3
4
5
6
7
8
Sub essai()
Dim obj As OLEObject
  For Each obj In ActiveSheet.OLEObjects
  If TypeOf obj.Object Is MSForms.CheckBox Then
     'TON CODE
       End If
 Next obj
End Sub

[mikeduff]

Re-bonjour,

Merci à tous pour vos réponses !
Voyons ça en détail:

Mercatog et Ouskelnor:
non, mes controles ne sont pas dans un userform(et ne sont pas renommés);
j'avoue que je ne vois pas très bien quelle différence ça fait; un controle n'est-il pas le même qu'il se trouve sur la feuille ou dans un userform ? J'aimerais comprendre ce que ça implique.

Laetitia:
Merci pour les propositions de code, mais :

pour ce qui est de la 1ère, l'instruction:

Code :

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

For Each j In Controls

déclenche:

Erreur d'exécution: Objet requis

Pour ce qui est de la 2e, qui est très proche d'un des très nombreux essais que j'avais tentés avant de crier au secours:

Code :

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

ActiveSheet.Shapes.Controls("CheckBox" & i).Visible = False

déclenche:

Erreur d'exécution: Propriété ou méthode non gérée par cet objet

Quant à la 3e proposition, la plus lourde quand même, puisqu'elle passe en revue TOUS les contrôles, elle ne déclenche pas d'erreur et fonctionne), si, dans la partie que tu as laissée en blanc

'TON CODE

je mets

CheckBox1.Visible = True

Mais comment faire avec un nom de variable ?

J'en suis donc pratiquement toujours au même point

Tout compte fait, je serais peut-être bien inspiré d'utiliser un userform, mais du diable si je comprends pourquoi (voir plus haut)

Encore merci à tous, et si vous avez quelqu'info, je suis toujours preneur

Mike

[ouskel'n'or]

Dans une feuille de calculs, les objets sont de shapes. Peuvent également être des graphes, et d'autres choses encore mais pas des "controls"
Donc, si tu nommes ton shapes, tu devrais pouvoir t'en sortir

Code :

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

1
2
3
For i = 1 to ActiveSheet.Shapes.Count
     ActiveSheet.Shapes(i).Visible = False
Next

Pas testé. Tu peux faire ça pour nous ?
Tu peux aussi tester

Code :

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

ActiveSheet.Shapes("CheckBox" & i).Visible = False

A+

[laetitia]

re,le premier exemple il marche pas c'est normal c'est pour un user!!!!
le 2ieme exemple je viens de tester ca marche???
2 CheckBox sur une feuille non renommées pris dans boite a outils controles
ActiveSheet=que la feuille soit active

Code :

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

1
2
3
For i = 1 To 2
ActiveSheet.Shapes("CheckBox" & i).Visible = False
Next

Mais comment faire avec un nom de variable ?

la je comprends pas

essai deja ce que subgere l'ami ouskel
au pire met un zip qu'on puissent tester comme cela pas simple

autremement passer par un module de classe

[ouskel'n'or]

Tu peux tester ça

Code :

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

1
2
Variable = "CheckBox" & i
Activesheet.shapes(Variable).visible = false

pas testé

[mikeduff]

Re bonsoir, mes amis de ce soir,

on progresse, mais... je m'explique

Tout d'abord, mea culpa, la proposition, proposée par vous d'ailleurs,

Code :

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

ActiveSheet.Shapes("CheckBox" & i).Visible = False

fonctionne effectivement sans problème; c'est moi qui avait malencontreusement laissé trainer des crochets où il fallait des parenthèses (quand on travaille avec 2-3 langages dans la même journée, ça embrouille un peu)
je peux donc faire apparaitre/disparaitre mes objets. Donc on progresse disais-je !

Je suis d'ailleurs arrivé à faire fonctionner aussi la version avec OLEObjects de Laetitia.

Mais, j'avais simplifié le problème au maximum pour vous le présenter.
En effet, je ne souhaite pas seulement gérer la visibilité des objets en questions, mais aussi leur valeur. Ainsi, je veux pouvoir dans la même boucle pouvoir décocher toutes les checkbox, par exemple ou "désenfoncer" tous les toggleButtons. Et ça, je n'y arrive pas !
Cà, j'ai comme l'impression d'avoir compris que j' n'y arriverai que dans une userform.

Pourtant, on mode direct, il est parfaitement possible d'écrire:

Code :

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

1
2
3
4
5
6
7
Private Sub ToggleButton2_Click()
If ToggleButton2 Then
    ToggleButton1 = False
    ToggleButton3 = False
    ......
End If
End Sub

Mais je voulais y arriver avec une boucle !

Enfin, je crois que je vais passer par un userform.

Encore merci de votre aide; elle m'a permis d'apprendre quelques petits trucs que je connaissait pas

Mike

[laetitia]

re,mikeduff pas tous a fait d'accord avec toi!!! tu peus faire la meme chose sur une feuille que passer par un user. mais il faut passer par un ou des modules de classe pour simplifier le code a sa plus simple "expression". fait une recherche sur les modules de classes si tu y arrives pas reviens nous voir.

[mikeduff]

Merci Laetitia,

J'ai fait des recherches sur les modules de classe et leur usage et j'ai appris des tas de choses que je ne connaissais pas !!

Je suis même arrivé exactement au résultat que je voulais (du moins jusqu'à présent, car j'ai l'art de toujours vouloir plus

Cela dit, si j'ai compris les grands principes et ai pu les appliquer dans un cas assez simple, je suis encore loin de maitriser le sujet des classes et des collections d'objets.

Mais le sujet semble très prometteur, et je suis sûr que ce n'est pas la dernière fois que je m'y frotte.

Encore merci des tuyaux et du soutien
Peut-être @ plus

Mike

[mikeduff]

Re-bonjour,

c'est encore moi

J'avais bien dit que je n'étais pas au bout du sujet (bien que je l'ai noté comme "Résolu")

J'avance, mais je n'arrive toujours pas à faire ce que je voudrais.

J'ai une série de ToggleButtons (sur la feuille).
Je les ai, sur le conseil de Laetitia, inclus dans une collection - classe.

Lorsque je les actionne, je récupère bien certaines de leurs propriétés (nom du bouton, position sur la feuille), ce qui est déjà une bonne partie de ce que je cherchais.

Mais je ne comprends toujours pas s'il y a moyen d'accéder à chacun de ces objets. Ainsi, l'idée est que, lorsqu'on actionne un bouton (à VRAI), tous les autres reviennent à FAUX (un peu comme le ferait un bouton radio)

J'ai essayé des trucs du genre:

Code :

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

1
2
3
for I=A to Collect.count
   Collect(i)=false
next

et toute une série de variantes sur le même thème, avec pour seul résultat des messages d'erreur.

Histoire d'illustrer les choses, je joins un petit tableur de test

Merci encore de bien vouloir m'aider à apprendre.

Mike

[ouskel'n'or]

Comme je vois que tu n'as pas encore eu de réponse, je te propose quelque chose d'incomplet des fois qu'un meilleur trouve une solution qui ne soit pas une usise à gaz.
Le pb :
De visu c'est la validation d'un bouton, quand un autre est déjà validé, qui réclame deux clics pour passer à True.
Sinon, l'init des boutons non sélectionnés se fait bien.
Si on creuse, on comprend bien que le changement d'état des boutons invalidés provoquent l'événement change... pas click. Or on constate un passage par le click pour chaque bouton invalidé... Et cépabien
J'en suis là

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
Public WithEvents ToggleGroup As MSForms.ToggleButton
 
'Evenement Click sur les CheckBox de la feuille de calcul.
Private Sub ToggleGroup_Click()
Dim BOUTON As Variant, LeBouton As OLEObject
 
    LIGNE = ToggleGroup.TopLeftCell.Row
    Cells(LIGNE, 3) = ToggleGroup.Value
    For Each LeBouton In Sheets("Feuil1").OLEObjects
        'verifie s'il s'agit d'un OptionButton
        If TypeOf LeBouton.Object Is MSForms.ToggleButton Then
            'Si ce n'est pas le bouton validé, on le passe à False...
            If LeBouton.Name <> ToggleGroup.Name Then
                LeBouton.Object = False
                '... et on place False dans la colonne 3
                Cells(Sheets("Feuil1").OLEObjects(LeBouton.Name).TopLeftCell.Row, 3) = False
            End If
        End If
    Next
 
End Sub

[laetitia]

re, effectivement si sait le but recherche sans passer par une usine gaz cela va être tres difficile pourquoi tu choisis pas des OptionButtons???