Evènement sur clic dans cellule

  • Initiateur de la discussion Initiateur de la discussion olivier_bahrein
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

O

olivier_bahrein

Guest
Bonjour,

Lorsque je clique sur une cellule de feuil1, je crée un évènement qui ouvre un userform (contenant un contrôle calendrier), ce qui me permet de choisir une date.

Je souhaiterais que la date (objetcalendrier.value) se mette dans la cellule qui a appelé le userform. (sur la feuil1 j'ai plusieurs cellule au format date qui doivent être remplies).

Pour cela, j'ai mis le code suivant dans le userform contenant le calendier lorsque je clique sur ok:

Private Sub BtOk_Click()
Feuil1.ActiveCell.Value = ObjCalendrier.Value
FmCalendrier.Hide
End Sub

Mais la référence à la cellule active (ActiveCell) de feuille1 ne fonctionne pas. Pourquoi ?

Comment corriger ?

Merci,

Olivier./.
 
Re : Evènement sur clic dans cellule

ziopizza à dit:
Bonjour ,
peut etre comme ça,
Avec format:
activecell.Value = Format(Calendar1.Value, "mm/dd/YY")
ou
activecell.value=ObjCalendrier.Value
Salut Yves

Effectivement, cela marche.

Mais je pense qu'il serait mieux que la date se mettre à jour seulement si je clique sur Ok de l'userform du calendrier.

Donc ta solution fait que la mise à jour se met dans le code de la feuil1: pourquoi pas, cela marche très bien.

Mais si je voulais mettre ce code de mise à jour dans le userform calendrier pour que la date (dans feuil1) ne se mette à jour que si je clique sur ok de l'userform, comment puis-je faire ? (bah je tatillonne mais c'est pour apprendre).

La difficulté est donc d'identifier dans le userform-calendrier la cellule appelante pour y déposer la date. La cellule appelante pouvant donc varier.

Merci,

Olivier./.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
41
Affichages
1 K
Réponses
4
Affichages
652
Réponses
6
Affichages
641
Réponses
3
Affichages
323
Réponses
16
Affichages
1 K
Retour