Macro pour basculer entre 2 formats d'affichage Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
gloub
Membre impliqué
Membre impliqué
Messages : 1'113
Inscrit le : 17 juillet 2007
Version d'Excel : 2003 sur PC + 365 sur Mac

Message par gloub » 20 septembre 2019, 11:07

Bonjour le Forum,

J'ai créé une macro avec l'enregistreur de macros, qui me permet d'appliquer un format personnalisé à une cellule.
Sub Format_Date_point_d_interrogation()
'
    Selection.Font.ColorIndex = 3
    Selection.NumberFormat = "dd/mm/yy"" ?"""
End Sub
J'aimerais la perfectionner un peu pour qu'elle fonctionne en "bascule" :
– si mon format personnalisé est déjà appliqué, la cellule revient à un format normal ("jj/mm/aa" en noir)
– si elle est au format de base ("jj/mm/aa" en noir), elle bascule au format personnalisé (" jj/mm/aa " ?" " en rouge)

...mais je ne sais pas comment faire.
A l'aide !

Merci.
m
melch
Membre dévoué
Membre dévoué
Messages : 592
Appréciations reçues : 27
Inscrit le : 28 juillet 2016
Version d'Excel : 2007 FR, 2013 FR

Message par melch » 20 septembre 2019, 11:14

Bonjour bonjour,

macro à tester :
Sub melch()

If Selection.NumberFormat = "dd/mm/yy "" ? """ Then
    Selection.NumberFormat = "dd/mm/yy"
    Selection.Font.Color = RGB(0, 0, 0)
Else
    Selection.NumberFormat = "dd/mm/yy "" ? """
    Selection.Font.Color = RGB(255, 0, 0)
End If

End Sub
1 membre du forum aime ce message.
Avatar du membre
gloub
Membre impliqué
Membre impliqué
Messages : 1'113
Inscrit le : 17 juillet 2007
Version d'Excel : 2003 sur PC + 365 sur Mac

Message par gloub » 20 septembre 2019, 11:22

Testé et approuvé !!!
Merci beaucoup !!
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message