Savoir quel toggle est activé?

[Xor]

Bonjour Forum

J´ai 24 Togglebutton numéroté de 1 a 24.

Je voudrai créer un programme attribuant une valeur a la cellule A1 egale a 1 si au moins un de ses boutons se trouve activé et si non 0

Dois je utilisé une boucle du style

TogglebuttonX

Sub Toggle Pour trouver le X si il y a
For X=1 To 24
If TogglebuttonX = True
Then Exit
Else
Next X

If TogglebuttonX=True Pour attribuer la valeur 1 a la cellileCell(A;1)=1
End sub

Qu en dites vous???

Merci encore

Xor

 

[Hervé]

Bonjour

Pas sur d'avoir tout compris.

Si tu veux mettre 1 en A1, si au moins un togglebutton à été enclenché, et 0 dans le cas contraire, cette macro fait ceci :

Dim x As Byte

For x = 1 To 24
    If Controls('ToggleButton' & x) = True Then
        Cells(1, 1) = 1
        Exit For
    Else
        Cells(1, 1) = 0
    End If
Next x

Sinon, merci de préciser ta pensé .

Salut

 

[Xor]

Salu Hervé

Merci de ton aide
mais il ne reconnait pas la fonction Controls

Xor

 

[Hervé]

Bonjour

Controls n'est paf une fonction ????

Tu dois avoir un souci de synthaxe.

Regarde en pièce jointe.

Salut
[file name=Classeur7_20050530151531.zip size=9154]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur7_20050530151531.zip[/file]

 

[Xor]

Salut Hervé

Je n arrive toujours pas à faire marcher ta macro..
J ai glissé le fichier en question.. Si tu veux jeter un coup d´oeil..

Merci encore

Xor

 

[Xor]

Salut Hervé

Je n arrive toujours pas à faire marcher ta macro..
J ai glissé le fichier en question.. Si tu veux jeter un coup d´oeil..

Merci encore

Xor

 

[xor]

le fichier en question
mes toggles sont les boutons avec les nom 'OK'

 

[Hervé]

bonsoir

comme explicité lorsque tu joins un fichier, celui-ci ne doit pas contenir d'accent, moins de 50 ko, pas de signes particuliers, pas d'espaces.

Au plaisir de voir ton fichier.

Salut

 

[Xor]

Salut hervé, Salut Forum,

Comment allez vous?
Désolé pour le temps de réaction..

J´ai du considerablement le rr4eduire le fichier pour passer en dessous des 50ko autorisés...
Aulieu de 24 Toggles il y en aplus que 6
Au lieu de 4 tableau il y en a plus que3
C´était 6 toggle par tableau

Le but de ma macro est de savoir quel(s) toggle(s) toggle a été activé et (en option) de faire une copie de la ligne du tableau lui correspondant pour pouvoir aller la coller dans la feuille suivante...

Merci`d avance pour le gros coup de pouce..

Xor


[file name=toggle.zip size=50461]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/toggle.zip[/file]

 

[_Thierry]

Bonjour Xor, Hervé, le Forum

Tu aurais du préciser que tu travaillais sur des ActiveX placés directement sur une feuille, cela aurait évité à notre ami Hervé de penser à un UserForm...

Voici ta Syntax alors :

Private Sub CommandButton1_Click()
Dim TBCtrl As OLEObject
Dim TBCount As Byte, TBtrue As Byte

For Each TBCtrl In Me.OLEObjects
    If TBCtrl.progID = 'Forms.ToggleButton.1' Then
          If TBCtrl.Object.Value = True Then TBtrue = TBtrue + 1
            TBCount = TBCount + 1
    End If
Next
MsgBox 'Sheet ' & Me.Name & ' contient ' & TBCount & ' ToggleButtons' & vbCrLf & _
        TBtrue & ' Sont Activés'

End Sub

Si tu fais tourner ce code sur ta Feuille 'Estandares' tu noteras que tu as encore 20 ToggleButtons d'ailleurs.... Et pas 6 !!

Bon Appétit
@+Thierry

Message édité par: _Thierry, à: 07/06/2005 13:13

 

[Xor]

CA marche très bien merci beaucoup thierry et Hervé

Xor