[Résolu] Insertion de CheckBox automatique

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu] Insertion de CheckBox automatique

Orocher

Salut,
J'aimerai insérer des checkBox dans des cellules automatiquement. Petite explication du problème:
Dans une colonne (A par ex.) j'ai une liste d'entrée dont le nombre peux évoluer mais admettons qu'une variable "nbre_entrée" détermine ce nombre. Je souhaite dans une autre colonne (E par ex.) mettre en face des cellules des entrées une CheckBox:

Ici nbre_entrée=12 mais peux changer.

Comment dois-je procéder?
Si hou pléééééé :ange:

Message édité par Orocher le 20-10-2005 à 17:44:47

---------------
Tout vient à point à qui sait se détendre

Publicité

Orocher

Peut être faut t'il commencer plus simple, pouvez vous me dire comment par une macro je peux insérer une checkbox dans une feuille? :??: :??: :??: [:atlantis]

Message cité 1 fois

---------------
Tout vient à point à qui sait se détendre

watashi

La démotivation : JAMAIS !

Orocher a écrit :

Peut être faut t'il commencer plus simple, pouvez vous me dire comment par une macro je peux insérer une checkbox dans une feuille? :??: :??: :??: [:atlantis]

l'enregistreur de macro sur excel est très sympa pour trouver les "macro type"
chez moi il donne ça pour ajouter un check box:

Code :

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=80, Top:=80, Width:=10, Height:=10 _
).Select

en jouant sur le top et le left grace au top et au left de la cellule(E1 par exemple) tu devrais pouvoir l'obtenir où tu veux.
Ensuite une petite boucle do...While...loop en testant si tu as des entrée en A... et tu auras tes checkboxes.
Donc tu obtiens une macro de ce type :

Code :

Dim t, l, i
i = 1
Do While Cells(i, 1).Value <> ""
Workbooks("classeur2" ).Activate
Sheets(4).Activate
Cells(i, 5).Select
t = ActiveCell.Top
l = ActiveCell.Left
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=l + 2, Top:=t + 2, Width:=10, Height:=10 _
).Select
i = i + 1
Loop

bon courage
edit : marche sous excel 2002 , comme tu n'as pas indiqué ta config dans le post, j'espère que ça ira...

Message édité par watashi le 20-10-2005 à 16:46:05

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

Orocher

Merki :jap:
Je bosse sur Excel Edition 2003, ça marche nikel

Merci WaTaShi

---------------
Tout vient à point à qui sait se détendre

watashi

La démotivation : JAMAIS !

de rien
si tu edite le titre de ton post avec résolu ça pouura en aider d'autres

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Résolu] Insertion de CheckBox automatique

Sujets relatifs
formulaire [champ deroulant automatique]	[résolu] erreur javascript sous IE (FireFox et Opera ok)
pb résolu: utiliser un modéle pour faire plusieurs copies	dimensionnement automatique de page html
(RESOLU) : Comment ajouter un message d'erreur?	Z-index et objet flash [Résolu]
Résolu : Recherche des doublons dans la base.	(résolu) Boucle For each sur textbox dans userform
[Résolu] Créer une CMainFrame qui ne prend pas le focus à l'ouverture	[resolu]reset pour les textbox
Plus de sujets relatifs à : [Résolu] Insertion de CheckBox automatique

Page générée en 0.048 secondes