Case a cocher Excel
Fermé
laurrent
Messages postés
107
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
1 janvier 2013
-
24 juil. 2011 à 12:06
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 24 juil. 2011 à 14:42
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 24 juil. 2011 à 14:42
A voir également:
- Case a cocher Excel
- Liste déroulante excel - Guide
- Aller à la ligne excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Mise en forme conditionnelle excel - Guide
3 réponses
Syzygy
Messages postés
378
Date d'inscription
vendredi 29 avril 2011
Statut
Membre
Dernière intervention
31 décembre 2011
142
24 juil. 2011 à 12:15
24 juil. 2011 à 12:15
Bonjour,
Un bon conseil, laissez tomber cette idée. Les cases à cocher ne sont qu'un simple ornement sous Excel.
Pour vous donner une idée de ce que celà représenterait, il vous faudrait placer manuellement vos 150 cases à cocher, puis les lier à 150 cellules pour enfin pouvoir écrire une macro qui vous permettra de faire ce que vous demandez dans la seconde question...
En résumé, çà va vous prendre un temps énorme. Donc passez directement par des cellules (un "X" dans une cellule pouvant faire office de case à cocher non?)
Après, pour votre seconde question, vous devriez pouvoir vous en sortir avec une macro basée sur un événement "After_Update"
Bonne recherche.
Un bon conseil, laissez tomber cette idée. Les cases à cocher ne sont qu'un simple ornement sous Excel.
Pour vous donner une idée de ce que celà représenterait, il vous faudrait placer manuellement vos 150 cases à cocher, puis les lier à 150 cellules pour enfin pouvoir écrire une macro qui vous permettra de faire ce que vous demandez dans la seconde question...
En résumé, çà va vous prendre un temps énorme. Donc passez directement par des cellules (un "X" dans une cellule pouvant faire office de case à cocher non?)
Après, pour votre seconde question, vous devriez pouvoir vous en sortir avec une macro basée sur un événement "After_Update"
Bonne recherche.
laurrent
Messages postés
107
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
1 janvier 2013
17
24 juil. 2011 à 14:12
24 juil. 2011 à 14:12
A la base j'avais mis des X, j'ai pour l'instant que mis des cases cocher sur la premiere ligne en attendant de voir si un outil de recopie ete possible et si la mise en forme pouvais etre assez precise pour me plaire.
Sur vos conseils je vais retourner aux X je pense.
Merci
Sur vos conseils je vais retourner aux X je pense.
Merci
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
24 juil. 2011 à 14:42
24 juil. 2011 à 14:42
Bonjour
essaies cette macro paramétrable à tes besoins
essaies cette macro paramétrable à tes besoins
Sub creer_cases_a_cocher(lig As Byte, lig_fin As Byte, col As Byte)
'lig=ligne de départ,lig_fin=ldernière ligne,col=colonne d'implentation
Dim Chekbox As OLEObject
Dim Target As Range
Do Until lig = lig_fin + 1
Set Target = ActiveSheet.Cells(lig, col)
Set Chekbox = ActiveSheet.OLEObjects. _
Add(ClassType:="Forms.CheckBox.1", _
Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
lig = lig + 1
Loop
End Sub
'par exemple 3x50 cases sur colonnes 3,5,7
Sub implanter_cases_a_cocher()
Application.ScreenUpdating = False
creer_cases_a_cocher 2, 51, 3
creer_cases_a_cocher 2, 51, 5
creer_cases_a_cocher 2, 51, 7
End Sub
