problème de checkbox Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
grisan29
Membre impliqué
Membre impliqué
Messages : 1'265
Inscrit le : 26 janvier 2010
Version d'Excel : 2013 pro FR

Message par grisan29 » 3 juin 2016, 09:43

bonjour a tous
dans le post http://forum.excel-pratique.com/excel/f ... 78332.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
Avatar du membre
grisan29
Membre impliqué
Membre impliqué
Messages : 1'265
Inscrit le : 26 janvier 2010
Version d'Excel : 2013 pro FR

Message par grisan29 » 3 juin 2016, 22:02

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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message