XL 2019 Quelle formule utiliser pour colorer le jour en cours en fond jaune... ?

anthoYS

XLDnaute Barbatruc
Bonjour,


et quand je clique sur RAZ, mettre aujourd'hui() en B1 et supprimer le contenu de B2 à D67.

je vais quand même essayer de trouver...

je reviens vers vous.
ScreenWings_IcAEneC0S3.png
ScreenWings_RcavesKreC.png
Merci !
 

Pièces jointes

  • Classeur1.xlsm
    221 KB · Affichages: 4
Solution
c'est presque parfait, excepté que ça ne fige pas aujourd'hui en B1.
Il suffit d'ajouter ActiveSheet.range("B1").value=date ;)

VB:
Sub RAZ()
'
    With ActiveSheet.Range("B2:D67")
        .ClearContents                      ' Supprime le contenu des cellules
        .Interior.Color = xlNone            ' Supprime la couleur de fond des cellules
    End With
    ActiveSheet.Range("B1").Value = Date    ' Écrit la date d'aujourd'hui dans la cellule B1

End Sub


Voir pièce jointe.

anthoYS

XLDnaute Barbatruc

fort de ce code, comment faire pour que RAZ de sylvanu fonctionne, en ce sens qu'il retire les MEFC de vert fluo ajoutés... Donc effacer complètement tout ?

Merci !
 

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 294
Messages
2 086 895
Membres
103 404
dernier inscrit
sultan87