jmcr
XLDnaute Occasionnel
bonsoir le forum
voila ma demande j ai dans une feuille j ai un calendrier qui s'affiche dans quelque cellule B16,B26,B27, mais voila je voudrais changé j aurais voulus le faire apparaître dans toute la colonne I2 à I 100 dans une autre feuille
voila le code de ma feuille
pouvez vous me renseigner comment changer cela svp
amitié
JMCR
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim UnJour As Date
If Target.Count = 1 And Not Intersect(Target, Range("B16,B26,B27")) Is Nothing Then
UnJour = FormCal.Calendrier
If UnJour <> 0 Then
Target = Format(UnJour, "mm/dd/yyyy")
Target.Offset(0, -1).Select
Else
Target = ""
Target.Offset(0, -1).Select
End If
End If
End Sub
voila ma demande j ai dans une feuille j ai un calendrier qui s'affiche dans quelque cellule B16,B26,B27, mais voila je voudrais changé j aurais voulus le faire apparaître dans toute la colonne I2 à I 100 dans une autre feuille
voila le code de ma feuille
pouvez vous me renseigner comment changer cela svp
amitié
JMCR
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim UnJour As Date
If Target.Count = 1 And Not Intersect(Target, Range("B16,B26,B27")) Is Nothing Then
UnJour = FormCal.Calendrier
If UnJour <> 0 Then
Target = Format(UnJour, "mm/dd/yyyy")
Target.Offset(0, -1).Select
Else
Target = ""
Target.Offset(0, -1).Select
End If
End If
End Sub