VBA calendrier Résolu

Question

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

aquarelle · Answer

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 à+

Polux31 · Answer

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

bobtipitt · Answer

Merci sa marche bien

VBA calendrier

3 réponses

Votre réponse

Discussions similaires