Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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.
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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…