Savoir quel toggle est activé?

Hervé

XLDnaute Barbatruc

• 19 Mai 2005

• #2

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

Cliquez pour agrandir...

Sinon, merci de préciser ta pensé .

Salut

 

Vote positif 0 Vote négatif

X

Xor

Guest

• 30 Mai 2005

• #3

Salu Hervé

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

Xor

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 30 Mai 2005

• #4

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]

 

Pièces jointes

• Classeur7_20050530151531.zip

  8.9 KB · Affichages: 20

Vote positif 0 Vote négatif

X

Xor

Guest

• 6 Juin 2005

• #5

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

 

Vote positif 0 Vote négatif

X

Xor

Guest

• 6 Juin 2005

• #6

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

 

Vote positif 0 Vote négatif

X

xor

Guest

• 6 Juin 2005

• #7

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 6 Juin 2005

• #8

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

 

Vote positif 0 Vote négatif

X

Xor

Guest

• 7 Juin 2005

• #9

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]

 

Pièces jointes

• toggle.zip

  49.3 KB · Affichages: 27

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 7 Juin 2005

• #10

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

X

Xor

Guest

• 9 Juin 2005

• #11

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

Xor

 

Vote positif 0 Vote négatif