Une case à cochée magique
Bonjour à tous, tout d'abord, je tiens à signaler que je suis novice
Salut NiCrys,
Utilise un bouton d'option : Edition / Barres d'outils / Formulaire
Choisir l'icone "Bouton d'option" et en mettre autant que tu veux dans ta feuille.
Clic droit sur l'un des boutons / Format de contrôle / Lier avec la cellule désirée. Seul l'un de ces boutons sera sélectionné.
Pour établir plusieurs sélections sur une seule feuille, crée avec la même barre d'outils des "Zones de groupe".
A te relire
Salut
Salut Yvouille, le Forum et bienvenue à toi NiCrys
Je n'ai pas compris la même chose que Yvouille.
Une macro associé à ta Case à Cocher (Outils - Formulaire) qui va remettre
à False toutes tes cases à cocher de la feuille.
Sub ResetCaseFormulaire()
Dim Forme As Shape
For Each Forme In ActiveSheet.Shapes
If Left(Forme.Name, 9) = "Check Box" Then Forme.ControlFormat = False
Next Forme
End SubMytå
Oui, c'est tout à fait ce que je recherche, Mytâ...mais comme je le disais je suis novice:
et forcément lorsque j'ai coller ta ligne de macro, ça n'a pas fonctionné.
1-Dois-je inscrire quelque chose entre les parenthèses:
Sub ResetCaseFormulaire(??????????)
Dim Forme As Shape
For Each Forme In ActiveSheet.Shapes
If Left(Forme.Name, 9) = "Check Box" Then Forme.ControlFormat = False
Next Forme
End Sub
2-Le 9, sera t'il forcement 9 sur ma feuille(à quoi correspond t'il??)
3-Sur ma feuille, ma macro commence par:
Sub Caseàcocher1_Clic()
Dois-je retirer cette ligne???
J'attend ta réponse patiemment, et te remercie d'avance.
PS:Je te remercie également Yvouille, pour ta rapidité, même si ce n'est pas la réponse que j'attendais.
Re le forum
Un petit fichier en pièce joint, qui devrait t'aider.
Pour le vba ALT+F11 et CTRL+R
ALT+I (Insertion) et ALT+M (Module)
https://www.excel-pratique.com/~files/doc/NiCrys.xls
Mytå
P.S. Enregistre le fichier sur ton HDD avant de l'ouvrir
T'es trop fort, Mytâ...!!! ça fonctionne impéccable et je t'en remercie...
Salut le forum
Ca m'a fait plaisir de t'aider NiCrys, au plaisir d'une prochaine ficelle...
Mytå