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