Sujet Précédent Sujet Suivant

[HELP] Excel : Problème calendrier automatique

Fermé
Dede - Modifié par Dede le 19/07/2016 à 17:53
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 21 juil. 2016 à 19:04
Bonjour,

Après avoir suivis le tuto situé sur cette page : https://www.commentcamarche.net/faq/41159-vba-excel-toutes-versions-controle-calendrier-transposable#parametrage-des-couleurs
la date sélectionnée n'est pas enregistrée dans la cellule via laquelle le calendrier c'est affiché.
Comment faire ?

Merci d'avance
A voir également:

2 réponses

Réponse 1 / 2
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 712
19 juil. 2016 à 22:41
Bonjour,

As-tu respecté le mode d'emploi qui est fourni avec le classeur ?
0
Dede
20 juil. 2016 à 10:15
Bonjour Gbinform,

j'ai surtout respecté le tuto, concernant les classeurs fournis dessous, ils ne permettent pas de conserver la valeur dans une case.

Pour info j'ai mis la fonction d'appel ci dessous :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column = 55 And Target.Row > 3 Then
Target.Value = ""
Load UserForm1
UserForm1.Show

Je pense qu'il manque une dim valeur à retourner dans le code de l'userform, mais je n'arrive pas à l'écrire (je viens tout juste de me mettre au VBA...)

Merci pour ton aide
0
Réponse 2 / 2
Dede
21 juil. 2016 à 08:41
Il est dommage que personne n'ait pu m'apporter de réponses :/
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 712
21 juil. 2016 à 19:04
Bonjour,

ils ne permettent pas de conserver la valeur dans une case.
Ton code d'appel est correct ne change rien mais pour conserver la date choisie dans ta cellule tu vas dans le module de classe "Classe1" et tu remplaces la ligne 
  MsgBox Msg

par 
 ActiveCell = maDate
 Unload Calendrier
0