problème calendrier autonome qui affiche seulement la date du jour et non les autres

[piga25]

Bonjour le forum
En ces moments de confinement, mes collègues mon fait part d'un petit bug sur une de mes applications que j'ai réalisé avec l'aide du Forum.
Aux fins de renseigner des dates dans des Userforms, j'utilise un calendrier autonome (Auteur Bru). Cela fonctionne très bien quand c'est la date du jour, cela renseigne bien au bon endroit. Par contre si je veux utiliser, par exemple une autre date que celle du jour, cela ne fonctionne pas, cela me renvoi toujours la date du jour.
Ex: Sur la feuille accueil après avoir cliqué sur le bouton Evènement, puis sur l'icone Explosif (Correspond à l'userform7 et au TexteBox 1, 7 et suivants), Dans cet Userform7, j'ai bien la bonne date choisie, mais lorsque cela me la copie sur la Feuille BD Tir, cela me mets systématiquement la date du jour.

Si vous pouvez me dire ou se trouve l'erreur, je pourrai modifier les codes pour les autres Userforms concernés.

En vous remerciant
Cordialement PIGA25

 

[Paf]

Bonjour,

sur Userform7 ,sur les textbox 1,7,13 et 19, si le jour et le mois sont "intervertibles", ils le seront à l'écriture dans la feuille ! (je ne sais pourquoi !)
si on choisit 06/04/2020 on enregistrera 04/06/2020

Pour parer, dans Private Sub CommandButton1_Click() une solution possible:

Remplacer

For k = 1 To 108
    i = i + 1
        .Cells(lig, i) = Me.Controls("TextBox" & k).Text
    Feuil8.Cells(i, 3) = .Cells(lig, i)
Next

par

For k = 1 To 108
    i = i + 1
    If k = 1 Or k = 7 Or k = 13 Or k = 19 Then
        .Cells(lig, i) = CDate(Me.Controls("TextBox" & k).Text)
    Else
        .Cells(lig, i) = Me.Controls("TextBox" & k).Text
    End If
    Feuil8.Cells(i, 3) = .Cells(lig, i)
Next

A+

 

[piga25]

Bonjour Paf, le forum
Merci pour cette piste, mais cela ne semble pas fonctionner.
Je pense que le problème vient plus du code du calendrier, car lorsque l'on change de mois, cela reste toujours sur le mois actuel.
Je me demande si ne dois pas chercher un autre calendrier autonome à la place de celui-ci.
Il m'en faut un autonome car l'application peut être installé sur différente machine.

 

[néné06]

Bonjour!
j' ai un petit calendrier perso qui peut faire l'affaire!
quand je dis "petit", c'est par la taille vba mais gros par l'encombrement
A+

 

[piga25]

Bonjour néné06, le forum

Désolé ce n'est pas du tout ce que je recherche.
Ce que je souhaite c'est en cliquant sur une textbox dans un Userform, qu'un calendrier popup apparaisse pour choisir la date.

 

[Paf]

bonjour néné06,

@piga25:
Ha oui, je m'étais focaliser sur le mois en cours, mais c'est bien plus grave !!!

ça ne vaut pas le coup de "dépanner", on trouve pas mal de calendrier autonome, outre celui de néné06 :
https://www.excel-downloads.com/threads/calendrier-vba.20005320/

https://forum.excel-pratique.com/viewtopic.php?t=87249

A+

 

[piga25]

Bonjour
@Paf
Oui, lors de mes premiers essai, je n'ai jamais fait attention, je m'étais focalisé que sur la date du jour.

J'ai bien un autre calendrier, mais le problème c'est de l'intégrer en lieu et place a celui que j'ai. Si toutefois j'avais une piste pour mettre la date dans le bon textbox, je pense que pour les suivants je pourrai y arriver.

 

[patricktoulon]

bonsoir a tous
en effet j'ai regarder le petit calendrier de ton fichier (no comment une chatte n'y retrouverait pas ces petit dans ce fichier )
toute les situations n'ont pas été prévues bref
et le debugage serait un bien trop gros boulot pour ce model )

il lui en manque beaucoup a ce calendrier pour etre nommé comme tel(pardonnez ma franchise)


on trouve pas mal d'exemple sur ce forum
pour ma part je me suis employé a en créer un qui demande très peu de connaissance
il suffit juste de l'importer de mon fichier dans le sien
en commentaire j'explique les façon de l'appeler est des exemples de code d’appel
bref même un débutant pourra s'en sortir
il gère les trois format de date géré nativement par excel
il gère le placement sur cellule et ou sur textbox
bref j'ai mâché le travail

il est dans les ressources dispo pour tous (y a plus qu'à)

collection fausse boite de dialogue (Patricktoulon) episode 1 Le calendrier Modal

Bonjour a tous voici ma dernière version de mon calendrier all excel version Une video très courte en bas dette présentation vous montre comment j'installe le calendar de mon fichier dans un autre fichier une autre video dans les mises a...

www.excel-downloads.com

 

[piga25]

Bonsoir patricktoulon, le forum

Je vais regarder cela de plus prêt et essayer de l'adapter à mes besoins.
Merci

 

[Dranreb]

Bonsoir.
Le mien est facile à mettre en œuvre.

 

[piga25]

Bonjour Dranreb
Je vais regarder également.

Maintenant j'ai le choix. En premier effacer toutes les lignes concernant mon ancien calendrier (qui au vu des vôtres était pas totalement fini). En second coder pour y effectuer les nouvelles liaisons. J'ai de quoi m'occuper pendant ce confinement.

Merci a vous tous en attendant.

 

[piga25]

Bonsoir
@patricktoulon
Merci, j'ai mis votre calendrier dans mon application. Tout fonctionne sauf sur un userform ou le calendrier ne se met pas à côté de la textbox concernée.
@Dranreb
Merci, désolé je ne l'ai pas utilisé pour cette fois-ci. Par contre je l'ai mis bien au chaud dans mes archives de modèles.

 

[patricktoulon]

re
si j'ai pas le contexte ça va être difficile de t'aider
il me faut au moins ton userform même sans code et que tu me dise quel textbox

 

[Dranreb]

Tout fonctionne sauf sur un userform ou le calendrier ne se met pas à côté de la textbox concernée.

Pour le mien on fait UFmCalend.Coupler "Titre", TextBoxX et il s'affiche juste en dessous et y inscrit la date choisie. Simple.

 

[patricktoulon]

bonsoir Dranreb ben moi c'est quasi pareil
tout les arguments sont optionels ce qui fait que le right side est Auto
exemple ceci suffit
TextBox1 = Calendar.ShowX(TextBox1)