Gestion de checkbox Activex

Version imprimable

Bonjour la commu!

Je n'arrive décidément pas à trouver la solution à mon problème malgré beaucoup de recherches sur les forums ou de prompts à ChatGPT!!

J'ai un tableau d'une 100aine de lignes
Sur chaque ligne, j'ai une case à cocher ActiveX en colonne E.
Chaque case à cocher est nommée par défaut (Checkbox1, Checkbox2, ..., Checkbox100)
Je veux que lorsqu'on active une checkbox, la case d'à coté en colonne F, ressort un 1.

(contexte: les utilisateurs se constituent ainsi une liste de projets)

Voici le code que j'ai, qui n'est meme pas appelé, et que je ne comprends meme pas (c'est celui de ChatGPT ^^):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim checkBox As OLEObject Dim cell As Range If Not Intersect(Target, Me.Range("E:E")) Is Nothing Then For Each checkBox In Me.OLEObjects If TypeName(checkBox.Object) = "CheckBox" Then If checkBox.TopLeftCell.Row = Target.Row Then Set cell = Me.Cells(Target.Row, "F") If checkBox.Object.Value = True Then cell.Value = 1 Else cell.Value = "" End If Exit For End If End If Next checkBox End If End Sub
HELP ME PLZZZZ...

06/05/2024, 06h18
Philippe Tulliez

Bonjour,
Un CheckBox a pour valeur VRAI ou FAUX et pour le placer dans une cellule, il suffit de l'indiquer dans sa propriété LinkedCell donc au lieu d'avoir 1 ou 0 vous aurez VRAI ou FAUX sans devoir écrire du code VBA.
ChatGPT peut apporter de bonnes réponses si on lui pose les bonnes questions et donc il faut avoir en général de bonnes connaissances sur le sujet.
Même si je trouve que c'est très lourd le seul code VBA à écrire c'est la création des CheckBox en remplissant la propriété LinkedCell avec l'adresse de la cellule et c'est à lancer une seule fois.

[EDIT]
Pour info, la procédure événementielle Worksheet_SelectionChange ne réagit qu'à la seule condition que l'on change de sélection de cellule donc pas un ActiveX.
Pour intercepter le changement d'état d'un CheckBox c'est la procédure événementielle CheckBox1_Click ou encore CheckBox1_Change (pour un CheckBox nommé CheckBox1
06/05/2024, 09h44
Colage

Citation:

Envoyé par Philippe Tulliez

Bonjour,
Un CheckBox a pour valeur VRAI ou FAUX et pour le placer dans une cellule, il suffit de l'indiquer dans sa propriété LinkedCell donc au lieu d'avoir 1 ou 0 vous aurez VRAI ou FAUX sans devoir écrire du code VBA.
ChatGPT peut apporter de bonnes réponses si on lui pose les bonnes questions et donc il faut avoir en général de bonnes connaissances sur le sujet.
Même si je trouve que c'est très lourd le seul code VBA à écrire c'est la création des CheckBox en remplissant la propriété LinkedCell avec l'adresse de la cellule et c'est à lancer une seule fois.

[EDIT]
Pour info, la procédure événementielle Worksheet_SelectionChange ne réagit qu'à la seule condition que l'on change de sélection de cellule donc pas un ActiveX.
Pour intercepter le changement d'état d'un CheckBox c'est la procédure événementielle CheckBox1_Click ou encore CheckBox1_Change (pour un CheckBox nommé CheckBox1

Merci Philippe Tulliez.
Si je comprends bien, vous me proposez d'utiliser plutot des Checkbox classiques (pas des activex), et de paramétrer la LinkedCell. Seulement, il faudrait alors aller paramétrer manuellement une centaine de checkbox, sur une liste qui peut évoluer dans le temps. Ce n'est pas très évolutif.
Auriez vous une autre idée?

Bonjour,

Citation:

Si je comprends bien, vous me proposez d'utiliser plutot des Checkbox classiques (pas des activex), et de paramétrer la LinkedCell

Non pas du tout. Je pensais que vous aviez déjà écrit la procédure qui crée les CheckBox et qu'il suffisait d'ajouter la ligne qui alimente la propriété LinkedCell

Voici un exemple d'une procédure qui fait ce travail

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub CreateCheckBox()
  Const SheetName As String = "Question"   ' Nom de la feuille
  Const CellsAddr As String = "E2:E20"     ' Adresse de la plage
  Const PrefixName As String = "Question_" ' Préfixe du nom et de la légende du CheckBox
  Dim sht As Worksheet
  Dim rng As Range
  Dim Cell As Range
  Dim Chk As checkBox
  Set sht = ThisWorkbook.Worksheets(SheetName)
  Set rng = sht.Range(CellsAddr)
  If sht.CheckBoxes.Count = 0 Then
        For Each Cell In rng
          Set Chk = sht.CheckBoxes.Add(Cell.Left, Cell.Top, Cell.Width, Cell.Height)
          With Chk
          .LinkedCell = Cell.Offset(ColumnOffset:=1).Address
          .Value = False
          .Name = PrefixName & Cell.Row
          .Caption = PrefixName & Cell.Row
          End With
        Next
    Else
      MsgBox prompt:="Il y a déjà des CheckBox dans cette feuille", Buttons:=vbInformation, Title:="Création de CheckBox"
  End If
  Set sht = Nothing: Set sht = Nothing: Set rng = Nothing: Set Cell = Nothing
End Sub

Citation:

Envoyé par Philippe Tulliez

Bonjour,

Non pas du tout. Je pensais que vous aviez déjà écrit la procédure qui crée les CheckBox et qu'il suffisait d'ajouter la ligne qui alimente la propriété LinkedCell

Voici un exemple d'une procédure qui fait ce travail

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub CreateCheckBox()
  Const SheetName As String = "Question"   ' Nom de la feuille
  Const CellsAddr As String = "E2:E20"     ' Adresse de la plage
  Const PrefixName As String = "Question_" ' Préfixe du nom et de la légende du CheckBox
  Dim sht As Worksheet
  Dim rng As Range
  Dim Cell As Range
  Dim Chk As checkBox
  Set sht = ThisWorkbook.Worksheets(SheetName)
  Set rng = sht.Range(CellsAddr)
  If sht.CheckBoxes.Count = 0 Then
        For Each Cell In rng
          Set Chk = sht.CheckBoxes.Add(Cell.Left, Cell.Top, Cell.Width, Cell.Height)
          With Chk
          .LinkedCell = Cell.Offset(ColumnOffset:=1).Address
          .Value = False
          .Name = PrefixName & Cell.Row
          .Caption = PrefixName & Cell.Row
          End With
        Next
    Else
      MsgBox prompt:="Il y a déjà des CheckBox dans cette feuille", Buttons:=vbInformation, Title:="Création de CheckBox"
  End If
  Set sht = Nothing: Set sht = Nothing: Set rng = Nothing: Set Cell = Nothing
End Sub

Génial!! Merci beaucoup Philippe Tulliez, c'est parfait :)