VBA calendrier [Résolu/Fermé]

Signaler
Messages postés
61
Date d'inscription
dimanche 23 mars 2008
Statut
Membre
Dernière intervention
16 août 2010
-
Messages postés
61
Date d'inscription
dimanche 23 mars 2008
Statut
Membre
Dernière intervention
16 août 2010
-
Bonjour,
Dans un calendrier,en vba, je veux mettre la case qui a le jour d'aujourd`hui en noir, mon calendrier est de "A7:G12" et mon jour est en "I4"
merci de votre aide

3 réponses

Messages postés
7080
Date d'inscription
dimanche 8 avril 2007
Statut
Modérateur
Dernière intervention
25 septembre 2020
1 241
Bonsoir,
Pour cela tu peux utiliser la mise en forme conditionnelle.

Tu sélectionnes la plage de cellules de ton calendrier soit : "A7:G12" .
Ensuite tu cliques sur "Format" ---> "Mise en forme conditionnelle...", dans la boîte qui s'ouvre dans Condition1, tu choisis :
la valeur de la cellule est / égale à / =$I$4
Tu cliques sur le bouton "Formats...", et tu choisis la police, la couleur et le motif puis OK et encore OK.

Le jour de ton calendrier correspondant au jour contenu dans I4 apparaîtra, alors, avec la mise en forme que tu auras choisie.

Bonne nuit et à+
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 136
Bonjour,

Voilà le code à placer dans un module
Sub myDate()
Dim ws As Worksheet
Dim rwIndex As Long
Dim colIndex As Long

    Set ws = Worksheets("Feuil1")
    
    For rwIndex = 7 To 12
    For colIndex = 1 To 7
        With ws.Cells(rwIndex, colIndex)
            If .Value = ws.Range("I4").Value Then
                .Interior.Color = RGB(0, 0, 0)
                .Font.Color = RGB(255, 255, 255)
        End If
        End With
    Next colIndex
Next rwIndex
End Sub


;o)

polux
Messages postés
61
Date d'inscription
dimanche 23 mars 2008
Statut
Membre
Dernière intervention
16 août 2010
2
Merci sa marche bien