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

fanch55

XLDnaute Barbatruc

• 11 Octobre 2021

• #2

Bonjour,
Comme cela ?

 

Pièces jointes

• Copie de reporting MFC color - Copie.xlsx

  36.4 KB · Affichages: 7

Vote positif 0 Vote négatif

MP59

XLDnaute Occasionnel

• 11 Octobre 2021

• #3

En gardant la première condition

 

Pièces jointes

• reporting MFC color - Copie.xlsx

  38.1 KB · Affichages: 7

Vote positif 0 Vote négatif

T

tuti

XLDnaute Occasionnel

• 11 Octobre 2021

• #4

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 )

 

Vote positif 0 Vote négatif

riton00

XLDnaute Impliqué

• 11 Octobre 2021

• #5

Bonsoir

Voir Pj

Slts

 

Pièces jointes

• reporting MFC color.xlsx

  35.6 KB · Affichages: 6

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 11 Octobre 2021

• #6

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 .....) :

VB:

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

 

Vote positif 0 Vote négatif

T

tuti

XLDnaute Occasionnel

• 12 Octobre 2021

• #7

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 )

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 12 Octobre 2021

• #8

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)

Code:

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

 

Vote positif 0 Vote négatif