Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

selectionner date avec DtPicker

manon

XLDnaute Nouveau
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.
 

Pièces jointes

  • Trésorerie.zip
    40.8 KB · Affichages: 62
  • Trésorerie.zip
    40.8 KB · Affichages: 59
  • Trésorerie.zip
    40.8 KB · Affichages: 61

cbea

XLDnaute Impliqué
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

XLDnaute Barbatruc
Re : selectionner date avec DtPicker


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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…