VBA calendrier
Résolu
bobtipitt
Messages postés
61
Date d'inscription
Statut
Membre
Dernière intervention
-
bobtipitt Messages postés 61 Date d'inscription Statut Membre Dernière intervention -
bobtipitt Messages postés 61 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- VBA calendrier
- Mon calendrier - Télécharger - Santé & Bien-être
- Logiciel gratuit conversion calendrier républicain - Télécharger - Études & Formations
- Calendrier partagé google - Guide
- Synchroniser calendrier outlook et gmail - Guide
- Excel compter cellule couleur sans vba - Guide
3 réponses
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 à+
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 à+
Bonjour,
Voilà le code à placer dans un module
;o)
polux
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
