Bonjour,
Excel 2000
Sur une feuille, j'ai 15 checkbox
J'aimerais avoir une procédure qui s'exécute selon que le checkbox est coché
ou non. J'ai essayé ceci mais ça ne fonctionne pas.
Qq pourrait-il m'aider SVP
Sub test()
For Each CheckBox In ActiveSheet
If CheckBox = True Then
MsgBox ("coché")
Else
MsgBox ("non coché")
End If
Next CheckBox
End Sub
Bonjour, Excel 2000 Sur une feuille, j'ai 15 checkbox J'aimerais avoir une procédure qui s'exécute selon que le checkbox es t coché ou non. J'ai essayé ceci mais ça ne fonctionne pas. Qq pourrait-il m'aider SVP
Sub test() For Each CheckBox In ActiveSheet If CheckBox = True Then MsgBox ("coché") Else MsgBox ("non coché") End If Next CheckBox End Sub
Flac
Bonjour,
For Each c In ActiveSheet.OLEObjects
If c.Object.Value Then
MsgBox "coché"
Else
MsgBox "non coché"
End If
Next
On 14 août, 18:13, "Flac" <luc...@hotmail.com> wrote:
Bonjour,
Excel 2000
Sur une feuille, j'ai 15 checkbox
J'aimerais avoir une procédure qui s'exécute selon que le checkbox es t coché
ou non. J'ai essayé ceci mais ça ne fonctionne pas.
Qq pourrait-il m'aider SVP
Sub test()
For Each CheckBox In ActiveSheet
If CheckBox = True Then
MsgBox ("coché")
Else
MsgBox ("non coché")
End If
Next CheckBox
End Sub
Bonjour, Excel 2000 Sur une feuille, j'ai 15 checkbox J'aimerais avoir une procédure qui s'exécute selon que le checkbox es t coché ou non. J'ai essayé ceci mais ça ne fonctionne pas. Qq pourrait-il m'aider SVP
Sub test() For Each CheckBox In ActiveSheet If CheckBox = True Then MsgBox ("coché") Else MsgBox ("non coché") End If Next CheckBox End Sub
Flac
Flac
Merci, Une question complémentaire: Comment pourrais-je numéroter (de 1 à 15) chacune des checkbox dans la procédure que tu as suggérée?
Flac
Merci,
Une question complémentaire:
Comment pourrais-je numéroter (de 1 à 15) chacune des checkbox
dans la procédure que tu as suggérée?
For Each c In ActiveSheet.OLEObjects MsgBox c.Name If c.Object.Value Then MsgBox "coché" Else MsgBox "non coché" End If Next
JB
On 14 août, 19:15, "Flac" wrote:
Merci, Une question complémentaire: Comment pourrais-je numéroter (de 1 à 15) chacune des checkbox dans la procédure que tu as suggérée?
Flac
LE TROLL
Bonjour,
De tête, le checkBox doit avoir trois ou 4 états, donc le test n'est pas boolean (interger peut être)... tu as : "décoché", "coché", "grisé"...
-- Romans, logiciels, email, site personnel http://irolog.free.fr/joe.htm ------------------------------------------------------------------------------------ "JB" a écrit dans le message de news:
Bonjour,
For Each c In ActiveSheet.OLEObjects If c.Object.Value Then MsgBox "coché" Else MsgBox "non coché" End If Next
Bonjour, Excel 2000 Sur une feuille, j'ai 15 checkbox J'aimerais avoir une procédure qui s'exécute selon que le checkbox est coché ou non. J'ai essayé ceci mais ça ne fonctionne pas. Qq pourrait-il m'aider SVP
Sub test() For Each CheckBox In ActiveSheet If CheckBox = True Then MsgBox ("coché") Else MsgBox ("non coché") End If Next CheckBox End Sub
Flac
Bonjour,
De tête, le checkBox doit avoir trois ou 4 états, donc le test n'est pas
boolean (interger peut être)... tu as : "décoché", "coché", "grisé"...
--
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
bc6cf679-4c1d-4cf6-b050-b10ea23fb1a0@p25g2000hsf.googlegroups.com...
Bonjour,
For Each c In ActiveSheet.OLEObjects
If c.Object.Value Then
MsgBox "coché"
Else
MsgBox "non coché"
End If
Next
On 14 août, 18:13, "Flac" <luc...@hotmail.com> wrote:
Bonjour,
Excel 2000
Sur une feuille, j'ai 15 checkbox
J'aimerais avoir une procédure qui s'exécute selon que le checkbox est
coché
ou non. J'ai essayé ceci mais ça ne fonctionne pas.
Qq pourrait-il m'aider SVP
Sub test()
For Each CheckBox In ActiveSheet
If CheckBox = True Then
MsgBox ("coché")
Else
MsgBox ("non coché")
End If
Next CheckBox
End Sub
De tête, le checkBox doit avoir trois ou 4 états, donc le test n'est pas boolean (interger peut être)... tu as : "décoché", "coché", "grisé"...
-- Romans, logiciels, email, site personnel http://irolog.free.fr/joe.htm ------------------------------------------------------------------------------------ "JB" a écrit dans le message de news:
Bonjour,
For Each c In ActiveSheet.OLEObjects If c.Object.Value Then MsgBox "coché" Else MsgBox "non coché" End If Next
Bonjour, Excel 2000 Sur une feuille, j'ai 15 checkbox J'aimerais avoir une procédure qui s'exécute selon que le checkbox est coché ou non. J'ai essayé ceci mais ça ne fonctionne pas. Qq pourrait-il m'aider SVP
Sub test() For Each CheckBox In ActiveSheet If CheckBox = True Then MsgBox ("coché") Else MsgBox ("non coché") End If Next CheckBox End Sub
Flac
michdenis
En supposant que tu as conservé comme NOM à tes contrôles "CHECKBOX" de ta feuille la racine "CHECKBOX" plus un index comme nom de tes contrôles.
Attention aux coupures de ligne de code par le service de messagerie
'---------------------------------------- Sub CheckBox() Dim A As Integer, NRacine As String Dim Obj As OLEObject
With Worksheets("Feuil1") 'Nom de la feuille à adapter For Each Obj In .OLEObjects If TypeName(Obj.Object) = "CheckBox" Then A = A + 1 Select Case .Shapes("CheckBox" & A).OLEFormat.Object.Object.Value Case Is = True 'Ton code quand tes checkbox = vrai MsgBox Obj.Name & " = " & Obj.Object.Value Case Is = False 'Ton code quand tes checkboox = faux MsgBox Obj.Name & " = " & Obj.Object.Value Case Else 'Si la propriété TripleState = true 'et que ton checkbox n'est pas vrai or true 'Ton code MsgBox Obj.Name & " est ni vrai ou faux." End Select End If Next End With
End Sub '----------------------------------------
"Flac" a écrit dans le message de news: eC28sii$ Bonjour, Excel 2000 Sur une feuille, j'ai 15 checkbox J'aimerais avoir une procédure qui s'exécute selon que le checkbox est coché ou non. J'ai essayé ceci mais ça ne fonctionne pas. Qq pourrait-il m'aider SVP
Sub test() For Each CheckBox In ActiveSheet If CheckBox = True Then MsgBox ("coché") Else MsgBox ("non coché") End If Next CheckBox End Sub
Flac
En supposant que tu as conservé comme NOM à
tes contrôles "CHECKBOX" de ta feuille la racine "CHECKBOX"
plus un index comme nom de tes contrôles.
Attention aux coupures de ligne de code par le service de messagerie
'----------------------------------------
Sub CheckBox()
Dim A As Integer, NRacine As String
Dim Obj As OLEObject
With Worksheets("Feuil1") 'Nom de la feuille à adapter
For Each Obj In .OLEObjects
If TypeName(Obj.Object) = "CheckBox" Then
A = A + 1
Select Case .Shapes("CheckBox" &
A).OLEFormat.Object.Object.Value
Case Is = True
'Ton code quand tes checkbox = vrai
MsgBox Obj.Name & " = " & Obj.Object.Value
Case Is = False
'Ton code quand tes checkboox = faux
MsgBox Obj.Name & " = " & Obj.Object.Value
Case Else
'Si la propriété TripleState = true
'et que ton checkbox n'est pas vrai or true
'Ton code
MsgBox Obj.Name & " est ni vrai ou faux."
End Select
End If
Next
End With
End Sub
'----------------------------------------
"Flac" <luc_bt@hotmail.com> a écrit dans le message de news:
eC28sii$IHA.3396@TK2MSFTNGP03.phx.gbl...
Bonjour,
Excel 2000
Sur une feuille, j'ai 15 checkbox
J'aimerais avoir une procédure qui s'exécute selon que le checkbox est coché
ou non. J'ai essayé ceci mais ça ne fonctionne pas.
Qq pourrait-il m'aider SVP
Sub test()
For Each CheckBox In ActiveSheet
If CheckBox = True Then
MsgBox ("coché")
Else
MsgBox ("non coché")
End If
Next CheckBox
End Sub
En supposant que tu as conservé comme NOM à tes contrôles "CHECKBOX" de ta feuille la racine "CHECKBOX" plus un index comme nom de tes contrôles.
Attention aux coupures de ligne de code par le service de messagerie
'---------------------------------------- Sub CheckBox() Dim A As Integer, NRacine As String Dim Obj As OLEObject
With Worksheets("Feuil1") 'Nom de la feuille à adapter For Each Obj In .OLEObjects If TypeName(Obj.Object) = "CheckBox" Then A = A + 1 Select Case .Shapes("CheckBox" & A).OLEFormat.Object.Object.Value Case Is = True 'Ton code quand tes checkbox = vrai MsgBox Obj.Name & " = " & Obj.Object.Value Case Is = False 'Ton code quand tes checkboox = faux MsgBox Obj.Name & " = " & Obj.Object.Value Case Else 'Si la propriété TripleState = true 'et que ton checkbox n'est pas vrai or true 'Ton code MsgBox Obj.Name & " est ni vrai ou faux." End Select End If Next End With
End Sub '----------------------------------------
"Flac" a écrit dans le message de news: eC28sii$ Bonjour, Excel 2000 Sur une feuille, j'ai 15 checkbox J'aimerais avoir une procédure qui s'exécute selon que le checkbox est coché ou non. J'ai essayé ceci mais ça ne fonctionne pas. Qq pourrait-il m'aider SVP
Sub test() For Each CheckBox In ActiveSheet If CheckBox = True Then MsgBox ("coché") Else MsgBox ("non coché") End If Next CheckBox End Sub
Flac
Flac
Merci à tous,
C'est très apprécié.
Flac
"michdenis" a écrit dans le message de news: eFfYVBs$
En supposant que tu as conservé comme NOM à tes contrôles "CHECKBOX" de ta feuille la racine "CHECKBOX" plus un index comme nom de tes contrôles.
Attention aux coupures de ligne de code par le service de messagerie
'---------------------------------------- Sub CheckBox() Dim A As Integer, NRacine As String Dim Obj As OLEObject
With Worksheets("Feuil1") 'Nom de la feuille à adapter For Each Obj In .OLEObjects If TypeName(Obj.Object) = "CheckBox" Then A = A + 1 Select Case .Shapes("CheckBox" & A).OLEFormat.Object.Object.Value Case Is = True 'Ton code quand tes checkbox = vrai MsgBox Obj.Name & " = " & Obj.Object.Value Case Is = False 'Ton code quand tes checkboox = faux MsgBox Obj.Name & " = " & Obj.Object.Value Case Else 'Si la propriété TripleState = true 'et que ton checkbox n'est pas vrai or true 'Ton code MsgBox Obj.Name & " est ni vrai ou faux." End Select End If Next End With
End Sub '----------------------------------------
"Flac" a écrit dans le message de news: eC28sii$ Bonjour, Excel 2000 Sur une feuille, j'ai 15 checkbox J'aimerais avoir une procédure qui s'exécute selon que le checkbox est coché ou non. J'ai essayé ceci mais ça ne fonctionne pas. Qq pourrait-il m'aider SVP
Sub test() For Each CheckBox In ActiveSheet If CheckBox = True Then MsgBox ("coché") Else MsgBox ("non coché") End If Next CheckBox End Sub
Flac
Merci à tous,
C'est très apprécié.
Flac
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eFfYVBs$IHA.5956@TK2MSFTNGP04.phx.gbl...
En supposant que tu as conservé comme NOM à
tes contrôles "CHECKBOX" de ta feuille la racine "CHECKBOX"
plus un index comme nom de tes contrôles.
Attention aux coupures de ligne de code par le service de messagerie
'----------------------------------------
Sub CheckBox()
Dim A As Integer, NRacine As String
Dim Obj As OLEObject
With Worksheets("Feuil1") 'Nom de la feuille à adapter
For Each Obj In .OLEObjects
If TypeName(Obj.Object) = "CheckBox" Then
A = A + 1
Select Case .Shapes("CheckBox" &
A).OLEFormat.Object.Object.Value
Case Is = True
'Ton code quand tes checkbox = vrai
MsgBox Obj.Name & " = " & Obj.Object.Value
Case Is = False
'Ton code quand tes checkboox = faux
MsgBox Obj.Name & " = " & Obj.Object.Value
Case Else
'Si la propriété TripleState = true
'et que ton checkbox n'est pas vrai or true
'Ton code
MsgBox Obj.Name & " est ni vrai ou faux."
End Select
End If
Next
End With
End Sub
'----------------------------------------
"Flac" <luc_bt@hotmail.com> a écrit dans le message de news:
eC28sii$IHA.3396@TK2MSFTNGP03.phx.gbl...
Bonjour,
Excel 2000
Sur une feuille, j'ai 15 checkbox
J'aimerais avoir une procédure qui s'exécute selon que le checkbox est
coché
ou non. J'ai essayé ceci mais ça ne fonctionne pas.
Qq pourrait-il m'aider SVP
Sub test()
For Each CheckBox In ActiveSheet
If CheckBox = True Then
MsgBox ("coché")
Else
MsgBox ("non coché")
End If
Next CheckBox
End Sub
"michdenis" a écrit dans le message de news: eFfYVBs$
En supposant que tu as conservé comme NOM à tes contrôles "CHECKBOX" de ta feuille la racine "CHECKBOX" plus un index comme nom de tes contrôles.
Attention aux coupures de ligne de code par le service de messagerie
'---------------------------------------- Sub CheckBox() Dim A As Integer, NRacine As String Dim Obj As OLEObject
With Worksheets("Feuil1") 'Nom de la feuille à adapter For Each Obj In .OLEObjects If TypeName(Obj.Object) = "CheckBox" Then A = A + 1 Select Case .Shapes("CheckBox" & A).OLEFormat.Object.Object.Value Case Is = True 'Ton code quand tes checkbox = vrai MsgBox Obj.Name & " = " & Obj.Object.Value Case Is = False 'Ton code quand tes checkboox = faux MsgBox Obj.Name & " = " & Obj.Object.Value Case Else 'Si la propriété TripleState = true 'et que ton checkbox n'est pas vrai or true 'Ton code MsgBox Obj.Name & " est ni vrai ou faux." End Select End If Next End With
End Sub '----------------------------------------
"Flac" a écrit dans le message de news: eC28sii$ Bonjour, Excel 2000 Sur une feuille, j'ai 15 checkbox J'aimerais avoir une procédure qui s'exécute selon que le checkbox est coché ou non. J'ai essayé ceci mais ça ne fonctionne pas. Qq pourrait-il m'aider SVP
Sub test() For Each CheckBox In ActiveSheet If CheckBox = True Then MsgBox ("coché") Else MsgBox ("non coché") End If Next CheckBox End Sub