U_calandar disparu
Résolu
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
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
-
ContributeurBonjour,
voir ceci
http://www.fontstuff.com
et cela
https://excel.developpez.com/faq/index.php?page=Controle#InstallMSCOMCT2
-
Bonjour
merci pour ta réponse
Le problème est qu'il est disparu des contrôles activeX -
ça ne marche pas voila ce que j'obtiens comme message
-
Contributeur
-
Bonjour
Ce que tu me donnes est un logiciel payant.
La partie gratuit ne fait que 21% du travail.
Crdlt -
Je suis en 32 bits windows10 et office 2019 32 bits
J'ai bien MSCOMTL.OCX
Mais je n'ai pas MSCOMCT2.OCX-
Contributeursi tu as MSCOMTL.OCX , tu ne peux pas mettre MSCOMCT2.OCX dans le même dossier?
pour télécharger MSCOMCT2.OCX
https://dll-archive.com/fr/telecharger%20mscomct2.ocx.html
-
-
ok j'ai téléchargé le fichier et je dois le mettre ou?
-
ContributeurTu le mets dans le même dossier que MSCOMTL.OCX
ensuite tout est expliqué là pour l'enregistrer
https://excel.developpez.com/faq/index.php?page=Controle#InstallMSCOMCT2
PS ce lien tu l'as eu à ma 1ère réponse!
-
-
ç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
-
ContributeurRegarde cela, c'est bien expliqué:
https://olivier-bureautique.blogspot.com/2016/01/vba-les-activex-de-controle-des-dates.html
Vérifie si tu es bien en Windows10 32 bits
Je ne peux pas faire plus :-(
@+
-
-
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-
ContributeurComme 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à
@+
-
-
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 -
Bonjour
Ok merci
Crdlt
