Problème de checkbox

bonjour a tous

dans le post https://forum.excel-pratique.com/excel/formulaire-qui-rempli-des-cellules-specifique-t78332.html où j’essaie d'arranger le classeur de ECKER j'ai un souci avec les checkbox dont je n'y connais pas grand chose vu que j'en utilise pas

donc le code original qui fonctionne bien mais se bloque a mi chemin de la colonne les checkbox fonctionne bien et dont voici le code

Private Sub Combobox1_Change()
Dim Ligne As Long
Dim I As Integer, J As Integer
Dim TB
Dim cel As Range
With Sheets("BD").Range("A2:AU20")

Set cel = .Find(ComboBox1, , xlValues, xlWhole)
    If Me.ComboBox1.ListIndex = -1 Then Exit Sub
    Ligne = Me.ComboBox1.ListIndex + 2
    For I = 1 To 19
        Me.Controls("TB" & I) = Ws.Cells(Ligne, I + 0)
    Me.TB_date = cel.Offset(0, 18)
        Me.TB_date1 = cel.Offset(0, 19)
        Me.TB_date2 = cel.Offset(0, 20)
        Me.TB_date3 = cel.Offset(0, 21)
        Me.TB_date4 = cel.Offset(0, 22)
    Next I
J = 25
        For I = 1 To 17
        If Ws.Cells(Ligne, J) = True Then
            Me.Controls("CheckBox" & I).Value = True
        Else
            Me.Controls("CheckBox" & I).Value = False
        End If
        J = J + 1
    Next I
  End With
End Sub

voici la modification que j'ai fait , la combobox fonctionne bien mais plus les checkbox que j'ai mis en commentaire

Private Sub Combobox1_Change()
Dim Ligne As Long
Dim I As Integer, J As Integer
Dim plage As Range
    Set plage = Sheets("BD").Range("A2:AU1000")
    CB1 = plage(1 + ComboBox1.ListIndex, 1)
    TB2 = plage(1 + ComboBox1.ListIndex, 2)
    TB3 = plage(1 + ComboBox1.ListIndex, 3)
    CB4 = plage(1 + ComboBox1.ListIndex, 4)
    CB5 = plage(1 + ComboBox1.ListIndex, 5)
    CB6 = plage(1 + ComboBox1.ListIndex, 6)
    CB7 = plage(1 + ComboBox1.ListIndex, 7)
    TB8 = plage(1 + ComboBox1.ListIndex, 8)
    CB9 = plage(1 + ComboBox1.ListIndex, 9)
    TB10 = plage(1 + ComboBox1.ListIndex, 10)
    CB11 = plage(1 + ComboBox1.ListIndex, 11)
    CB12 = plage(1 + ComboBox1.ListIndex, 12)
    Me.TB_date = plage(1 + ComboBox1.ListIndex, 20)
        Me.TB_date1 = plage(1 + ComboBox1.ListIndex, 21)
        Me.TB_date2 = plage(1 + ComboBox1.ListIndex, 22)
        Me.TB_date3 = plage(1 + ComboBox1.ListIndex, 23)
        Me.TB_date4 = plage(1 + ComboBox1.ListIndex, 24)

'J = 25
       ' For I = 1 To 17
       ' If Ws.Cells(Ligne, J) = True Then
         '   Me.Controls("CheckBox" & I).Value = True
        'Else
          '  Me.Controls("CheckBox" & I).Value = False
        'End If
        'J = J + 1
    'Next I
'  End With
End Sub

tout est expliquer dans le post de ecker et le classeur y est aussi

bonsoir a tous

en fait c'est très simple de trouver la solution du blocage a 20 lignes car c'est écris noir sur blanc

With Sheets("BD").Range("A2:AU20")

il faut mettre 200 ou plu où moins et cela fonctionne

Rechercher des sujets similaires à "probleme checkbox"