Autres Mémorisation

[VIARD]

Bonjour à toutes et tous

Nouvelle version :
Voici un calendrier, sans API ni module de classe.
Il est le plus simple possible, un code clair et facile à comprendre.
Il est différent de ce qui existe avec les mêmes fonctionnalités.
Sur une date nous avons le N° Semaine et inversement.
L’adresse active peut être changée.

Formats à disposition
01/07/2022 -----------> Court
02 juil 2022 -----------> Abrégé
03 juillet 2022 --------> Long
lundi 04 juillet 2022 --> Long + Jr/s
mardi 05/07/2022 ----> Court + jr/s
mercredi 06 juil 2022 -> Abrégé + jr/s
jeudi -------------------> jour(s) semaine
Date romaine --------à VI / III / MMXXIII
Date anglaise --------à Monday 20 March 2023, un seul format

Version améliorée, Plage_Date suit le choix du format affiché, idem à "Valider".
Un jour de la semaine en surbrillance ou pas, la surbrillance démarre au jour affiché.
7 formats possible, plus date romaine (indépendante).
Affichage du quantième jour de l’année.

Possibilité de créer une plage de date avec le format choisi.
Un jour de la semaine sera mis en surbrillance (ou pas), pour facilité le visuel.

- Mémorisation du dernier format utilisé après fermeture.
Le point de mémorisation peut-être déplacé suivant la nécessité.
(protection de la donnée si elle existe en ce point) affichage sur MsgBox.
En fait, c'est ce dernier point que je cherche à améliorer.
Peut-être en utilisant le TAG, mais manip n'ont pas abouti.

Cordialement
Jean-Paul

 

[ChTi160]

Bonjour Jean-Paul
Merci de ce partage !
pourrais-tu expliquer ce que tu entends par celà Lol

- Mémorisation du dernier format utilisé après fermeture.
Le point de mémorisation peut-être déplacé suivant la nécessité.
(protection de la donnée si elle existe en ce point) affichage sur MsgBox.
En fait, c'est ce dernier point que je cherche à améliorer.
Peut-être en utilisant le TAG, mais manip n'ont pas abouti.

Bonne Journée
Jean marie

 

[VIARD]

Bonjour ChTi160

Merci d'avoir répondu.
Là je reviens du kiné.
J'explique, actuellement, je fais la mémorisation par l'intermédiaire d'une cellule.
si pour une raison quelconque en cas de transfert du ficher, la cellule (ici "A1") peut-être occupée
et dans ce cas un message apparaît et l'on prend une autre cellule, de ce coté ça marche.
mais je voudrais faire autrement, sans utiliser d'API.
Alors j'ai pensé au (Tag), mais je ne sais pas l'utiliser, pour faire cette mémorisation, d'où ma demande.
S'il n'y a pas de solution , je laisserai la chose dans cet état.

A+ Jean-Paul

 

[ChTi160]

Re
Donc c'est de cela que tu parles :

Mémorisation du dernier format utilisé après fermeture.

Tu parles de la propriété Tag mais de quel control ?
Tu dis

Alors j'ai pensé au (Tag), mais je ne sais pas l'utiliser

C'est pourtant simple dans la procédure d'un control tu mets
Exemple :
Tu click sur un bouton ,un Label etc
Tu mets dans la procédure à un moment
Me.CommandButton.Tag = formatx

Pour le récupérer tu fais l'inverse
Mavaleur= Format(xxxxxxx,me.CommandButton.Tag)
Xxxxxxx étant la valeur a formater lol
Pas évident (depuis mon téléphone)
Dans l'attente ?
Jean marie

 

[VIARD]

Re Jean-Marie
ok je vais tenter des manips dans ce sens.
merci pour ton aide.
Jean-Paul

 

[ChTi160]

Bonjour Jean-Paul
Peut-être un truc de ce genre Lol

Private Sub SpinButton4_SpinDown()
If CInt(Me.TextBox5) <= 1 And Me.TextBox5 <> Empty Then
    Exit Sub
Else
    Me.TextBox5 = Me.TextBox5 - 1
    Me.TextBox5.Tag = Me.TextBox5 'on met la valeur du TextBox dans la propriété Tag du Control
    [Mémo] = TextBox5 'on pourrait supprimer ceux ci
End If
Call Validation
End Sub

Je n'ai pas encore tout compris Lol
On conserve le dernier Format utilisé, mais pourquoi en faire lors de la prochaine ouverture du Calendrier ?
Bonne Journée
Jean marie

 

[VIARD]

Bonjour Jean-Marie et à tous

Merci pour ta proposition.
Aussi j'ai construit un nouveau module simplifié pour isoler le problème.
cette mémorisation avec tag, me semble plus complexe que prévu.
mes essais non pas abouti.
ou alors transférer la donnée dans un fichier text trop tordu pour un petit fichier.
il y a surement une autre solution.
mon but c'est de mémoriser le dernier état et le récupérer à la prochaine ouverture.
sans passé par une cellule.
salutation
Jean-Paul

 

[Modeste geedee]

cette mémorisation avec tag, me semble plus complexe que prévu.
mes essais non pas abouti.

il y a surement une autre solution.

déjà en 2012...
ajouter des entrées dans les "CustomProperties" !!!

Private Sub CB_P1_Click()
On Error Resume Next
CB_P1.BackColor = L_Choix.BackColor
With ThisWorkbook.CustomDocumentProperties
.Add Name:="couleur1", _
LinkToContent:=False, _
Type:=msoPropertyTypeNumber, _
Value:=L_Choix.BackColor
.Item("couleur1") = L_Choix.BackColor
End With

Affiche
End Sub

puis dans userform1.activate :
On Error Resume Next
'------------------- parametres couleurs
'aujourd'hui
'couleur1 = RGB(240, 240, 240)
couleur1 = ThisWorkbook.CustomDocumentProperties("couleur1")
CB_P1.BackColor = couleur1

 

[patricktoulon]

re
Bonjour a tous
ou tout simplement dans un name le formatx dans le refersto

 

[Modeste geedee]

déjà en 2012...

https://excel-downloads.com/attachments/picdate-v3-xlsm.227630/

créer un calendrier dans un UserForm

Bonjour le forum, Je voudrais créer un calendrier selon le modèle ci-joint, (mais avec les jours de la semaine en haut, en colonnes, les flèches pour changer de mois en haut et d'année en bas) mais dans un USF Comment puis-je créer les flèches pour changer de mois et d'année, et initialiser...

excel-downloads.com