Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel case à decocher

case à decocher

10 réponses
Avatar
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
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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


Avatar
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

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






Avatar
Daniel.C
Regarde le classeur là :
http://cjoint.com/?bElUxnjo10
Daniel

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

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








Avatar
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
Daniel

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

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












Avatar
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" 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
Daniel

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

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
















Avatar
michdenis
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
Daniel

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

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
















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

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

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


















Avatar
michdenis
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é.
Avatar
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é.


Avatar
Manu
Ca fonctionne nickel michdenis

Merci à vous 2

Manu

"Daniel.C" a écrit dans le message de news:

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é.