Insertion d'une date calendrier dans Textbox

Bonjour,

Les calendriers sont parfois un peu chatouilleux entre différentes versions d'Excel et nécessitent parfois de la configuration au niveau des références.
Je te conseille la solution de pijaku ici : https://forums.commentcamarche.net/forum/affich-28617073-fonction-regexp-sous-vba#4

A+

Salut Zoul67

Merci pour ta réponse, j'ai essayer le code que tu me propose mais
ca marche pas

dès que je clic dans la textbox4 Excel redemarre comprends pas pourquoi

puisque j'ai déja 3 autres textboxs et ca fonctionne tres bien.

Merci a toi

bonne après midi

Cdlt Ray

Re Salut Zoul67

voici le lien du fichier
http://www.cjoint.com/?3JrpLWfDJ09

Le Textbox4 se trouve dans l'userform / Frame10 a coté du label bleu ecrit (Expiration C-B) en bas a gauche en Gris.

Dans l'UserForm, des codes en courts d'essai sont mis en remarque SAUF le code du TexTbox4 celui du lien que tu m'a proposer tout a l'heure.

Merci a toi bon courage, je suis a ta dispo.

je suis ca de près

Bien cdlt Ray

Re

J'avais fait une petite compta juste sur une feuille excel, puis commencant a me débrouillez en VBA, j'ai améliorer la compta.

puis j'ai vu lors de recherche sur le net un modèle fait avec un UserForm c'était bien sympa, alors je me suis lancer dans la création de l'USF et voila

pensant controler ou piloter la compta a partir uniquement de l'USF, c'était mon idée première et c'est plus joli que la feuil d'excel.

pour coder tout ca, j'ai demander de l'aide dans divers forum, alors avec des avis très divers

Maintenant je me débrouille pas trop mal, du moins j'essai car j'aime bien programmer

Pour faire l'USF m'a pris une bonne après midi mais j'avais dessiner la présentation

le but du fichier est ma compta perso simple, gérer CB chéque retrait et les dépenses du mois, rien de complexe

pourquoi si compliquer, c'est parce que j'aime bien apporter pleins de petits plus gadjets qui embellise la présentation, l'automatisme des quelques calculs etc etc

dont pleins que je pourrai me passer, avant c'était la cahier gomme crayon, temps pour les comptes 5 minutes maxi

mais tripoter l'ordi le programme modifier la programmation ca me plait

mais suis bien conscient aussi qu'il ne faut pas que ca rame non plus.

pour la présentation j'ai la patience t'inquiéte pas

voila si tu veux savoir autre chose demande

dispo jusqu'a 20h tous les jours après j'arrete déja beaucoup de micro tous les jours

merci pour tes infos je vais regarder ca pour en savoir davantage

PS facher avec l'anglais mais avec les traducteurs je m'en sors quand mème

a plus tard

Raymond

Bonjour Zoul67, salut Forum

Merci pour ton aide et les recherches que tu fait

Si tu t'intéresses à MonthView, je t'en fournis un exemple d'utilisation : http://cjoint.com/?CJskZgvNOGA

(1) Pour le fichier je l'ai bien, mais je n'ai pas accès aux codes, je pense que c'est protèger ?????

sinon effectivement (MonthView) m'interesse, je cherche pour l'instant a l'ouvrir
sur un clic du Texbox4

pour le refermer je ne sais pas encore, a suivre

-------------------------------

(2) j'ai excel 2007 et que veut dire par l'activer, normalement dans excel 2007
ce n'ai pas utile ????

Ici, comment l'activer dans Office 2010 : http://www.fontstuff.com/vba/vbatut07.htm

(3) Si j'arrive a controler l'ouverture et le fermeture du (MonthView)
il ne restera plus qu'a cliquer sur une date de mon choix et mettre cette date dans le textbox4

Pas trop sur d'avoir raison, j'essai de voir comme ca

61 printemps aujourd'hui alors j'y crois

