Discussion :

[pilounet54]

bonjour
j'ai unScrollBar et si la valeur et vide d'une cellule de la colonne C
j'ai un bug avec le

Code :

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

DTPicker1

et si la cellule a une valeur date pas de bug

Code :

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

1
2
3
4
5
6
Private Sub ScrollBar1_Change()
    ligne = ScrollBar1.Value
        'ScrollBar2.Max = Sheets("Bilan").Range("c65000").End(xlUp).Row
        'Ligne = ScrollBar2.Value
       DTPicker1.Value = Range("c" & ligne).Value 
End Sub

j'ai le message suivant :

erreur d'execution 35787 can't set value to null when checkbox propety =false

avez vous une solution svp

[ESVBA]

Avec une condition :

Code :

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

1
2
3
4
5
6
Private Sub ScrollBar1_Change()
    ligne = ScrollBar1.Value
        'ScrollBar2.Max = Sheets("Bilan").Range("c65000").End(xlUp).Row
        'Ligne = ScrollBar2.Value
       if IsDate(Range("c" & ligne).Value) then DTPicker1.Value = Range("c" & ligne).Value 
End Sub

Avec les limites de la fonction "isdate()"


ESVBA

[pilounet54]

merci quelle classe !