Comment adapter sa case à cocher sous excel? Fermé

Question

Bonjour, 



J'aimerai savoir comment adapter sa case à cocher sous excel à la taille des cellules.

En effet j'ai environ 50 cases à cocher à mettre en place dans mon formulaire et j'aimerai qu'elles soient toutes de la même dimension que les celulles sur lesquelles elles sont placées.


Or si j'appelle une case à cocher, on me donne une celulle qu'il faut que je redimentionne à la main...en terme de precision cela ne va pas être simple pour la redimentionner à la main et cela 50 fois tout en la plaçant au bon endroit pour que toutes les cases à cocher qui seront les unes en dessous des autres soient alignées!

Ya aurait-il moyen de construire de façon automatique une case à cocher correspondant au format de chacune des 50 cellules? 

Merci


Configuration: Windows 7 / Safari 534.16

lermite222 · Answer

Bonjour,
voir ce tuto remplacer les boutons par des CheckBox.
A+

Brel · Answer

Ça:?


http://docs.google.com/...


Il n'y a rien d'expliqué dedans

Mytå · Answer

Salut le forum  

Essaye avec le code suivant :


Sub CreationCheckBox()  
    Dim Obj As OLEObject  
    Dim Cellule As Range  

For Each Cellule In Range("A1:A20")  
    With Cellule  
        Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _  
            DisplayAsIcon:=False, Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)  
     End With  
Next Cellule 
  
End Sub
Mytå

Vaucluse · Answer

Bonjour  

à tout hasard, bien que ça me paraisse un  peu simple pour votre problème, en fonction des autres réponses:  
sélectionner 1° cellule avant de sélectionner l'outil case à cocher  
Insérer case à cocher, la positionner, la calibrer  
sélectionner la cellule  
tirer vers le bas ou copier / coller sur des cellules de même dimensions.  


Crdlmnt 



Demandons nous si nous ne sommes pas seuls à comprendre ce que l'on explique?

michel_m · Answer

bonjour,
ci dessous macro  avec checkbox au format de la cellule et,  au passage pour Vaucluse : incrémentation des adresses de cellules (sur 1 colonne)

Option Explicit

'd 'après '@+Thierry sur XLD
'installe des checkbox sur une feuille
Sub generer_cases_a_cocher()
Dim Chekbox As OLEObject
Dim lig As Integer, col As Byte, lig_fin As Integer
Dim Target As Range

'parametres
lig = 2 'ligne de départ
lig_fin = 50 'ligne fin
col = 2 'colonne d'implantation

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

gbinforme · Answer

bonjour

j'aimerai qu'elles soient toutes de la même dimension que les celulles sur lesquelles elles sont placées.


Pour cela lorsque tu crées ton contrôle, il suffit d'appuyer sur ALT et ton contrôle colle à la taille de la cellule.

Comment adapter sa case à cocher sous excel?

6 réponses

Discussions similaires