Bonsoir,
Je souhaiterais pouvoir decocher toutes mes cases à cocher formulaires d'un
seul coup dans une feuil1.
Comment puis je faire,
J'ai ceci, mais je n'y arrive pas :
Sub case_decoche()
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each CheckBoxes In .CheckBoxes
CheckBoxes.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
Range("A7").Select
End Sub
Merci
Manu
Bonsoir,
Je souhaiterais pouvoir decocher toutes mes cases à cocher formulaires d'un
seul coup dans une feuil1.
Comment puis je faire,
J'ai ceci, mais je n'y arrive pas :
Sub case_decoche()
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each CheckBoxes In .CheckBoxes
CheckBoxes.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
Range("A7").Select
End Sub
Merci
Manu
Bonsoir,
Je souhaiterais pouvoir decocher toutes mes cases à cocher formulaires d'un
seul coup dans une feuil1.
Comment puis je faire,
J'ai ceci, mais je n'y arrive pas :
Sub case_decoche()
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each CheckBoxes In .CheckBoxes
CheckBoxes.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
Range("A7").Select
End Sub
Merci
Manu
Bonsoir.
Sub case_decoche()
Dim cb As CheckBox
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each cb In .CheckBoxes
cb.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
End Sub
DanielBonsoir,
Je souhaiterais pouvoir decocher toutes mes cases à cocher formulaires
d'un seul coup dans une feuil1.
Comment puis je faire,
J'ai ceci, mais je n'y arrive pas :
Sub case_decoche()
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each CheckBoxes In .CheckBoxes
CheckBoxes.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
Range("A7").Select
End Sub
Merci
Manu
Bonsoir.
Sub case_decoche()
Dim cb As CheckBox
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each cb In .CheckBoxes
cb.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
End Sub
Daniel
Bonsoir,
Je souhaiterais pouvoir decocher toutes mes cases à cocher formulaires
d'un seul coup dans une feuil1.
Comment puis je faire,
J'ai ceci, mais je n'y arrive pas :
Sub case_decoche()
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each CheckBoxes In .CheckBoxes
CheckBoxes.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
Range("A7").Select
End Sub
Merci
Manu
Bonsoir.
Sub case_decoche()
Dim cb As CheckBox
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each cb In .CheckBoxes
cb.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
End Sub
DanielBonsoir,
Je souhaiterais pouvoir decocher toutes mes cases à cocher formulaires
d'un seul coup dans une feuil1.
Comment puis je faire,
J'ai ceci, mais je n'y arrive pas :
Sub case_decoche()
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each CheckBoxes In .CheckBoxes
CheckBoxes.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
Range("A7").Select
End Sub
Merci
Manu
Ca ne fonctionne pas, je ne comprend pas.
Manu
"Daniel.C" a écrit dans le message de news:Bonsoir.
Sub case_decoche()
Dim cb As CheckBox
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each cb In .CheckBoxes
cb.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
End Sub
DanielBonsoir,
Je souhaiterais pouvoir decocher toutes mes cases à cocher formulaires
d'un seul coup dans une feuil1.
Comment puis je faire,
J'ai ceci, mais je n'y arrive pas :
Sub case_decoche()
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each CheckBoxes In .CheckBoxes
CheckBoxes.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
Range("A7").Select
End Sub
Merci
Manu
Ca ne fonctionne pas, je ne comprend pas.
Manu
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
uGi8WRRoKHA.5700@TK2MSFTNGP04.phx.gbl...
Bonsoir.
Sub case_decoche()
Dim cb As CheckBox
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each cb In .CheckBoxes
cb.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
End Sub
Daniel
Bonsoir,
Je souhaiterais pouvoir decocher toutes mes cases à cocher formulaires
d'un seul coup dans une feuil1.
Comment puis je faire,
J'ai ceci, mais je n'y arrive pas :
Sub case_decoche()
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each CheckBoxes In .CheckBoxes
CheckBoxes.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
Range("A7").Select
End Sub
Merci
Manu
Ca ne fonctionne pas, je ne comprend pas.
Manu
"Daniel.C" a écrit dans le message de news:Bonsoir.
Sub case_decoche()
Dim cb As CheckBox
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each cb In .CheckBoxes
cb.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
End Sub
DanielBonsoir,
Je souhaiterais pouvoir decocher toutes mes cases à cocher formulaires
d'un seul coup dans une feuil1.
Comment puis je faire,
J'ai ceci, mais je n'y arrive pas :
Sub case_decoche()
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each CheckBoxes In .CheckBoxes
CheckBoxes.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
Range("A7").Select
End Sub
Merci
Manu
Regarde le classeur là :
http://cjoint.com/?bElUxnjo10
DanielCa ne fonctionne pas, je ne comprend pas.
Manu
"Daniel.C" a écrit dans le message de news:Bonsoir.
Sub case_decoche()
Dim cb As CheckBox
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each cb In .CheckBoxes
cb.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
End Sub
DanielBonsoir,
Je souhaiterais pouvoir decocher toutes mes cases à cocher formulaires
d'un seul coup dans une feuil1.
Comment puis je faire,
J'ai ceci, mais je n'y arrive pas :
Sub case_decoche()
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each CheckBoxes In .CheckBoxes
CheckBoxes.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
Range("A7").Select
End Sub
Merci
Manu
Regarde le classeur là :
http://cjoint.com/?bElUxnjo10
Daniel
Ca ne fonctionne pas, je ne comprend pas.
Manu
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
uGi8WRRoKHA.5700@TK2MSFTNGP04.phx.gbl...
Bonsoir.
Sub case_decoche()
Dim cb As CheckBox
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each cb In .CheckBoxes
cb.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
End Sub
Daniel
Bonsoir,
Je souhaiterais pouvoir decocher toutes mes cases à cocher formulaires
d'un seul coup dans une feuil1.
Comment puis je faire,
J'ai ceci, mais je n'y arrive pas :
Sub case_decoche()
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each CheckBoxes In .CheckBoxes
CheckBoxes.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
Range("A7").Select
End Sub
Merci
Manu
Regarde le classeur là :
http://cjoint.com/?bElUxnjo10
DanielCa ne fonctionne pas, je ne comprend pas.
Manu
"Daniel.C" a écrit dans le message de news:Bonsoir.
Sub case_decoche()
Dim cb As CheckBox
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each cb In .CheckBoxes
cb.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
End Sub
DanielBonsoir,
Je souhaiterais pouvoir decocher toutes mes cases à cocher formulaires
d'un seul coup dans une feuil1.
Comment puis je faire,
J'ai ceci, mais je n'y arrive pas :
Sub case_decoche()
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each CheckBoxes In .CheckBoxes
CheckBoxes.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
Range("A7").Select
End Sub
Merci
Manu
Ca ne fonctionne toujours pas, c'est tres etonnant car je suis sur que
chez toi ca marche (je suis en version 2003)
Manu
"Daniel.C" a écrit dans le message de news:Regarde le classeur là :
http://cjoint.com/?bElUxnjo10
DanielCa ne fonctionne pas, je ne comprend pas.
Manu
"Daniel.C" a écrit dans le message de news:Bonsoir.
Sub case_decoche()
Dim cb As CheckBox
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each cb In .CheckBoxes
cb.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
End Sub
DanielBonsoir,
Je souhaiterais pouvoir decocher toutes mes cases à cocher formulaires
d'un seul coup dans une feuil1.
Comment puis je faire,
J'ai ceci, mais je n'y arrive pas :
Sub case_decoche()
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each CheckBoxes In .CheckBoxes
CheckBoxes.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
Range("A7").Select
End Sub
Merci
Manu
Ca ne fonctionne toujours pas, c'est tres etonnant car je suis sur que
chez toi ca marche (je suis en version 2003)
Manu
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
uXMsSmZoKHA.3792@TK2MSFTNGP06.phx.gbl...
Regarde le classeur là :
http://cjoint.com/?bElUxnjo10
Daniel
Ca ne fonctionne pas, je ne comprend pas.
Manu
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
uGi8WRRoKHA.5700@TK2MSFTNGP04.phx.gbl...
Bonsoir.
Sub case_decoche()
Dim cb As CheckBox
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each cb In .CheckBoxes
cb.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
End Sub
Daniel
Bonsoir,
Je souhaiterais pouvoir decocher toutes mes cases à cocher formulaires
d'un seul coup dans une feuil1.
Comment puis je faire,
J'ai ceci, mais je n'y arrive pas :
Sub case_decoche()
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each CheckBoxes In .CheckBoxes
CheckBoxes.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
Range("A7").Select
End Sub
Merci
Manu
Ca ne fonctionne toujours pas, c'est tres etonnant car je suis sur que
chez toi ca marche (je suis en version 2003)
Manu
"Daniel.C" a écrit dans le message de news:Regarde le classeur là :
http://cjoint.com/?bElUxnjo10
DanielCa ne fonctionne pas, je ne comprend pas.
Manu
"Daniel.C" a écrit dans le message de news:Bonsoir.
Sub case_decoche()
Dim cb As CheckBox
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each cb In .CheckBoxes
cb.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
End Sub
DanielBonsoir,
Je souhaiterais pouvoir decocher toutes mes cases à cocher formulaires
d'un seul coup dans une feuil1.
Comment puis je faire,
J'ai ceci, mais je n'y arrive pas :
Sub case_decoche()
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each CheckBoxes In .CheckBoxes
CheckBoxes.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
Range("A7").Select
End Sub
Merci
Manu
Ca ne fonctionne toujours pas, c'est tres etonnant car je suis sur que
chez toi ca marche (je suis en version 2003)
Manu
"Daniel.C" a écrit dans le message de news:Regarde le classeur là :
http://cjoint.com/?bElUxnjo10
DanielCa ne fonctionne pas, je ne comprend pas.
Manu
"Daniel.C" a écrit dans le message de news:Bonsoir.
Sub case_decoche()
Dim cb As CheckBox
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each cb In .CheckBoxes
cb.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
End Sub
DanielBonsoir,
Je souhaiterais pouvoir decocher toutes mes cases à cocher formulaires
d'un seul coup dans une feuil1.
Comment puis je faire,
J'ai ceci, mais je n'y arrive pas :
Sub case_decoche()
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each CheckBoxes In .CheckBoxes
CheckBoxes.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
Range("A7").Select
End Sub
Merci
Manu
Ca ne fonctionne toujours pas, c'est tres etonnant car je suis sur que
chez toi ca marche (je suis en version 2003)
Manu
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
uXMsSmZoKHA.3792@TK2MSFTNGP06.phx.gbl...
Regarde le classeur là :
http://cjoint.com/?bElUxnjo10
Daniel
Ca ne fonctionne pas, je ne comprend pas.
Manu
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
uGi8WRRoKHA.5700@TK2MSFTNGP04.phx.gbl...
Bonsoir.
Sub case_decoche()
Dim cb As CheckBox
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each cb In .CheckBoxes
cb.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
End Sub
Daniel
Bonsoir,
Je souhaiterais pouvoir decocher toutes mes cases à cocher formulaires
d'un seul coup dans une feuil1.
Comment puis je faire,
J'ai ceci, mais je n'y arrive pas :
Sub case_decoche()
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each CheckBoxes In .CheckBoxes
CheckBoxes.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
Range("A7").Select
End Sub
Merci
Manu
Ca ne fonctionne toujours pas, c'est tres etonnant car je suis sur que
chez toi ca marche (je suis en version 2003)
Manu
"Daniel.C" a écrit dans le message de news:Regarde le classeur là :
http://cjoint.com/?bElUxnjo10
DanielCa ne fonctionne pas, je ne comprend pas.
Manu
"Daniel.C" a écrit dans le message de news:Bonsoir.
Sub case_decoche()
Dim cb As CheckBox
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each cb In .CheckBoxes
cb.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
End Sub
DanielBonsoir,
Je souhaiterais pouvoir decocher toutes mes cases à cocher formulaires
d'un seul coup dans une feuil1.
Comment puis je faire,
J'ai ceci, mais je n'y arrive pas :
Sub case_decoche()
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each CheckBoxes In .CheckBoxes
CheckBoxes.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
Range("A7").Select
End Sub
Merci
Manu
En attendant que Daniel revienne,
Est-ce que cela fonctionne, si tu utilises ceci :
Tu adaptes le nom de la feuille.
'------------------------------------
Sub case_decoche()
Dim cb As Shape
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each cb In .Shapes
If TypeName(cb.OLEFormat.Object) = "CheckBox" Then
cb.OLEFormat.Object.Value = xlOff
ActiveWorkbook.Saved = False
End If
Next
ActiveWorkbook.Saved = False
End With
Application.DisplayAlerts = False
End Sub
'------------------------------------
Sub case_coche()
Dim cb As Shape
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each cb In .Shapes
If TypeName(cb.OLEFormat.Object) = "CheckBox" Then
cb.OLEFormat.Object.Value = xlOn
ActiveWorkbook.Saved = False
End If
Next
ActiveWorkbook.Saved = False
End With
Application.DisplayAlerts = False
End Sub
'------------------------------------
"Manu" a écrit dans le message de groupe de
discussion :
Bizarre !!!! Sur tes casea à toi, la macro ne fonctionne pas en revanche si
je crée de nouvelles case, ca fonctionne....
Vas y comprendre quelque chose.
Merci encore de ton aide
Manu
"Manu" a écrit dans le message de news:
O$
Ca ne fonctionne toujours pas, c'est tres etonnant car je suis sur que
chez toi ca marche (je suis en version 2003)
Manu
"Daniel.C" a écrit dans le message de news:Regarde le classeur là :
http://cjoint.com/?bElUxnjo10
DanielCa ne fonctionne pas, je ne comprend pas.
Manu
"Daniel.C" a écrit dans le message de news:Bonsoir.
Sub case_decoche()
Dim cb As CheckBox
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each cb In .CheckBoxes
cb.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
End Sub
DanielBonsoir,
Je souhaiterais pouvoir decocher toutes mes cases à cocher formulaires
d'un seul coup dans une feuil1.
Comment puis je faire,
J'ai ceci, mais je n'y arrive pas :
Sub case_decoche()
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each CheckBoxes In .CheckBoxes
CheckBoxes.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
Range("A7").Select
End Sub
Merci
Manu
En attendant que Daniel revienne,
Est-ce que cela fonctionne, si tu utilises ceci :
Tu adaptes le nom de la feuille.
'------------------------------------
Sub case_decoche()
Dim cb As Shape
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each cb In .Shapes
If TypeName(cb.OLEFormat.Object) = "CheckBox" Then
cb.OLEFormat.Object.Value = xlOff
ActiveWorkbook.Saved = False
End If
Next
ActiveWorkbook.Saved = False
End With
Application.DisplayAlerts = False
End Sub
'------------------------------------
Sub case_coche()
Dim cb As Shape
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each cb In .Shapes
If TypeName(cb.OLEFormat.Object) = "CheckBox" Then
cb.OLEFormat.Object.Value = xlOn
ActiveWorkbook.Saved = False
End If
Next
ActiveWorkbook.Saved = False
End With
Application.DisplayAlerts = False
End Sub
'------------------------------------
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de groupe de
discussion : uNSKVJcoKHA.5696@TK2MSFTNGP04.phx.gbl...
Bizarre !!!! Sur tes casea à toi, la macro ne fonctionne pas en revanche si
je crée de nouvelles case, ca fonctionne....
Vas y comprendre quelque chose.
Merci encore de ton aide
Manu
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
O$KxrCcoKHA.5224@TK2MSFTNGP05.phx.gbl...
Ca ne fonctionne toujours pas, c'est tres etonnant car je suis sur que
chez toi ca marche (je suis en version 2003)
Manu
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
uXMsSmZoKHA.3792@TK2MSFTNGP06.phx.gbl...
Regarde le classeur là :
http://cjoint.com/?bElUxnjo10
Daniel
Ca ne fonctionne pas, je ne comprend pas.
Manu
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
uGi8WRRoKHA.5700@TK2MSFTNGP04.phx.gbl...
Bonsoir.
Sub case_decoche()
Dim cb As CheckBox
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each cb In .CheckBoxes
cb.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
End Sub
Daniel
Bonsoir,
Je souhaiterais pouvoir decocher toutes mes cases à cocher formulaires
d'un seul coup dans une feuil1.
Comment puis je faire,
J'ai ceci, mais je n'y arrive pas :
Sub case_decoche()
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each CheckBoxes In .CheckBoxes
CheckBoxes.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
Range("A7").Select
End Sub
Merci
Manu
En attendant que Daniel revienne,
Est-ce que cela fonctionne, si tu utilises ceci :
Tu adaptes le nom de la feuille.
'------------------------------------
Sub case_decoche()
Dim cb As Shape
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each cb In .Shapes
If TypeName(cb.OLEFormat.Object) = "CheckBox" Then
cb.OLEFormat.Object.Value = xlOff
ActiveWorkbook.Saved = False
End If
Next
ActiveWorkbook.Saved = False
End With
Application.DisplayAlerts = False
End Sub
'------------------------------------
Sub case_coche()
Dim cb As Shape
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each cb In .Shapes
If TypeName(cb.OLEFormat.Object) = "CheckBox" Then
cb.OLEFormat.Object.Value = xlOn
ActiveWorkbook.Saved = False
End If
Next
ActiveWorkbook.Saved = False
End With
Application.DisplayAlerts = False
End Sub
'------------------------------------
"Manu" a écrit dans le message de groupe de
discussion :
Bizarre !!!! Sur tes casea à toi, la macro ne fonctionne pas en revanche si
je crée de nouvelles case, ca fonctionne....
Vas y comprendre quelque chose.
Merci encore de ton aide
Manu
"Manu" a écrit dans le message de news:
O$
Ca ne fonctionne toujours pas, c'est tres etonnant car je suis sur que
chez toi ca marche (je suis en version 2003)
Manu
"Daniel.C" a écrit dans le message de news:Regarde le classeur là :
http://cjoint.com/?bElUxnjo10
DanielCa ne fonctionne pas, je ne comprend pas.
Manu
"Daniel.C" a écrit dans le message de news:Bonsoir.
Sub case_decoche()
Dim cb As CheckBox
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each cb In .CheckBoxes
cb.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
End Sub
DanielBonsoir,
Je souhaiterais pouvoir decocher toutes mes cases à cocher formulaires
d'un seul coup dans une feuil1.
Comment puis je faire,
J'ai ceci, mais je n'y arrive pas :
Sub case_decoche()
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Save
' décoche toute cases à cocher
With Sheets("Feuil1")
For Each CheckBoxes In .CheckBoxes
CheckBoxes.Value = xlOff
ActiveWorkbook.Saved = False
Next
ActiveWorkbook.Saved = False
End With
Range("A7").Select
End Sub
Merci
Manu
Bonjour Daniel,Je ne pense pas. Plus haut dans le fil, Manu voulait des
cases à cocher de la barre Formulaires.
Je n'ai pas lu le fil depuis le début, mais la procédure
proposée fonctionne avec des cases à cocher de la barre
formulaire.
Je n'ai pas saisi ton propos. Désolé.
Bonjour Daniel,
Je ne pense pas. Plus haut dans le fil, Manu voulait des
cases à cocher de la barre Formulaires.
Je n'ai pas lu le fil depuis le début, mais la procédure
proposée fonctionne avec des cases à cocher de la barre
formulaire.
Je n'ai pas saisi ton propos. Désolé.
Bonjour Daniel,Je ne pense pas. Plus haut dans le fil, Manu voulait des
cases à cocher de la barre Formulaires.
Je n'ai pas lu le fil depuis le début, mais la procédure
proposée fonctionne avec des cases à cocher de la barre
formulaire.
Je n'ai pas saisi ton propos. Désolé.
Au temps pour moi.
DanielBonjour Daniel,Je ne pense pas. Plus haut dans le fil, Manu voulait des
cases à cocher de la barre Formulaires.
Je n'ai pas lu le fil depuis le début, mais la procédure
proposée fonctionne avec des cases à cocher de la barre
formulaire.
Je n'ai pas saisi ton propos. Désolé.
Au temps pour moi.
Daniel
Bonjour Daniel,
Je ne pense pas. Plus haut dans le fil, Manu voulait des
cases à cocher de la barre Formulaires.
Je n'ai pas lu le fil depuis le début, mais la procédure
proposée fonctionne avec des cases à cocher de la barre
formulaire.
Je n'ai pas saisi ton propos. Désolé.
Au temps pour moi.
DanielBonjour Daniel,Je ne pense pas. Plus haut dans le fil, Manu voulait des
cases à cocher de la barre Formulaires.
Je n'ai pas lu le fil depuis le début, mais la procédure
proposée fonctionne avec des cases à cocher de la barre
formulaire.
Je n'ai pas saisi ton propos. Désolé.