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

[anthoYS]

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 !

 

[anthoYS]

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]

Une proposition :

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]

Une proposition :

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]

Bonjour Antho,Fanfan,
En MFC essayez simplement :

=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]

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

Il suffit d'ajouter ActiveSheet.range("B1").value=date

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]

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]

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