Recherche Toggle actif

[Damien]

Bonjour forum

Comment allez vous?


Je dispose de 2o Toggle button sur mon fichier..

JE souhaiterai réaliser une boucle qui me donnerait le nom de chacune une par une.. Mais, ignorant que je suis je ne sais pas comment conditionner le nom de ma variable étant donné que c´est un objet..

For n to 20

If ('Togglebutton' & n). value =true
tEXTE = 'Togglebutton' & n & vbLf & TEXTE
End If
Next n

Msgbox 'TEXTE ST ACTIVÉS

Merci d avance
Damien

 

[Alain CROS]

Bonjour.

Je pense que c'est ce que tu recherche.

Sub ValeurToggle()
    Dim Tgl As OLEObject, LeTexte$
    For Each Tgl In ActiveSheet.OLEObjects
        If Tgl.progID = 'Forms.ToggleButton.1' Then
            If Tgl.Object.Value Then LeTexte = _
                Tgl.Name & vbCrLf & LeTexte
        End If
    Next
    If LeTexte <> '' Then MsgBox LeTexte
    Set Tgl = Nothing
End Sub

Alain CROS

 

[Robert]

Bonsoir Damien, bonsoir le forum,

Essaie avec cette macro :

Sub Macro1()
Dim n As Byte 'déclare la variable n
Dim Texte As String 'déclare la variable Texte
Dim C As Byte 'déclare la variable C

C = 0 'définit la variable C (Compteur)

For n = 1 To 20 'boucle sur le 20 boutons
'condition: si le bouton est enfoncé
If ActiveSheet.OLEObjects('ToggleButton' & n).Object.Value = True Then
'définit la variable Texte
Texte = Texte & ActiveSheet.OLEObjects('ToggleButton' & n).Name & vbCrLf
C = C + 1 'redéfinit la variable C
End If 'fin de la condition
Next n 'prochain bouton

Select Case C 'en fonction du cas : C (Compteur)
Case 0 'si C = 0
Texte = 'Aucun ToggleButton n'est activé.' 'redéfinit la variable Texte
Case 1 'si C = 1
Texte = Texte & 'activé.' 'redéfinit la variable Texte
Case Is > 1 'si C est supérieur à 1
Texte = Texte & 'activés.' 'redéfinit la variable Texte
End Select 'fin de cas

MsgBox Texte 'affiche la variable Texte dans un message
End Sub

Édition

Hou la ! J'avais pas raffraîchi... Bonsoir Alain. Heu Damien, à mon avis laisse tomber mon code et prends plutôt celui d'Alain qui m'a lair bien plus pro (et propre). Merci pour la leçon !

Message édité par: Robert, à: 06/07/2005 23:06