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'519
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'519
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'519
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 feever » 11 juillet 2017, 19:23 » dans Excel - VBA
    8 Réponses
    231 Vues
    Dernier message par feever
    12 juillet 2017, 15:07
  • calendrier
    par mika51 » 20 décembre 2017, 11:21 » dans Excel - VBA
    2 Réponses
    157 Vues
    Dernier message par mika51
    20 décembre 2017, 15:21
  • Calendrier
    par faisdlair » 8 janvier 2018, 22:31 » dans Excel - VBA
    19 Réponses
    386 Vues
    Dernier message par faisdlair
    13 janvier 2018, 13:10
  • Calendrier
    par langa68 » 14 février 2018, 07:52 » dans Excel - VBA
    4 Réponses
    176 Vues
    Dernier message par langa68
    14 février 2018, 18:17
  • calendrier
    par walker59 » 4 mars 2018, 17:28 » dans Excel - VBA
    10 Réponses
    222 Vues
    Dernier message par LouReeD
    5 mars 2018, 15:22
  • 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