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

anthoYS · 7 Novembre 2022

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 !

TooFatBoy · 7 Novembre 2022

anthoYS à dit:
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 · 7 Novembre 2022

TooFatBoy à dit:
Hopla !

C'est un double-clic qui colore le fond de la cellule, pas une MFC.

Oui pardon, alors comment faire partir cette coloration via double clic par la macro "raz" ?

TooFatBoy · 7 Novembre 2022

Une proposition :

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
End Sub

anthoYS · 7 Novembre 2022

TooFatBoy à dit:

Une proposition :

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
End Sub

c'est presque parfait, excepté que ça ne fige pas aujourd'hui en B1.
Merci !

anthoYS · 7 Novembre 2022

sylvanu à dit:
Bonjour Antho,Fanfan,
En MFC essayez simplement :

VB:

=B$1=AUJOURDHUI()

Est il normal qu'en D1 il y est =C1+2 et non C1+1 ?
J'ai modifié en PJ.

oui, c'est bien +1. je veux 3 jours de suite.

TooFatBoy · 7 Novembre 2022

anthoYS à dit:
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 · 7 Novembre 2022

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

TooFatBoy · 7 Novembre 2022

Puisque tu utilises un With, autant mettre le Clear.contents dedans, sinon ce With ne sert à rien.

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

anthoYS

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

anthoYS

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Pièces jointes

anthoYS

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Discussions similaires