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

  • Initiateur de la discussion Initiateur de la discussion anthoYS
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

Pièces jointes

Dernière édition:
VB:
Sub raz()
'mettre aujourd'hui() en B1 et supprimer le contenu de B2 à D67.
  Range("B2:D67").ClearContents
  Range("B1").Value = Date
  With ActiveSheet.Range("B2:D67")
        .Interior.Color = xlNone    ' Supprime la coleur de fond des cellules
  End With
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
12
Affichages
1 K
Retour