VBA calendrier

Résolu/Fermé

bobtipitt Messages postés 61 Date d'inscription dimanche 23 mars 2008 Statut Membre Dernière intervention 16 août 2010 - 31 mars 2008 à 00:02
bobtipitt Messages postés 61 Date d'inscription dimanche 23 mars 2008 Statut Membre Dernière intervention 16 août 2010 - 31 mars 2008 à 13:14

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

A voir également:

VBA calendrier
Synchroniser calendrier outlook et gmail - Guide
Calendrier partagé google - Guide
Télécharger mon calendrier gratuit - Télécharger - Santé & Bien-être
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA

3 réponses

Réponse 1 / 3

aquarelle Messages postés 7140 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 25 mars 2024 1 302
31 mars 2008 à 01:58

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

Réponse 2 / 3

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
31 mars 2008 à 02:07

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

Réponse 3 / 3

bobtipitt Messages postés 61 Date d'inscription dimanche 23 mars 2008 Statut Membre Dernière intervention 16 août 2010 2
31 mars 2008 à 13:14

Merci sa marche bien

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters