selectionner date avec DtPicker

manon · 21 Mai 2008

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 · 21 Mai 2008

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" :

Code:

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 · 21 Mai 2008

Re : selectionner date avec DtPicker

manon à dit:
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

Code:

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 · 21 Mai 2008

Re : selectionner date avec DtPicker

RESOLU

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

selectionner date avec DtPicker

manon

XLDnaute Nouveau

Pièces jointes

cbea

XLDnaute Impliqué

gilbert_RGI

XLDnaute Barbatruc

manon

XLDnaute Nouveau

Discussions similaires