selectionner date avec DtPicker

[manon]

Bonjour,

J'ai crée un tableau de trésorerie, et je voudrais savoir s'il est posssible avec un contrôle dtpicker, qu'aussitôt la date choisie dans le calendrier, cela entraine la sélection de la colonne où la date choisie est présente, sans être obligé de recliquer sur le contôle pour activer la colonne, comme dans mon fichier joint.
merci à vous.

 

[cbea]

Re : selectionner date avec DtPicker

Bonjour manon,

Voici une solution.
Pour le contrôle "DTPicker1", remplacer l'événement "Click" par l'événement "Change" :

Private Sub DTPicker1_[COLOR="Red"]Change[/COLOR]()
    Dim C As Long
    Range("a2").Value = DTPicker1.Value
    
    'Pour chaque colonne de la feuille
    For C = 2 To 256
        'Si la cellule ligne 1 contient la date du jour
        If Cells(5, C) = Range("a2").Value Then
            'Sélectionne la colonne correspondante
            Columns(C).Select
            'Selection.Interior.ColorIndex = 3 (pour mettre la selection en rouge)
            'Interrompt la boucle
            Exit For
        End If
    Next C
End Sub

 

[gilbert_RGI]

Re : selectionner date avec DtPicker

Bonjour,

J'ai crée un tableau de trésorerie, et je voudrais savoir s'il est posssible avec un contrôle dtpicker, qu'aussitôt la date choisie dans le calendrier, cela entraine la sélection de la colonne où la date choisie est présente, sans être obligé de recliquer sur le contôle pour activer la colonne, comme dans mon fichier joint.
merci à vous.

Bonjour

essayez ceci

Private Sub DTPicker1_Change()
Dim C As Long
'Range("a2").Value = DTPicker1.Value
    'Pour chaque colonne de la feuille
    For C = 1 To 256
        'Si la cellule ligne 1 contient la date du jour
  If Cells(5, C) = Me.DTPicker1.Value Then
        'If Cells(5, C) = Range("a2").Value Then
            'Sélectionne la colonne correspondante
            Columns(C).Select
            'Selection.Interior.ColorIndex = 3 (pour mettre la selection en rouge)
            'Interrompt la boucle
            Exit For
        End If
    Next C

End Sub

Cdlt

RGI

 

[manon]

Re : selectionner date avec DtPicker

RESOLU

ça fonctionne à merveille; merci encore et bonne journée.