Bonjour,
Je suis novice de chez novice! Mais voilà un jour il faut se lancer dans le monde impitoyable de Vba!
J'essaye de mettre au point une macro qui me permet en double cliquant sur une cellule (faisant parti d'un range de cellules) de faire apparaitre un calendrier (monthview). L'utilisateur n'aurait plus qu'à clicker sur la date et valider la date avec un bouton "ok".
J'ai réussi à faire cette macro pour une cellule
Dans ma feuille Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A1:A10")) Is Nothing Then calendrier.Show End If End Sub
Dans mon userform "calendrier" 'bouton ok Private Sub CommandButton1_Click() Worksheets("feuil1").Range("A1") = MonthView Unload Me calendrier.Hide Sheets("feuil2").Activate Sheets("feuil1").Activate End Sub 'bouton fermer Private Sub CommandButton2_Click() calendrier.Hide End Sub
Mais voilà cette macro ne marche que pour une seule cellule et je ne sais pas comment la faire fonctionner pour tout mon range.
J'espère avoir été claire dans mon explication. Je remercie d'avance mes futurs « helper » ?
re
J ai bien fait de ne pas cloturer car j ai un probleme de range
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range("D4:D26,F4:F26,H4:H26,J4:J26,L4:L26,N4:N26,P4:P26,R4:R26,T4:T26,V4:V26,X4:X26,Z4:Z26,AB4:AB26,AD4:AD26,AF4:AF26,AH4:AH26,AJ4:AJ26,AL4:AL26,AN4:AN26,AP4:AP26,AR4:AR26,AT4:AT26,AV4:AV26,AX4:AX26,AZ4:AZ26,BB4:BB26,BD4:BD26,BF4:BF26,BH4:BH26,BJ4:BJ26,BL4:BL26,BN4:BN26")) Is Nothing Then calendrier.Show End If End Sub
J'ai une pop up d erreur 1004 qui apparait. Y-a-t-il une limite dans les ranges?
