Automatisation bordure rouge colone

Shiraz Adama · 29 Août 2015

Bonjour à tous,

Etant débutant sur Excel, j'aurai besoin de votre aide et de vos connaissances pour résoudre un de mes problème.
Je suis en train de réaliser un planning d'astreinte. Dans ce planning, il y a le nom des intervenants et les dates d'astreintes, j'aimerai pouvoir insérer/modifier automatiquement les bordures (insérer en rouge) en fonction du jour qu'on ce trouve.
Exemple

Pour avoir une meilleur visibilité qui ce trouve d'astreinte aujourd'hui.

Merci
Cordialement,

tototiti2008 · 29 Août 2015

Re : Automatisation bordure rouge colone

Bonjour Shiraz,
Bienvenue,

Tu peux changer la couleur des bordures avec une mise en forme conditionnelle (MFC) mais tu n'auras pas accès à des bordures épaisses
Si tu veux un exemple, poste un fichier sans données confidentielles

Shiraz Adama · 29 Août 2015

Re : Automatisation bordure rouge colone

Merci de ta réponse rapide.
Justement avec me MFC, je n'ai pas réussi à faire avec plusieurs cellules
J'ai joint mon fichier

tototiti2008 · 29 Août 2015

Re : Automatisation bordure rouge colone

Re,

un essai

Shiraz Adama · 29 Août 2015

Re : Automatisation bordure rouge colone

C'est exactement ce que je cherche mais dommage que ça soit limité la grosseur des bordures

tototiti2008 · 29 Août 2015

Re : Automatisation bordure rouge colone

Re,

mais dommage que ça soit limité la grosseur des bordures

Oui, les mystères des choix de Microsoft... si tu veux une bordure épaisse il faut faire une macro

Shiraz Adama · 29 Août 2015

Re : Automatisation bordure rouge colone

Encore merci

Concernant les macros, je sais vaguement comment ça fonctionne, si il faut que j'enregistre manuellement pour chaque ligne, je n'ai pas fini.
Une dernière question que je n'ai pas réussi à résoudre comment bloque t-on les barres de défilement pour éviter avec le scroll de se trouver à la case 8000

tototiti2008 · 29 Août 2015

Re : Automatisation bordure rouge colone

Re,

Je ne sais le changer que par l'éditeur VBA
Clic droit sur l'onglet de ta feuille - Visualiser le code
En bas à gauche de l'éditeur, tu devrais avoir la fenêtre Propriétés concernant Feuille1 (si pas le cas, Menu Affichage - Fenetre Propriétés)
Dans les propriétés, tu en as une qui s'appelle ScrollArea
dedans, met :
A1:IM58
et entrée
Quitte l'éditeur VBA et essaie tes ascenceurs

Tout ça sur PC, peut-être des différences sur MAC...

gilbert_RGI · 29 Août 2015

Re : Automatisation bordure rouge colone

Bonjour,

avec ceci peut-être à mettre dans l'emplacement du code de la feuille

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'*** Définition des variables ***
    w = ActiveCell.Width
    t = ActiveCell.Top
    l = ActiveCell.Left
    h = 2 * ActiveWindow.UsableWidth
    '----------------------------------
    'Teste si les rectangles existent déjà.
    On Error Resume Next
    ActiveSheet.Shapes("RectangleV").Delete
    On Error GoTo 0
    'Ajoute les rectangles
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, l, 0, w, h).Name = "RectangleV"
    With ActiveSheet.Shapes("RectangleV")
        .Fill.Visible = msoFalse
        .Fill.Transparency = 1#
        .Line.Weight = 2#
        .Line.ForeColor.SchemeColor = 2   'rouge
        .ControlFormat.PrintObject = False
    End With
End Sub

Shiraz Adama · 29 Août 2015

Re : Automatisation bordure rouge colone

tototiti2008 à dit:
Re,

Je ne sais le changer que par l'éditeur VBA
Clic droit sur l'onglet de ta feuille - Visualiser le code
En bas à gauche de l'éditeur, tu devrais avoir la fenêtre Propriétés concernant Feuille1 (si pas le cas, Menu Affichage - Fenetre Propriétés)
Dans les propriétés, tu en as une qui s'appelle ScrollArea
dedans, met :
A1:IM58
et entrée
Quitte l'éditeur VBA et essaie tes ascenceurs

