Microsoft 365 Dateur Patricktoulon

Piment · 13 Juin 2025

Patrick bonjour.
Je crée cette nouvelle discussion afin que tu m'aides sur la mise en œuvre de ton dateur "new calendar Full Working-WIN-MAC V 2024 .5.1".
J'ai copié tes codes dans mon fichier. Lorsque je click sur ma Textbox "Date", il ouvre bien le dateur, je choisi une date et il me ferme mon Userform. Il ferme le Userform du Dateur mais également l'UserForm qui contient ma texBox. Il ferme tout.
J'ai placé ce code au début de ma feuille de code de mon UserForm :

Option Explicit
Private BuiltInFieldName As New Class_BuiltInFieldName

'**********************************************************************************
' __ _____ ___ . ___ _____ ___ ___
'|__| /\ | | | | | | / | | | | | | | | |\ |
'| /__\ | |--- | | |/\ | | | | | | | | | \ |
'| / \ | | \ | |___ | \ | |___| |___| |__ |___| | \|
'
'***********************************************************************************
' USERFORM DU CALENDAR

Private Sub Txt_Date_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then
Txt_Date = Calendar.ShowX(Txt_Date, 0, 2, 0)
End If
End Sub

Private Sub Cbx_RecherchNom_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If bLooping = False Then MouseWheelOut Cbx_RecherchNom, Y
End Sub

Private Sub Cbx_RecherchNom_Change()
Call Recherche
End Sub

Private Sub Txt_NumTel_Change()
Txt_NumTel = Format(Txt_NumTel, "0# ## ## ## ##")
End Sub

Merci à toi.

Piment · 13 Juin 2025

Piment à dit:
Merci Patrick. Super. Top.
J'ai un autre soucis sur une formule. Je continue sur ce fil ou j'en crée un autre.
Dans le doute : Dans la cellule j'essai d'appliquer cette formule, mais je n'y arrive pas :

VB:

