Fonction pour mettre une bordure sur dernier jour ouvré des mois...

[Christian0258]

Bonsoir à tout le forum,

Je souhaiterais votre aide pour écrire une fonction afin de mettre un trait (à droite) sur le dernier jour ouvré des mois... voir fichier.

Merci pour votre aide si précieuse.
Bien amicalement,
Christian

 

[James007]

Re : Fonction pour mettre une bordure sur dernier jour ouvré des mois...

Bonsoir Christian,

Pour pouvoir utiliser la fonction Equiv() et donc localiser chaque jour ouvré, il faudrait, par exemple en ligne 9, reconstituer la date complète pour qu'elle serve à localiser la bonne colonne ... est-ce envisageable ou pas ...?

A +
🙂

 

[Christian0258]

Re : Fonction pour mettre une bordure sur dernier jour ouvré des mois...

Bonsoir à tout le forum, James007,

bonsoir, James007, encore merci pour ton aide, hier.
Oui absolument envisageable.

à te lire

Christian

 

[James007]

Re : Fonction pour mettre une bordure sur dernier jour ouvré des mois...

Re,

Comme point de départ pour la macro qui ajoutera la bordure, les numéros des colonnes pour lesquelles cela doit être fait ...

A+
🙂

 

[Christian0258]

Re : Fonction pour mettre une bordure sur dernier jour ouvré des mois...

Re;

James007,

ok, je suis la leçon, chapeau l'astuce du numérotation des colonnes à traiter.

à te lire,
Christian

 

[exene]

Re : Fonction pour mettre une bordure sur dernier jour ouvré des mois...

Bonsoir,

Avec une MFC , cela pourrait il te convenir. A tester cependant (Je n'ai pas la compétence de James)

Meilleurs voeux

Bonne soirée

 

[Christian0258]

Re : Fonction pour mettre une bordure sur dernier jour ouvré des mois...

Re, le forum, exene,

Merci, exene, pour ta solution

Mais après essai il me semble que le trait ne se place pas uniquement sur le dernier jour ouvré du mois ?



Bien amicalement,
Christian

 

[James007]

Re : Fonction pour mettre une bordure sur dernier jour ouvré des mois...

Bonjour Christian,

En ce qui concerne la macro, cela devrait générer les bordures :

Sub Bordures()
Dim col As Range
For Each col In Feuil1.Range("E2:E7")
    With Feuil1.Range(Cells(10, col.Value), Cells(30, col.Value)).Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
Next col
End Sub

A +
🙂

 

[hoerwind]

Re : Fonction pour mettre une bordure sur dernier jour ouvré des mois...

Bonjour,

A essayer : une formule de MFC : =MOIS(AL$6)<>MOIS(AM$6)

 

[Claude38]

Re : Fonction pour mettre une bordure sur dernier jour ouvré des mois...

Bonjour tous,

Une autre solution par MFC

Bonne fin d'année

 

[Christian0258]

Re : Fonction pour mettre une bordure sur dernier jour ouvré des mois...

Bonjour à tout le forum, James007,exene, Hoerwind, Claude38,

Un grand merci à vous quatre.
Il y a du "lourd" pour répondre à mon problème et j'en suis ravi.
J'ai le choix avec vos solutions
Salut les artistes.

Bonne année 2011 à tous.

Bien à vous,
Christian