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é :
En espérant avoir été clair, merci d'avance pour l'aide que vous pourrez m'apporter.
Seb.
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é :
Code:
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 WithEn espérant avoir été clair, merci d'avance pour l'aide que vous pourrez m'apporter.
Seb.