cases a cocher en vba

Question

Bonjour, 
Je voudrais créer en vba, des cases a cocher sur plusieurs lignes avec des cellules liée dans un fichier excel
Merci pour votre aide
Alain

NHenry · Answer

Nous ne sommes pas là pour faire vos exercices :
http://www.commentcamarche.net/faq/10925-demander-de-l-aide-pour-vos-exercices-sur-ccm

jordane45 · Answer

Bonjour,

Un moteur de recherche...4 mots...10 secondes.... et Hop... un exemple prêt à l'emploie...

http://www.mrexcel.com/forum/excel-questions/180887-add-checkboxes-through-visual-basic-applications-code.html

Code trouvé sur ce site :

Sub test()    Dim ToRow As Long    Dim LastRow As Long    Dim MyLeft As Double    Dim MyTop As Double    Dim MyHeight As Double    Dim MyWidth As Double    '--------------------------    LastRow = Range("D65536").End(xlUp).Row    For ToRow = 2 To LastRow        If Not IsEmpty(Cells(ToRow, "D")) Then            '-            MyLeft = Cells(ToRow, "C").Left            MyTop = Cells(ToRow, "C").Top            MyHeight = Cells(ToRow, "C").Height            MyWidth = MyHeight = Cells(ToRow, "C").Width            '-            ActiveSheet.CheckBoxes.Add(MyLeft, MyTop, MyWidth, MyHeight).Select             With Selection                .Caption = ""                .Value = xlOff                .LinkedCell = "C" & ToRow                .Display3DShading = False                '------------------------------------------------------                '- format                .Placement = xlFreeFloating                .PrintObject = True                '-------------------------------------------------------                .ShapeRange.Fill.Visible = msoTrue                .ShapeRange.Fill.Solid                .ShapeRange.Fill.ForeColor.SchemeColor = 13                .ShapeRange.Fill.Transparency = 0#                .ShapeRange.Line.Weight = 0#                .ShapeRange.Line.DashStyle = msoLineSolid                .ShapeRange.Line.Style = msoLineSingle                .ShapeRange.Line.Transparency = 0#                .ShapeRange.Line.Visible = msoTrue                .ShapeRange.Line.ForeColor.SchemeColor = 64                .ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)                '-------------------------------------------------------------            End With        End If    NextEnd Sub
 
 
Après... ce n'est qu'un exemple.

A VOUS de l'adapter à vos besoins.



Au passage, merci de passer faire un tour sur ces liens (pour vos prochaines questions )

http://codes-sources.commentcamarche.net/contents/11-charte-de-commentcamarche-net-conseils-d-ecriture


http://codes-sources.commentcamarche.net/forum/affich-1557761-bar-sujet-de-pfe-tp-et-autres-devoirs-scolaires#top

http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

Cases a cocher en vba

2 réponses

Votre réponse

Discussions similaires