Discussion :

[Colage]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[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

[Colage]

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?

[Philippe Tulliez]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Colage]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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