Bonjour à tous,
Je n'y connais rien en programmation, je fouille, je copie et je colle... Là je bloque pour un truc qui doit être simple comme tout, mais comme je n'y comprends pas grand chose (à vrai dire presque rien ....)
voilà mon problème :
J'ai copié une macro (ouverture d'un calendrier) qui marche sur une série de cellule unique.
Mais quand je remplace cette série par une plage de cellule fusionnées plus de réaction !
sur les forums j'ai bien vu qu'il fallait remplacer la série("B12,C12,D12,E12") par ("B12:E12), mais la macro ne réagit pas.
Ci dessous mon code, merci de me proposer une correction. Ca bloque au niveau de ("B12:E12") cellules qui sont fusionnées directement par le bandeau dans une feuille excel
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim UnJour As Date
If Target.Count = 1 And Not Intersect(Target, Range("B12:E12")) 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
merci de votre aide
Je n'y connais rien en programmation, je fouille, je copie et je colle... Là je bloque pour un truc qui doit être simple comme tout, mais comme je n'y comprends pas grand chose (à vrai dire presque rien ....)
voilà mon problème :
J'ai copié une macro (ouverture d'un calendrier) qui marche sur une série de cellule unique.
Mais quand je remplace cette série par une plage de cellule fusionnées plus de réaction !
sur les forums j'ai bien vu qu'il fallait remplacer la série("B12,C12,D12,E12") par ("B12:E12), mais la macro ne réagit pas.
Ci dessous mon code, merci de me proposer une correction. Ca bloque au niveau de ("B12:E12") cellules qui sont fusionnées directement par le bandeau dans une feuille excel
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim UnJour As Date
If Target.Count = 1 And Not Intersect(Target, Range("B12:E12")) 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
merci de votre aide