XL 2013 Calendrier automatique dans cellule

Roseline

XLDnaute Occasionnel
Bonjour,
J'ai crée un calendrier qui apparaît automatiquement dans mon fichier excel en cliquant sur une cellule. J'ai limiter le calendrier aux colonnes C et D. Cependant j'aimerais que ce calendrier s'affiche seulement sur la plage C3 à D10 et j'en suis incapable. J'ai essayé plusieurs changements mais aucun fonctionne. Merci de m'aider.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 3 And Target.Column <> 4 Then Exit Sub
UFmCalend.Posit Target, 1, 0.9
Target.Value = UFmCalend.Saisie(, Target.Value, Target.Value)
End Sub

Bonne journée
 
Solution
Bonjour,

Comme ceci cela devrait fonctionner :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("C3:D10")) Is Nothing Then
        UFmCalend.Posit Target, 1, 0.9
        Target.Value = UFmCalend.Saisie(, Target.Value, Target.Value)
    End If
End Sub

Phil69970

XLDnaute Accro
Bonjour @Roseline

Je te propose ceci :

VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C3:D10")) Is Nothing Then
    
     'Le reste de ton code ici ......
    UFmCalend.Posit Target, 1, 0.9
    Target.Value = UFmCalend.Saisie(, Target.Value, Target.Value)

End If
End Sub

Ton calendrier s'affichera seulement si tu cliques dans les cellules C3: D10

*Si cela ne correspond pas à ta demande un fichier anonymisé serait le bienvenu....

@Phil69970
 

gbinforme

XLDnaute Occasionnel
Bonjour,

Comme ceci cela devrait fonctionner :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("C3:D10")) Is Nothing Then
        UFmCalend.Posit Target, 1, 0.9
        Target.Value = UFmCalend.Saisie(, Target.Value, Target.Value)
    End If
End Sub
 

Roseline

XLDnaute Occasionnel
Bonjour @Roseline

Je te propose ceci :

VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C3:D10")) Is Nothing Then
   
     'Le reste de ton code ici ......
    UFmCalend.Posit Target, 1, 0.9
    Target.Value = UFmCalend.Saisie(, Target.Value, Target.Value)

End If
End Sub

Ton calendrier s'affichera seulement si tu cliques dans les cellules C3: D10

*Si cela ne correspond pas à ta demande un fichier anonymisé serait le bienvenu....

@Phil69970
Bonjour, ça fonctionne parfaitement, merci beaucoup de votre rapidité 🙂
 

Statistiques des forums

Discussions
292 869
Messages
1 926 875
Membres
183 296
dernier inscrit
Yaz113