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

James007

XLDnaute Barbatruc

• 30 Décembre 2010

• #2

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

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 30 Décembre 2010

• #3

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

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 30 Décembre 2010

• #4

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

 

Pièces jointes

• Bordure sur dernier jour ouvré.zip

  22 KB · Affichages: 41
• Bordure sur dernier jour ouvré.zip

  22 KB · Affichages: 42
• Bordure sur dernier jour ouvré.zip

  22 KB · Affichages: 43

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 30 Décembre 2010

• #5

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

 

Vote positif 0 Vote négatif

exene

XLDnaute Accro

• 30 Décembre 2010

• #6

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

 

Pièces jointes

• Bordure sur dernier jour ouvré V1.zip

  18.3 KB · Affichages: 42

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 30 Décembre 2010

• #7

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

 

Dernière édition: 30 Décembre 2010

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 31 Décembre 2010

• #8

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 :

Code:

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

 

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 31 Décembre 2010

• #9

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)

 

Vote positif 0 Vote négatif

C

Claude38

XLDnaute Impliqué

• 31 Décembre 2010

• #10

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

Bonjour tous,

Une autre solution par MFC

Bonne fin d'année

 

Pièces jointes

• Mfc christian258.zip

  18.3 KB · Affichages: 41

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 31 Décembre 2010

• #11

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

 

Vote positif 0 Vote négatif