case à decocher

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #21085451
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


Manu
Le #21087811
Ca ne fonctionne pas, je ne comprend pas.

Manu

"Daniel.C"
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






Daniel.C
Le #21088381
Regarde le classeur là :
http://cjoint.com/?bElUxnjo10
Daniel

Ca ne fonctionne pas, je ne comprend pas.

Manu

"Daniel.C"
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








Manu
Le #21090911
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"
Regarde le classeur là :
http://cjoint.com/?bElUxnjo10
Daniel

Ca ne fonctionne pas, je ne comprend pas.

Manu

"Daniel.C"
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












Manu
Le #21090891
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" 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"
Regarde le classeur là :
http://cjoint.com/?bElUxnjo10
Daniel

Ca ne fonctionne pas, je ne comprend pas.

Manu

"Daniel.C"
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
















michdenis
Le #21091121
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"
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" 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"
Regarde le classeur là :
http://cjoint.com/?bElUxnjo10
Daniel

Ca ne fonctionne pas, je ne comprend pas.

Manu

"Daniel.C"
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
















Daniel.C
Le #21091291
Bonjour Denis.
Je ne pense pas. Plus haut dans le fil, Manu voulait des cases à cocher
de la barre Formulaires.
Daniel

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" 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" 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"
Regarde le classeur là :
http://cjoint.com/?bElUxnjo10
Daniel

Ca ne fonctionne pas, je ne comprend pas.

Manu

"Daniel.C"
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


















michdenis
Le #21092081
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é.
Daniel.C
Le #21093421
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é.


Manu
Le #21096011
Ca fonctionne nickel michdenis

Merci à vous 2

Manu

"Daniel.C"
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é.






Publicité
Poster une réponse
Anonyme