Automatisation bordure rouge colone

[Shiraz Adama]

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]

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]

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]

Re : Automatisation bordure rouge colone

Re,

un essai

 

[Shiraz Adama]

Re : Automatisation bordure rouge colone

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

 

[tototiti2008]

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]

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]

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]

Re : Automatisation bordure rouge colone

Bonjour,

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

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]

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

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

 

[Shiraz Adama]

Re : Automatisation bordure rouge colone

Bonjour,

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

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]

Re : Automatisation bordure rouge colone

Bonjour Gilbert;
Re,

une adaptation du code de Gilbert pour la date du jour

 

[Shiraz Adama]

Re : Automatisation bordure rouge colone

Re,

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

 

[Shiraz Adama]

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

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]

Re : Automatisation bordure rouge colone

Bonsoir,

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

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