U_calandar disparu
Résolu
JCB40
Messages postés
3013
Date d'inscription
Statut
Membre
Dernière intervention
-
JCB40 Messages postés 3013 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3013 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
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
A voir également:
- U_calandar disparu
- Clavier disparu android - Guide
- Invitation facebook disparu - Guide
- Suggestion d'amis facebook disparu - Forum Facebook
- Mes contacts google ont disparu - Accueil - Guide Android
- Évènement facebook disparu - Forum Facebook
11 réponses
Bonjour,
voir ceci
http://www.fontstuff.com
et cela
https://excel.developpez.com/faq/index.php?page=Controle#InstallMSCOMCT2
voir ceci
http://www.fontstuff.com
et cela
https://excel.developpez.com/faq/index.php?page=Controle#InstallMSCOMCT2
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour
Ce que tu me donnes est un logiciel payant.
La partie gratuit ne fait que 21% du travail.
Crdlt
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
J'ai bien MSCOMTL.OCX
Mais je n'ai pas MSCOMCT2.OCX
si 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
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?
Tu 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!
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
le même message que dans le post 4
Voila ce que j'ai quand je tente d'ouvrir le fichier
Regarde 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 :-(
@+
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
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
Comme ceci en adaptant le nom de la TextBox:
Voilà
@+
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à
@+
