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

Paf

XLDnaute Barbatruc

• 5 Avril 2020

• #2

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

VB:

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

VB:

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+

 

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 5 Avril 2020

• #3

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.

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 5 Avril 2020

• #4

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+

 

Pièces jointes

• calendrier030420.xlsm

  78.1 KB · Affichages: 18

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 5 Avril 2020

• #5

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.

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 5 Avril 2020

• #6

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+

 

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 5 Avril 2020

• #7

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.

 

Pièces jointes

• Calendrier-userform-forum.xlsm

  59.7 KB · Affichages: 12

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Avril 2020

• #8

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

 

Dernière édition: 5 Avril 2020

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 5 Avril 2020

• #9

Bonsoir patricktoulon, le forum

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Avril 2020

• #10

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

 

Pièces jointes

• MonCalendrier.xlsm

  69.1 KB · Affichages: 22

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 6 Avril 2020

• #11

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.

 

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 6 Avril 2020

• #12

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 6 Avril 2020

• #13

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Avril 2020

• #14

piga25 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 6 Avril 2020

• #15

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)

 

Vote positif 0 Vote négatif