Tbl_ListClients[[#Totaux];[Nom Prénom]] & " " & IF(Tbl_ListClients[[#Totaux];[Nom Prénom]]>1;"Clients";"Client")

En gros il récupère le nombre total de la Colonne "Nom Prénom" et il ajoute "Client Inscrit" au singulier si le nombre est égal à 0 ou 1, et si >1 "Clients Inscrits" au pluriel : ce qui me donne "1 Client Inscrit" ou "10 Clients Inscrits". Merci

C'est bon j'ai réglé le problème : la formule

VB:

=SI(Tbl_ListClients[[#Totaux];[Nom Prénom]]>1;Tbl_ListClients[[#Totaux];[Nom Prénom]]&" "&"Clients...

Dranreb · 13 Juin 2025

Bonjour.
Avec le mien on fait :

VB:

Private Sub Txt_Date_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then Calend.Coupler "Echéance", Txt_Date
End Sub

Il n'y aurait aucune raison interne qu'il ferme l'UserForm.

cathodique · 13 Juin 2025

Bonjour,

Personnellement, j'utilise le calendrier autonome de @patricktoulon et je n'ai jamais eu de souci.
Maintenant, tu le désignes "Dateur". Est-ce bien le même truc qu'on utilise?
Tu aurais dû envoyé un message privé à Patrick.
Pourrais-tu joindre un fichier avec ce dateur inclus. il se pourrait que tu ne l'utilises pas convenablement.
Bonne journée.

Edit: Est-ce que tu utilises cette ressource

Piment · 13 Juin 2025

cathodique à dit:
Bonjour,

Personnellement, j'utilise le calendrier autonome de @patricktoulon et je n'ai jamais eu de souci.
Maintenant, tu le désignes "Dateur". Est-ce bien le même truc qu'on utilise?
Tu aurais dû envoyé un message privé à Patrick.
Pourrais-tu joindre un fichier avec ce dateur inclus. il se pourrait que tu ne l'utilises pas convenablement.
Bonne journée.

Edit: Est-ce que tu utilises cette ressource

Dranreb, cathodique bonjour et merci pour vos contributions.
Dranreb merci pour votre proposition, mais je vais rester avec le dateur de patrick. il est modifiable, et je peux "jouer" avec les couleurs du dateur, ce qui me permet de l'adapter aux codes couleurs de la petite entreprise de mon amie.
Cathodique, j'utilise la version suivante : Version:5.1. Je te mets ci-joint un petit fichier. J'aurais aimé également déclencher le dateur par double clics dans la textBox plutot que clic droit.
Merci à vous.

cathodique · 13 Juin 2025

Piment à dit:
clics dans la textBox plutot que clic droit.

comme ci-dessous

VB:

Private Sub Txt_Date_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 Then
        Txt_Date = Calendar.ShowX(Txt_Date, 0, 2, 0)
    End If
End Sub

patricktoulon · 13 Juin 2025

Bonjour
on peut avoir le userform appelant pour voir

Piment · 13 Juin 2025

patricktoulon à dit:
Bonjour
on peut avoir le userform appelant pour voir

Re Cathodique merci pour le code. Je teste et te fais un retour.
Patrick, tu avais raison : J'ai fermé le fichier et je l'ai réouvert, et tout fonctionne. Je pense qu'il devait y avoir un parasitage du fait que j'avais ton fichier d'origine ouvert : fichier où j'ai récupéré ton code. Maintenant ça fonctionne.
Je teste la modif de Cathodique et je reviens vers vous.

Piment · 13 Juin 2025

Piment à dit:
Re Cathodique merci pour le code. Je teste et te fais un retour.
Patrick, tu avais raison : J'ai fermé le fichier et je l'ai réouvert, et tout fonctionne. Je pense qu'il devait y avoir un parasitage du fait que j'avais ton fichier d'origine ouvert : fichier où j'ai récupéré ton code. Maintenant ça fonctionne.
Je teste la modif de Cathodique et je reviens vers vous.

Patrick, tu as le fichier test au #4. Merci de vérifier.

patricktoulon · 13 Juin 2025

j'ai refait ton theme plus harmonieux avec ton interface

Piment · 13 Juin 2025

patricktoulon à dit:
j'ai refait ton theme plus harmonieux avec ton interface
Regarde la pièce jointe 1219247

Merci Patrick. Super. Top.
J'ai un autre soucis sur une formule. Je continue sur ce fil ou j'en crée un autre.
Dans le doute : Dans la cellule j'essai d'appliquer cette formule, mais je n'y arrive pas :

VB:

Tbl_ListClients[[#Totaux];[Nom Prénom]] & " " & IF(Tbl_ListClients[[#Totaux];[Nom Prénom]]>1;"Clients";"Client")

En gros il récupère le nombre total de la Colonne "Nom Prénom" et il ajoute "Client Inscrit" au singulier si le nombre est égal à 0 ou 1, et si >1 "Clients Inscrits" au pluriel : ce qui me donne "1 Client Inscrit" ou "10 Clients Inscrits". Merci

Piment · 13 Juin 2025

Piment à dit:
Merci Patrick. Super. Top.
J'ai un autre soucis sur une formule. Je continue sur ce fil ou j'en crée un autre.
Dans le doute : Dans la cellule j'essai d'appliquer cette formule, mais je n'y arrive pas :

VB:

Tbl_ListClients[[#Totaux];[Nom Prénom]] & " " & IF(Tbl_ListClients[[#Totaux];[Nom Prénom]]>1;"Clients";"Client")

En gros il récupère le nombre total de la Colonne "Nom Prénom" et il ajoute "Client Inscrit" au singulier si le nombre est égal à 0 ou 1, et si >1 "Clients Inscrits" au pluriel : ce qui me donne "1 Client Inscrit" ou "10 Clients Inscrits". Merci

C'est bon j'ai réglé le problème : la formule

VB:

=SI(Tbl_ListClients[[#Totaux];[Nom Prénom]]>1;Tbl_ListClients[[#Totaux];[Nom Prénom]]&" "&"Clients Inscrits";Tbl_ListClients[[#Totaux];[Nom Prénom]]&" "&"Client Inscrit")

Merci Bonne soirée.

Piment · 14 Juin 2025

Piment à dit:
C'est bon j'ai réglé le problème : la formule

VB:

=SI(Tbl_ListClients[[#Totaux];[Nom Prénom]]>1;Tbl_ListClients[[#Totaux];[Nom Prénom]]&" "&"Clients Inscrits";Tbl_ListClients[[#Totaux];[Nom Prénom]]&" "&"Client Inscrit")

Merci Bonne soirée.

Patrick bonjour, je reviens vers toi au sujet du dateur.
J'ai voulu l'intégrer dans mon fichier, mais il s'affiche en mode "US". J'ai cherché où modifier pour l'avoir en Français, mais je n'ai pas trouvé.
Si tu pouvais m'aider.
Merci

patricktoulon · 14 Juin 2025

c'est le dernier argument la region
c'est pourtant clairement expliqué dans les commentaires de préhambule

patricktoulon · 14 Juin 2025

pour info
Select Case Target.Column

Case 1: Target = Calendar.ShowX(Target(1), 2, 0, 0): ' region = 0 ou "US" Etats Unis

Case 2: Target = Calendar.ShowX(Target(1), 2, 0, 1): ' region = 1 ou "FR" France

Case 3: Target = Calendar.ShowX(Target(1), 2, 0, 2): ' region = 2 ou "CA" Canada

Case 4: Target = Calendar.ShowX(Target(1), 2, 0, 22): ' region = 22 "QUEBEC" Canada

Case 5: Target = Calendar.ShowX(Target(1), 2, 0, 12): ' region = 12 "iTALY"

Case 6: Target = Calendar.ShowX(Target(1), 2, 0, 13): ' region = 13 "suisse"

Case 7: Target = Calendar.ShowX(Target(1), 2, 0, 33): ' region = 33 "Grande bretagne Royaume Uni"

Case 8: Target = Calendar.ShowX(Target(1), 2, 0, 44): ' region = 44 "Belgique"

Case 9: Target = Calendar.ShowX(Target(1), 2, 0, 14): ' region = 14 "Espagne"

Case 10: Target = Calendar.ShowX(Target(1), 2, 0, 15): ' region = 15 "Portugal"

Case 11: Target = Calendar.ShowX(Target(1), 2, 0, 11): ' region = 11 "breton"

Case 12: Target = Calendar.ShowX(Target(1), 2, 0, 35): ' region = 35 "allemagne(deutschland)"
Case Else: Target = Calendar.ShowX(Target(1), 2, 0): 'automatique region

End Select

Piment · 24 Juin 2025

Bonjour Patrick.
Je t'interpelle de nouveau au sujet de ton "Calendar" : je l'ai intégré dans l'un de mes fichiers et il est "rogné" en bas et à droite (Voir image).

Si tu pouvais m'aider. Merci.

Microsoft 365 Dateur Patricktoulon

Piment

XLDnaute Impliqué

Piment

Dranreb

XLDnaute Barbatruc

Pièces jointes

cathodique

XLDnaute Barbatruc

Piment

XLDnaute Impliqué

Pièces jointes

cathodique

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Piment

XLDnaute Impliqué

Piment

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Piment

XLDnaute Impliqué

Piment

XLDnaute Impliqué

Piment

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Piment

XLDnaute Impliqué

Discussions similaires

Microsoft 365 Dateur Patricktoulon

XLDnaute Impliqué

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Impliqué

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Barbatruc

Pièces jointes

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency