Microsoft 365 Date masquée

mfb · 8 Septembre 2019

Bonjour le Forum,
Via un bouton les cellules comportant la date du 01/01/1970 (Col G) sont masquées en changeant la couleur de noir vers blanc. Cà c ok
Via Target et byval dans le code de la feuille et un clic sur une des dates masquées elle réapparait. Cà aussi C bon.
Pour un petit + peut-on par un nouveau clic la masquer de nouveau sans passer par le bouton ?
En Pj un petit fichier
Par avance merci pour votre aide.
Daniel

Hasco · 8 Septembre 2019

Bonjour,

Dans le fichier joint, cela le fait. Il faut non pas 'cliquer' la cellule mais la re-sélectionner.
Personnellement, je mettrai ce code dans l'évènement BeforeDoubleClick de la feuille.
Peut-être que si nous avions le fin mot de l'histoire ou du but de ceci, nous pourrions vous proposer éventuellement autre chose.

Cordialement

mfb · 8 Septembre 2019

Roblochon à dit:
Bonjour,

Dans le fichier joint, cela le fait. Il faut non pas 'cliquer' la cellule mais la re-sélectionner.
Personnellement, je mettrai ce code dans l'évènement BeforeDoubleClick de la feuille.
Peut-être que si nous avions le fin mot de l'histoire ou du but de ceci, nous pourrions vous proposer éventuellement autre chose.

Cordialement

mfb · 8 Septembre 2019

Re,
Merci Roblochon,
Excuse j'avais pas vu qu'il fallait resélectionner.
Mais cela correspond à mon besoin.
Toutefois en testant je me suis aperçu que cela concerne toutes les dates de l'année 1970 par exemple 03/09/1970 alors que je souhaiterai que cela ne concerne les dates 01/01/1970.
J'ai bien essayer de bricoler Year mais sans succès.
Je tends à nouveau la main.
A+

Hasco · 8 Septembre 2019

Bonjour,

Si c'est toute la date qu'il faut tester, inutile de 'bricoler' YEAR

Dans le code ci-dessous, j'ai limité le traitement à la plage G7:G19 des dates. En effet il est inutile d'appeler l'évènement sur chaque sélection de cellule de toute votre feuille. A adapter à votre (vos) plage(s) de cellules.

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
' Si plus d'une cellule sélectionnée ou que target n'est pas dans la plage G7:G19
    If Target.CountLarge > 1 Or Intersect(Target, Range("G7:G19")) Is Nothing Then Exit Sub
    '
    ' Si la valeur de la cellule peut-être interprétée comme une date et que son numéro de série
    ' correspond à celui du 1/1/1970 alors on traite.
    If IsDate(Target.Value) And Target.Value2 = DateSerial(1970, 1, 1) Then
        '
        ' Si masquée on montre, sinon on masque
        If Target.Font.ThemeColor = xlThemeColorDark1 Then
            Target.Font.ThemeColor = xlThemeColorLight1
        Else
            Target.Font.ThemeColor = xlThemeColorDark1
        End If
    End If
End Sub

Cordialement

mfb · 8 Septembre 2019

Re,
Super, c'est exactement ce que je recherchais. ça marche.
Merçi Roblochon
Bonne fin de dimanche
Daniel

Microsoft 365 Date masquée

mfb

XLDnaute Occasionnel

Pièces jointes

Hasco

XLDnaute Barbatruc

Pièces jointes

mfb

XLDnaute Occasionnel

mfb

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

mfb

XLDnaute Occasionnel

Discussions similaires