oupsss j'ai cru savoir mais je sèche sur un piont ....
faut simplment mettre un condition à l'activation de ton bouton bascule ...
Mais je vais voir demain car maintenant, j'ai trop de boulot ...
Recontacte-moi par e-mail demain et je verrais ...
(enlève le "nospam" !!)
Salutations
Dédé
"ALDO" a écrit dans le message de news:
Sans problème merci d'avance...
"Dédé" a écrit dans le message de news:
Salut Aldo !
Si tu veux , je peux t'envoyer un exemple dans ta BAL ...
J'attends ta confirmation pour l'envoi !
Salutations
Dédé
"ALDO" a écrit dans le message de news:
Bonjour,
Je voudrais savoir comment faire pour qu'ils ne soit possible d'enclencher
qu'un seul togglebutton à la fois ???
Mille merci d'avance...
ALDO
Alain CROS
Bonjour.
Voici un exemple avec 2 ToggleButton sur la même feuille de calcul. Copier ce code dans le module de la feuille.
Private Sub ToggleButton1_Click() Dim ret As Boolean If ToggleButton1.Value = True Then ret = testtoggle(ToggleButton1) End If If ret Then ToggleButton1.Value = False MsgBox "coché" End If End Sub
Private Sub ToggleButton2_Click() Dim ret As Boolean If ToggleButton2.Value = True Then ret = testtoggle(ToggleButton2) End If If ret Then ToggleButton2.Value = False MsgBox "coché" End If End Sub
Function testtoggle(LeToggle As ToggleButton) Dim tglB As OLEObject For Each tglB In OLEObjects If tglB.ProgId = "Forms.ToggleButton.1" Then If Not (tglB.Object Is LeToggle) Then If tglB.Object.Value = True Then testtoggle = True Exit Function End If End If End If Next End Function
Alain CROS.
"ALDO" a écrit dans le message de news:
Bonjour,
Je voudrais savoir comment faire pour qu'ils ne soit possible d'enclencher qu'un seul togglebutton à la fois ???
Mille merci d'avance...
ALDO
Bonjour.
Voici un exemple avec 2 ToggleButton sur la même feuille de calcul.
Copier ce code dans le module de la feuille.
Private Sub ToggleButton1_Click()
Dim ret As Boolean
If ToggleButton1.Value = True Then
ret = testtoggle(ToggleButton1)
End If
If ret Then
ToggleButton1.Value = False
MsgBox "coché"
End If
End Sub
Private Sub ToggleButton2_Click()
Dim ret As Boolean
If ToggleButton2.Value = True Then
ret = testtoggle(ToggleButton2)
End If
If ret Then
ToggleButton2.Value = False
MsgBox "coché"
End If
End Sub
Function testtoggle(LeToggle As ToggleButton)
Dim tglB As OLEObject
For Each tglB In OLEObjects
If tglB.ProgId = "Forms.ToggleButton.1" Then
If Not (tglB.Object Is LeToggle) Then
If tglB.Object.Value = True Then
testtoggle = True
Exit Function
End If
End If
End If
Next
End Function
Alain CROS.
"ALDO" <claude.karcher@wanadoo.fr> a écrit dans le message de news: uR69CwwPDHA.2228@tk2msftngp13.phx.gbl...
Bonjour,
Je voudrais savoir comment faire pour qu'ils ne soit possible d'enclencher
qu'un seul togglebutton à la fois ???
Voici un exemple avec 2 ToggleButton sur la même feuille de calcul. Copier ce code dans le module de la feuille.
Private Sub ToggleButton1_Click() Dim ret As Boolean If ToggleButton1.Value = True Then ret = testtoggle(ToggleButton1) End If If ret Then ToggleButton1.Value = False MsgBox "coché" End If End Sub
Private Sub ToggleButton2_Click() Dim ret As Boolean If ToggleButton2.Value = True Then ret = testtoggle(ToggleButton2) End If If ret Then ToggleButton2.Value = False MsgBox "coché" End If End Sub
Function testtoggle(LeToggle As ToggleButton) Dim tglB As OLEObject For Each tglB In OLEObjects If tglB.ProgId = "Forms.ToggleButton.1" Then If Not (tglB.Object Is LeToggle) Then If tglB.Object.Value = True Then testtoggle = True Exit Function End If End If End If Next End Function
Alain CROS.
"ALDO" a écrit dans le message de news:
Bonjour,
Je voudrais savoir comment faire pour qu'ils ne soit possible d'enclencher qu'un seul togglebutton à la fois ???
Mille merci d'avance...
ALDO
ALDO
Cool...
merci....
"Alain CROS" a écrit dans le message de news: #
Bonjour.
Voici un exemple avec 2 ToggleButton sur la même feuille de calcul. Copier ce code dans le module de la feuille.
Private Sub ToggleButton1_Click() Dim ret As Boolean If ToggleButton1.Value = True Then ret = testtoggle(ToggleButton1) End If If ret Then ToggleButton1.Value = False MsgBox "coché" End If End Sub
Private Sub ToggleButton2_Click() Dim ret As Boolean If ToggleButton2.Value = True Then ret = testtoggle(ToggleButton2) End If If ret Then ToggleButton2.Value = False MsgBox "coché" End If End Sub
Function testtoggle(LeToggle As ToggleButton) Dim tglB As OLEObject For Each tglB In OLEObjects If tglB.ProgId = "Forms.ToggleButton.1" Then If Not (tglB.Object Is LeToggle) Then If tglB.Object.Value = True Then testtoggle = True Exit Function End If End If End If Next End Function
Alain CROS.
"ALDO" a écrit dans le message de news:
Bonjour,
Je voudrais savoir comment faire pour qu'ils ne soit possible d'enclencher
qu'un seul togglebutton à la fois ???
Mille merci d'avance...
ALDO
Cool...
merci....
"Alain CROS" <Personne@ICI> a écrit dans le message de news:
#7GXlfzPDHA.2832@TK2MSFTNGP10.phx.gbl...
Bonjour.
Voici un exemple avec 2 ToggleButton sur la même feuille de calcul.
Copier ce code dans le module de la feuille.
Private Sub ToggleButton1_Click()
Dim ret As Boolean
If ToggleButton1.Value = True Then
ret = testtoggle(ToggleButton1)
End If
If ret Then
ToggleButton1.Value = False
MsgBox "coché"
End If
End Sub
Private Sub ToggleButton2_Click()
Dim ret As Boolean
If ToggleButton2.Value = True Then
ret = testtoggle(ToggleButton2)
End If
If ret Then
ToggleButton2.Value = False
MsgBox "coché"
End If
End Sub
Function testtoggle(LeToggle As ToggleButton)
Dim tglB As OLEObject
For Each tglB In OLEObjects
If tglB.ProgId = "Forms.ToggleButton.1" Then
If Not (tglB.Object Is LeToggle) Then
If tglB.Object.Value = True Then
testtoggle = True
Exit Function
End If
End If
End If
Next
End Function
Alain CROS.
"ALDO" <claude.karcher@wanadoo.fr> a écrit dans le message de news:
uR69CwwPDHA.2228@tk2msftngp13.phx.gbl...
Bonjour,
Je voudrais savoir comment faire pour qu'ils ne soit possible
d'enclencher
Voici un exemple avec 2 ToggleButton sur la même feuille de calcul. Copier ce code dans le module de la feuille.
Private Sub ToggleButton1_Click() Dim ret As Boolean If ToggleButton1.Value = True Then ret = testtoggle(ToggleButton1) End If If ret Then ToggleButton1.Value = False MsgBox "coché" End If End Sub
Private Sub ToggleButton2_Click() Dim ret As Boolean If ToggleButton2.Value = True Then ret = testtoggle(ToggleButton2) End If If ret Then ToggleButton2.Value = False MsgBox "coché" End If End Sub
Function testtoggle(LeToggle As ToggleButton) Dim tglB As OLEObject For Each tglB In OLEObjects If tglB.ProgId = "Forms.ToggleButton.1" Then If Not (tglB.Object Is LeToggle) Then If tglB.Object.Value = True Then testtoggle = True Exit Function End If End If End If Next End Function
Alain CROS.
"ALDO" a écrit dans le message de news:
Bonjour,
Je voudrais savoir comment faire pour qu'ils ne soit possible d'enclencher
