Il suffit d'ajouter ActiveSheet.range("B1").value=datec'est presque parfait, excepté que ça ne fige pas aujourd'hui en B1.
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
Merci beaucoup. J'ai l'impression que la raz efface la mefc pour la coloration d'aujourd'hui, or ça ne va pas (sauf erreur).Bonjour
Ci joint ma solution
A+ François
@+ Lolote83quand je clique sur RAZ, mettre aujourd'hui() en B1
Non ce peut être B2 voire B3 si pas de RAZ.Bonjour à tous.
Si la cellule B1 reçois la valeur aujourd'hui, pourquoi faire une MFC pour colorer la date du jour sachant que B1 sera toujours la date du jour ?
@+ Lolote83
Ok pour ça. La MFC de @sylvanu est donc OK pour ceci.Non ce peut être B2 voire B3 si pas de RAZ.
C'est un double-clic qui colore le fond de la cellule, pas une MFC.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 ?