U_calandar disparu

Résolu
JCB40 Messages postés 3058 Date d'inscription   Statut Membre Dernière intervention   -  
JCB40 Messages postés 3058 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
J'ai un fichier depuis des années qui me sert a faire mes comptes.
Sur l'userform j'ai un bouton qui me sert a appeler le calendrier or depuis ce matin le calendrier ne fonctionne plus.
Avez vous une idée sur ce souci?
Cordialement

Configuration: Windows / Firefox 66.0

11 réponses

  2.
    JCB40 Messages postés 3058 Date d'inscription   Statut Membre Dernière intervention   479
     
    Bonjour

    merci pour ta réponse
    Le problème est qu'il est disparu des contrôles activeX
    0
    1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      regarde le 2ème lien
      0
  3. JCB40 Messages postés 3058 Date d'inscription   Statut Membre Dernière intervention   479
     
    ça ne marche pas voila ce que j'obtiens comme message
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. JCB40 Messages postés 3058 Date d'inscription   Statut Membre Dernière intervention   479
     
    Bonjour

    Ce que tu me donnes est un logiciel payant.
    La partie gratuit ne fait que 21% du travail.
    Crdlt
    0
    1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      Si ta version de Windows est une version 64 bits, copie le fichier dans le dossier c:\Windows\Syswow64 avant de procéder à l'inscription du fichier dans le registre. (Le fichier se trouvant dans le dossier system32 est destiné aux versions Windows 32 bits.

      Voilà
      0
    2. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       


      Voici le dossier des DLL et OCX pour Windows 64 bits
      0
  7. JCB40 Messages postés 3058 Date d'inscription   Statut Membre Dernière intervention   479
     
    Je suis en 32 bits windows10 et office 2019 32 bits
    J'ai bien MSCOMTL.OCX
    Mais je n'ai pas MSCOMCT2.OCX
    0
  8. JCB40 Messages postés 3058 Date d'inscription   Statut Membre Dernière intervention   479
     
    ok j'ai téléchargé le fichier et je dois le mettre ou?
    0
  9. JCB40 Messages postés 3058 Date d'inscription   Statut Membre Dernière intervention   479
     
    ça ne fonctionne toujours pas
    le même message que dans le post 4
    Voila ce que j'ai quand je tente d'ouvrir le fichier

    0
  10. JCB40 Messages postés 3058 Date d'inscription   Statut Membre Dernière intervention   479
     
    Bonjour
    J'abandonne l'idée du calendrier tant pis
    je te mets le code que j'ai pour l'userform
    comment je dois coder pour avoir dans la textebox datele format suivant:23/5/2019
    que les 2 slashes soient mis d'office ?
    merci pour ton aide
    Crdlt

    Private Sub CmdAjouter_Click()
    'on vérifie que les champs sont bien remplis
    If Cmb_Nom.Text = "" Then
    MsgBox "Veuillez renseigner le nom", vbCritical, "champs manquants"
    Cmb_Nom.SetFocus
    Exit Sub
    End If
    Nlig = F01.Range("B" & Rows.Count).End(xlUp).Row + 1
    ' on remplit les données dans le tableau
    F01.Range("B" & Nlig).Value = DateValue(TxtDate.Text)
    F01.Range("C" & Nlig).Value = UCase(Cmb_Nom.Text)
    F01.Range("D" & Nlig).Value = UCase(Cmb_Paiement.Text)
    F01.Range("E" & Nlig).Value = TxtEntrée.Text
    F01.Range("F" & Nlig).Value = TxtSortie.Text
    F01.Range("M" & Nlig).Value = UCase(TxtCommentaire.Text)
    ' on efface le formulaire et on replace le curseur sur la case ( Nom )
    TxtDate.Text = ""
    Cmb_Nom.Text = ""
    Cmb_Paiement.Text = ""
    TxtEntrée.Text = ""
    TxtSortie.Text = ""
    TxtCommentaire.Text = ""
    TxtDate.SetFocus
    End Sub
    0
    1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      Comme ceci en adaptant le nom de la TextBox: 

      Option Explicit
Dim num As Boolean
Dim caract As String
Dim Valeur As Byte
Private Sub TextBox1_Change()
If num = True Then '1er caractère
'ancien
TextBox1.MaxLength = 10 'nb caracteres maxi dans textbox
 Valeur = Len(TextBox1)
If Valeur = 2 Or Valeur = 5 Then TextBox1 = TextBox1 & "/"
Else
'nouveau
TextBox1.MaxLength = 9 'nb caracteres maxi dans textbox
 Valeur = Len(TextBox1)
If Valeur = 2 Or Valeur = 6 Then TextBox1 = TextBox1 & "-"
End If
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
caract = Left(TextBox1.Value, 1)
If IsNumeric(caract) Then
num = True
Else
num = False '
End If
End Sub


      Voilà

      @+
      0
  11. JCB40 Messages postés 3058 Date d'inscription   Statut Membre Dernière intervention   479
     
    J'ai mis ton code à la suite de celui qui existe voir post 15
    en remplaçant TextBox1 par TxtDate et cela ne fonctionne pas
    je ne peux rien inscrire dans TxtDate de l'userform
    0
    1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      voici un exemple à télécharger:

      https://www.cjoint.com/c/IExqJoP08fQ

      @+
      0
  12. JCB40 Messages postés 3058 Date d'inscription   Statut Membre Dernière intervention   479
     
    Bonjour

    Ok merci
    Crdlt
    0

Discussions similaires

Facebook rencontres a disparu.
Dav3601 -
Seve704 -

12 réponses
Coeur rouge Snapchat disparu
SpicyYeol -
Alala -

3 réponses
Photo de profil Messenger disparue : pourquoi et que faire
shadow1438 -
shadow1438 -

3 réponses
Facebook rencontre introuvable
Gourami -
vinz -

7 réponses
Pourquoi je ne vois pas mes suggestions d'amis sur FACEBOOK?
Jojo -
Radinoz -

3 réponses