ajouter 42 jours à un DTPicker en fonction d'un 1er DTPicker

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Cappe Pierre
Membre impliqué
Membre impliqué
Messages : 1'997
Appréciations reçues : 8
Inscrit le : 24 novembre 2012
Version d'Excel : 2010

Message par Cappe Pierre » 6 avril 2017, 15:00

Bonjour et à toutes et à tous
Une version modifiée de M12
Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

End Sub

'*******************************************************

Private Sub DTPicker2_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
        Me.DTPicker2 = (DTPicker1.Value + 42)
End Sub
deux DTPickers le 1er sert de date de référence, je second reçoit 42 jours en plus Que code écrire ?
Un grand merci pour votre gentillesse
Amlicalement
Pierrot
Pierrot
Avatar du membre
Cappe Pierre
Membre impliqué
Membre impliqué
Messages : 1'997
Appréciations reçues : 8
Inscrit le : 24 novembre 2012
Version d'Excel : 2010

Message par Cappe Pierre » 6 avril 2017, 15:20

MODIFICATION DE MA DEMANDE:
Un TextBox ferait tout aussi bien l'affaire au lieu du 2ème DTPicker
1.soit DTPicker1 avec une date
2.Un TextBox 2 avec la même date + 42 jours
Merci de votre patience
Amitiés
Pierrot
Pierrot
Avatar du membre
pierrep56
Membre impliqué
Membre impliqué
Messages : 1'092
Appréciations reçues : 177
Inscrit le : 18 juin 2014
Version d'Excel : 2016

Message par pierrep56 » 6 avril 2017, 15:29

Bonjour Pierre,
un truc dans le genre :
date2 = DateAdd("d", 42, date1)
Pierre
Avatar du membre
Cappe Pierre
Membre impliqué
Membre impliqué
Messages : 1'997
Appréciations reçues : 8
Inscrit le : 24 novembre 2012
Version d'Excel : 2010

Message par Cappe Pierre » 6 avril 2017, 15:51

Bonjour Pierre56
en effet c'est quelque chose comme cela, mais j'aurais préféré en lignes de code
parce que je ne sais pas ou placer le code que tu m'as donné ?
j'ai des variables non déclarées, et d'autres messages d'erreurs
Si tu veux bien tester le fichier avec l'Userform_Famille
A PLus
Pierrot
Pédicure_Cp002.xlsm
(117.18 Kio) Téléchargé 27 fois
Pierrot
Avatar du membre
pierrep56
Membre impliqué
Membre impliqué
Messages : 1'092
Appréciations reçues : 177
Inscrit le : 18 juin 2014
Version d'Excel : 2016

Message par pierrep56 » 6 avril 2017, 16:01

Bah, j'ai pas les dtpicker sur mon PC car pas suffisamment de portabilité pour les clients et c'est trop souvent relou.
Mais dans ta sub événementielle Private Sub DTPicker1_Change tu mets un truc genre
TextBox2.Value = DateAdd("d", 42, DTPicker1.Value)
Pierre
Avatar du membre
Cappe Pierre
Membre impliqué
Membre impliqué
Messages : 1'997
Appréciations reçues : 8
Inscrit le : 24 novembre 2012
Version d'Excel : 2010

Message par Cappe Pierre » 6 avril 2017, 16:33

Je suis désolé, ça ne marche toujours pas
Merci pour tous tes efforts, bonne soirée
Amitiés
Pierrot
Pierrot
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • DTPicker
    par ibertrand » 17 janvier 2015, 12:47 » dans Excel - VBA
    3 Réponses
    404 Vues
    Dernier message par galopin01
    17 janvier 2015, 13:57
  • plus de dtpicker, help ?
    par bidochon34800 » 4 juillet 2017, 06:18 » dans Excel - VBA
    1 Réponses
    118 Vues
    Dernier message par grisan29
    4 juillet 2017, 07:31
  • DTpicker et Multipage
    par babarjoh » 21 juin 2017, 21:48 » dans Excel - VBA
    2 Réponses
    252 Vues
    Dernier message par babarjoh
    22 juin 2017, 07:25
  • Calendrier DTPicker
    par chris2015 » 4 février 2015, 14:39 » dans Excel - VBA
    1 Réponses
    185 Vues
    Dernier message par LouReeD
    19 février 2015, 22:08
  • dtpicker visible
    par oly111 » 3 novembre 2017, 16:50 » dans Excel - VBA
    5 Réponses
    133 Vues
    Dernier message par Andre13
    3 novembre 2017, 18:00
  • DTpicker dans off 15
    par pompaero » 11 octobre 2015, 11:17 » dans Excel - VBA
    2 Réponses
    119 Vues
    Dernier message par pompaero
    11 octobre 2015, 17:18