XL 2016 Etirer une MFC sur la colonne pleine ( pour un côtè esthétique )

[tuti]

bonjour,

sur ce forum, j'avais eu une MFC en fonction d'une date
celle ci me conviens très bien
mais vu que je me dis que cela peux ne pas être suffisant

j'aimerais bien répercuter celle ci sur une colonne complète
( j'ai essayer de mon coté mais je n'ai pas réussi à le faire )

actuellement, celle ci colorie en rouge la date par rapport à la cellule repère

j'aurais apprécier que la colonne correspondantes soit colorisés en ORange claire pour ressortir

merci

 

[fanch55]

Bonjour,
Comme cela ?

 

[MP59]

En gardant la première condition

 

[tuti]

oui, en gardant la première condition
le texte en rouge et le reste de la colonne d'une couleur différente
(juste pour un côtè purement visuel et esthétique , sans réel intéret pratique )

 

[riton00]

Bonsoir

Voir Pj

Slts

 

[fanch55]

OKi, tout le monde a bon ...
Un petit plus , code à ajouter à celui de la feuille ; il permet de se positionner immédiatement sur la colonne correspondante à la date de référence quand elle est modifiée ( vue la largeur de la feuille .....) :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [A4].Address Then
        Dim R As Range
        Set R = Rows(8).Find(Format(Target, "d/m"))
        If Not R Is Nothing Then ActiveWindow.ScrollColumn = R.Column
    End If
End Sub

 

[tuti]

merci pour le bout de code
mais en l'état, je ne serais pas en mesure de l'utiliser car certaines personnes qui utiliseront le document sont avec EXCEL WEBAPPS ( à travers un navigateur )
et pour avoir essayer déjà la dernière fois ( avec l'histoire de la toupie sur le même document ), la version WEBAPPS n'autorise pas le chargement des macro
( conseiller une synchro local n'est pas possible )

 

[fanch55]

Ah oui, le Web App !!!
En ce cas mettre la formule ci-dessous dans la cellule E4 par exemple
(faudra cliquer dessus par la suite)

=LIEN_HYPERTEXTE("#"&ADRESSE(8;EQUIV(A4;8:8));"Y aller")