Bien des mercis a toi, un bon W-end

Bien cordialement Raymond

Bonjour a tous ,bonjour Forum

Salut Zoul67

Tout d'abord merci beaucoup pour mon anniversaire, c'est gentil a toi.
et merci également pour le fichier déprotéger ainsi que le bout de code.

Bien j'ai créer un deuxième petit USF ou j'ai mis le "Monthview" calendrier

'### Le code ci-dessous est dans l'USERFORM (1)

'*** TextBox4 appel userform calendrier

Private Sub TextBox4_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
        TextBox4 = ""                  'On vide le TextBox4
        UserForm2.Show              'On charge l'USF calendrier(Monthview)
End Sub

----------------------

Bilan l'USF(Monthview) s'affiche bien et je peux cliquer sur une date qui va s'inscrire dans le TextBox4 et l'USF(Monthview) qui s'efface ensuite automatiquement

Toujours ok jusque la, Mon premier soucis est le suivant:

(1) je n'arrive pas a tester la date d'expiration a (J-1) qui devrait
faire clignoter le Label321 "Expiration C-B" ainsi que la Date dans le TextBox4

(2) Quand la date que j'ai choisi est inscrite dans le TextBox4
si je quitte mon programme, je sauvegarde bien entendu MAIS

quand j'ouvre le programme de nouveau, la date n'ai pas sauvegarder et le TextBox4 est vide bien sur.

Sinon j'ai presque réussi avec les codes proposés, merci

Le but étant, tu l'aura compris, c'est de faire clignoter le Label321 et le Texte du TextBox4 donc seulement la DATE

A propos du code pour faire clignoter, ca, c'est bon ca marche.

Bonne après midi avec tous mes remerciements

Cordialement Ray

-----------------
Second code dans l'USERFORM (Monthview)

Option Explicit

'*** Pour la minuterie
Private Declare Function GetTickCount Lib "Kernel32" () As Long 
Public DateExpiration
Public Fin As Date

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)

UserForm1.TextBox4.Value = Format(Me.MonthView1.Value, "dd/Mmm/yyyy")

DateExpiration = UserForm1.TextBox4.Value

MsgBox "01--" & DateExpiration

Unload Me            'Quitte le calendrier
End Sub

------------------

'*** CODE POUR L'EXPIRATION "DATE" DE LA CARTE BLEUE
Private Sub UserForm_Activate()
 
 MsgBox "02--" & DateExpiration
      
  'UserForm1.TextBox4.Value = Application.Proper(Format(DateExpiration, "dd/mmm/yyyy"))
         
  'If CDate(Me.TextBox4.Value) - Date <= 1 Then        '(1) corresponds a alarme "1" jour avant la date d'expiration
  'Fin = Time + 0.208 / 3600                           'Temps 5 secondes

        Do While Time < Fin
          UserForm1.TextBox4.ForeColor = vbYellow
          UserForm1.Label321.ForeColor = vbYellow
            Minuterie 500                                  'Toutes les demie secondes
              UserForm1.TextBox4.ForeColor = vbRed         'Rouge Date
              UserForm1.Label321.ForeColor = vbRed         'Rouge Expiration
            Minuterie 500
        Loop
              UserForm1.TextBox4.ForeColor = vbYellow      'Remets en Jaune la date après clignotement
              UserForm1.Label321.ForeColor = vbWhite       'Remets en Blanc la date après clignotement
   ' End If
End Sub

'*** MACRO MINUTERIE POUR DATE D'EXPIRATION
Sub Minuterie(Milliseconde As Long)
    Dim Arret As Long
        Arret = GetTickCount() + Milliseconde

    Do While GetTickCount() < Arret
        DoEvents
    Loop
End Sub

Salut Zoul67

juste pour te dire que j'avais réussi a faire ca que je voulais

non sans mal mais maintenant ca fonctionne bien et pil poil comme je voulais

bonne continuation a toi

merci pour ton aide

bonne soirée
Cordialement Raymond