Calendrier Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
m
m3ellem1
Membre impliqué
Membre impliqué
Messages : 1'517
Appréciations reçues : 124
Inscrit le : 18 décembre 2018
Version d'Excel : 2016

Message par m3ellem1 » 19 août 2019, 11:46

ludeaux a écrit :
19 août 2019, 11:16
non. ce que je demande n'est pas faisable.
si t'explique ce que tu veux faire ca serait peut être faisable :mrgreen:
ludeaux a écrit :
19 août 2019, 11:16
par contre je souhaiterai que le calendrier s'affiche dans les cellules par simple click et non par double click.
voir fichier

Suivi des demandes d'exemptions_2.xlsm
(172.41 Kio) Téléchargé 5 fois
Avatar du membre
ludeaux
Membre habitué
Membre habitué
Messages : 108
Appréciations reçues : 2
Inscrit le : 5 août 2019
Version d'Excel : 2013 FR

Message par ludeaux » 19 août 2019, 12:57

Merci beaucoup. je souhaiterai la même chose pour les deux tableaux en pièce jointe.
suivi courriers.xlsm
(109.88 Kio) Téléchargé 5 fois
Suivi mails v1.xlsm
(109.58 Kio) Téléchargé 5 fois
m
m3ellem1
Membre impliqué
Membre impliqué
Messages : 1'517
Appréciations reçues : 124
Inscrit le : 18 décembre 2018
Version d'Excel : 2016

Message par m3ellem1 » 19 août 2019, 13:38

Change cette Sub
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

    With ActiveSheet
            If Application.Intersect(Target, Range("A10:A65000, D10:D65000,I10:I65000")) Is Nothing Then Exit Sub
    
            fmSTD_Calendrier.SelectDateCalendrierCELL IIf(IsDate(Target.Value), Target.Value, Date)
            
            Cancel = True 'ceci évite l'édition de la cellule
    End With
End Sub
avec celle-là
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   With ActiveSheet
            If Application.Intersect(Target, Range("A10:A65000, D10:D65000,I10:I65000")) Is Nothing Then Exit Sub
    
		fmSTD_Calendrier.SelectDateCalendrierCELL IIf(IsDate(Target.Value), Target.Value, Date)            
            
    End With
End Sub
Avatar du membre
ludeaux
Membre habitué
Membre habitué
Messages : 108
Appréciations reçues : 2
Inscrit le : 5 août 2019
Version d'Excel : 2013 FR

Message par ludeaux » 19 août 2019, 13:54

merci beaucoup.
1 membre du forum aime ce message.
m
m3ellem1
Membre impliqué
Membre impliqué
Messages : 1'517
Appréciations reçues : 124
Inscrit le : 18 décembre 2018
Version d'Excel : 2016

Message par m3ellem1 » 19 août 2019, 23:57

:btres:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Calendrier
    par ludeaux » 9 août 2019, 11:43 » dans Excel - VBA
    8 Réponses
    90 Vues
    Dernier message par ludeaux
    9 août 2019, 14:55
  • Calendrier
    par crackwood01 » 12 avril 2019, 17:49 » dans Office
    2 Réponses
    2552 Vues
    Dernier message par crackwood01
    17 avril 2019, 16:37
  • Calendrier
    par Sebyg » 4 avril 2018, 15:19 » dans Excel - VBA
    6 Réponses
    175 Vues
    Dernier message par Sebyg
    5 avril 2018, 11:40
  • Calendrier
    par frantz07 » 4 novembre 2019, 13:09 » dans Excel - VBA
    4 Réponses
    91 Vues
    Dernier message par frantz07
    5 novembre 2019, 13:36
  • calendrier
    par gena17 » 6 juin 2018, 15:14 » dans Excel - VBA
    10 Réponses
    397 Vues
    Dernier message par gena17
    8 juin 2018, 14:38
  • Calendrier
    par cfn3cfn » 17 mars 2015, 06:01 » dans Excel - VBA
    30 Réponses
    877 Vues
    Dernier message par cfn3cfn
    20 mars 2015, 14:27