XL 2016 Limiter le remplissage aux cellules blanche seulement

[Myst]

Bonjour a tous
J'aurais un problème a soumettre
Lorsque je double clic dans n'importe laquelle des cellules de la feuille un userform s'ouvre, je sélectionne une date qui va aller remplir la cellule concerné après validation
Je cherche a limiter la saisie des dates dans les cellules blanches seulement , donc faire en sorte que l'Userform1 ne s'ouvre pas en dehors des cellules blanche
merci

 

[job75]

Bonjour Myst,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target(1).Interior.Color <> 16777215 Then Exit Sub
Cancel = True
Set Calendrier1.ObjetSource = Target
Calendrier1.Show
End Sub

 

[Myst]

Bonjour job75
C'est exactement ça mais a quoi correspond 16777215 ? couleur vide ?
merci

 

[job75]

Cela correspond à Interior.ColorIndex = xlNone ou Interior.ColorIndex = 2

 

[Myst]

Bonjour, job75
Un grand merci

 

[Hervé]

salut

myst ?

une petite macro pour connaitre les couleurs d'une cellule specifique :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
MsgBox Target.Interior.Color
End Sub

a plus

 

[eriiic]

Bonjour,

autre idée : ne l'afficher que si le format correspond à un format date avec année, et donc destiné à en recevoir une :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.NumberFormat Like "*yy*" Then
        Cancel = True
        Set Calendrier1.ObjetSource = ActiveCell
        Calendrier1.Show
    End If
End Sub

Plus de souplesse si ta feuille évolue, il s'adapte tout seul. Et plus de restriction de couleur.
eric

PS : j'aime bien ce calendrier.
Tu peux citer ta source si tu l'as toujours stp ?

 

[Staple1600]

Bonsoir

Bonjour,

PS : j'aime bien ce calendrier.
Tu peux citer ta source si tu l'as toujours stp ?

A défaut la source, un des ses affluents (de déjà 12 ans d'âge)

 

[eriiic]

Merci Staple, ça ne nous rajeuni pas
Je cherche comment l'initialiser avec la date de la cellule si présente, mais je sèche lamentablement
Si qq'un a une idée...
eric

PS : et éventuellement pouvoir cercler la date du jour
Edit : bon, ça j'ai trouvé. Il suffit d'enlever 'Or MCS_NOTODAYCIRCLE'.
Pour ajouter la date d'aujourd'hui en bas : supprimer 'Or MCS_NOTODAY'
J'ai trouvé aussi pour ajouter le n° de semaine :
Const MCS_WEEKNUMBERS = &H4& (La semaine 1 est définie comme la première semaine contenant au moins quatre jours.)

 

[Staple1600]

Re

eriiic
C'était pas trop difficile, non ?
PS : et éventuellement pouvoir cercler la date du jour
Edit : bon, ça j'ai trouvé. Il suffit d'enlever 'Or MCS_NOTODAYCIRCLE

 

[eriiic]

Yes, I speak english ;-)