Checkbox dynamique

[sebceline]

Bonjour,

Je sais que ce sujet a été maintes fois évoqués sur ce forum, mais je n'arrive pas à m'en sortir (j'ai peut être été trop gourmand ?).

En fait, je crée une feuille en dynamique à partir de données d'une feuille et de données saisies dans un userform et je veux qu'en regard de chaque colonne il y ait une case à cocher. Jusque là pas de souci, une fois que le formulaire rend la main je me retrouve devant ma feuille et je ne sais pas interpréter l'appui sur une case à cocher : comment faire ?

Au final, ce que je veux c'est tout "simplement" simuler un rapprochement d'opérations : si une case est cochée je dois faire des calculs.

Si ça peut aider, voici ce que j'ai codé :

With Sheets("NonRapprochées")     ' feuille source
        NbrLig = .Cells(65536, Col).End(xlUp).Row
        For Lig = 2 To NbrLig
            NumLig = NumLig + 1
            If .Cells(Lig, Col).Value <> "" And .Cells(Lig, Col).Value <= CDate(TB_DateReleve.Value) Then
                .Cells(Lig, Col).EntireRow.Copy
                Cells(NumLig, 1).Select
                ActiveSheet.Paste
                Set chk = ActiveSheet.CheckBoxes.Add(30, 69, 0, 0)

                With chk
                  .Text = ""
                  .Value = xlOff
                  .ShapeRange.Left = Cells(NumLig, 5).Left
                  .ShapeRange.Top = Cells(NumLig, 5).Top
                End With
            Else
                Exit For
            End If
        Next
    End With

En espérant avoir été clair, merci d'avance pour l'aide que vous pourrez m'apporter.

Seb.

 

[Gorfael]

Re : Checkbox dynamique

Salut sebceline et le forum

With chk
     .Text = ""
     .Value = xlOff
     .ShapeRange.Left = Cells(NumLig, 5).Left
     .ShapeRange.Top = Cells(NumLig, 5).Top
     .OnAction ="Macro_a_lancer"                  'Ligne à ajouter
End With

Dans un module général :

Sub Macro_a_Lancer()
Dim Ctrl As Shape
Set Ctrl = ActiveSheet.Shapes(Application.Caller)
MsgBox Ctrl.TopLeftCell.Address(0, 0)
End sub

Et tu essaies en cochant la nouvelle CheckBox
Par contre, je ne sais pas exploiter les Shapes
A+