Tout ça sur PC, peut-être des différences sur MAC...

Super, merci infiniment.
Ça rend fou Excel mais c'est tellement passionnant

Shiraz Adama · 29 Août 2015

Re : Automatisation bordure rouge colone

gilbert_RGI à dit:

Bonjour,

avec ceci peut-être à mettre dans l'emplacement du code de la feuille

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'*** Définition des variables ***
    w = ActiveCell.Width
    t = ActiveCell.Top
    l = ActiveCell.Left
    h = 2 * ActiveWindow.UsableWidth
    '----------------------------------
    'Teste si les rectangles existent déjà.
    On Error Resume Next
    ActiveSheet.Shapes("RectangleV").Delete
    On Error GoTo 0
    'Ajoute les rectangles
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, l, 0, w, h).Name = "RectangleV"
    With ActiveSheet.Shapes("RectangleV")
        .Fill.Visible = msoFalse
        .Fill.Transparency = 1#
        .Line.Weight = 2#
        .Line.ForeColor.SchemeColor = 2   'rouge
        .ControlFormat.PrintObject = False
    End With
End Sub

Bonjour Gilbert,

Merci encore, j'ai bien collé le code mais cela m'affiche une barre rectangulaire rouge sur toute la colonne avec effectivement des bordures plus épaisses dès que je la sélectionne mais pas spécialement à date d'aujourd'hui

tototiti2008 · 29 Août 2015

Re : Automatisation bordure rouge colone

Bonjour Gilbert;
Re,

une adaptation du code de Gilbert pour la date du jour

Shiraz Adama · 30 Août 2015

Re : Automatisation bordure rouge colone

Re,

Merci mais la première solution que tu m'avais proposer me convient mieux

Shiraz Adama · 6 Septembre 2015

Re : Automatisation bordure rouge colone

tototiti2008 à dit:
Re,

Je ne sais le changer que par l'éditeur VBA
Clic droit sur l'onglet de ta feuille - Visualiser le code
En bas à gauche de l'éditeur, tu devrais avoir la fenêtre Propriétés concernant Feuille1 (si pas le cas, Menu Affichage - Fenetre Propriétés)
Dans les propriétés, tu en as une qui s'appelle ScrollArea
dedans, met :
A1:IM58
et entrée
Quitte l'éditeur VBA et essaie tes ascenceurs

Tout ça sur PC, peut-être des différences sur MAC...

Hello,

Je reviens vers vous, concernant les ascenceurs... Le ScrollArea à compléter dans la feuille fonctionne mais dés que ferme et ré-ouvre la feuille, le code ScrollArea n'est pas enregistrer

tototiti2008 · 6 Septembre 2015

Re : Automatisation bordure rouge colone

Bonsoir,

Il faut le redéfinir à l'ouverture du classeur
Dans le code de Thisworkbook

Code:

Private Sub Workbook_Open()
Feuil1.ScrollArea = "A1:IM58"
End Sub

Automatisation bordure rouge colone

Shiraz Adama

XLDnaute Nouveau

Pièces jointes

tototiti2008

XLDnaute Barbatruc

Shiraz Adama

XLDnaute Nouveau

Pièces jointes

tototiti2008

XLDnaute Barbatruc

Pièces jointes

Shiraz Adama

XLDnaute Nouveau

tototiti2008

XLDnaute Barbatruc

Shiraz Adama

XLDnaute Nouveau

tototiti2008

XLDnaute Barbatruc

gilbert_RGI

XLDnaute Barbatruc

Pièces jointes

Shiraz Adama

XLDnaute Nouveau

Shiraz Adama

XLDnaute Nouveau

tototiti2008

XLDnaute Barbatruc

Pièces jointes

Shiraz Adama

XLDnaute Nouveau

Shiraz Adama

XLDnaute Nouveau

tototiti2008

XLDnaute Barbatruc

Discussions similaires