Bordure coloré cellule avec date

Bonjour,

Voici mon problème,

je souhaite mettre en place à l'aide d'un bouton un contour rouge pour la cellule contenant la semaine en cours.

A l'heure actuel je parviens a aller automatiquement dans la semaine en cours à l'aide de mon bouton et à mettre en rouge le contour de cette cellule.

Mais je ne sais pas comment supprimer le contour rouge de la semaine précédente...

CI joint mon fichier en exemple : dans l'onglet "Fiche Unique" cliquer sur le bouton "aller en semaine" vous aurait la semaine actuel sélectionnée avec un contour rouge. Reste à supprimer les semaines précédentes. (pas visible sur document nouvelle fonction)

J'espère être clair !

Merci d'avance

Bonjour,

tu peux supprimer cette couleur dans ta macro

Public li&

Sub Allerà()
    a = Sheets("Fiche Unique").Cells(12, 6)
    Sheets("Fiche Unique").Cells(11, a).Activate
    Selection.Borders.Weight = 4
End Sub

et faire une MFC

capture d ecran 311

Bonjour Papi27190,

tu a écrit :

Mais je ne sais pas comment supprimer le contour rouge...

si par exemple ton contour est pour la cellule B3 :

Sub Essai()
  [B3].Borders.LineStyle = xlNone
End Sub

si ton contour est pour la plage B3:G10 :

Sub Essai()
  [B3:G10].Borders.LineStyle = xlNone
End Sub

dans les 2 cas, ça supprime ta bordure (quelle qu'en soit la couleur)

dhany

... à condition de savoir laquelle a été colorée lors d'une précédente recherche !!! (il faudrait donc aussi stocker cette adresse)

je précise que j'ai indiqué ma solution surtout pour le xlNone : certains savent mettre le bon code couleur, mais ne savent pas quoi mettre pour l'enlever et retrouver ce qui correspond à « Aucune couleur » de remplissage.

dhany

Bonjour bonjour,

Merci de vos réponses je vais essayer de faire en fonction

Reste le problème de supprimer le contour de la semaine précédente lorsque changement de semaine

Merci à vous deux

Me revoila

Je ne suis vraiment pas familier avec les mises en formes conditionnelles…

Je me suis fait l'explication suivante pour le code que je souhaite obtenir.

La voici :

Avoir le contour de la semaine actuel coloré --> OK

Si passage à la semaine suivante détecter en actionnant le bouton : contour cellule "vide"

Alors nettoyer tout les contour du document (normalement pas de souci avec cette étape)

Et colorier le contour de la nouvelle cellule.

Sub Allerà()

a = Sheets("Fiche Unique").Cells(12, 6)

Sheets("Fiche Unique").Cells(11, a).Activate

Selection.Borders.Weight = 4

Selection.Borders.Color = RGB(255, 0, 0)

If Sheets("Fiche Unique").Cells(11, a).Activate Then

Borders.Linetyle <> xlNone

[B3:G10].Borders.LineStyle = xlNone

Sheets("Fiche Unique").Cells(11, a).Activate

Selection.Borders.Weight = 4

Selection.Borders.Color = RGB(255, 0, 0)

End If

End Sub

Merci de votre aide !

Reste le problème de supprimer le contour de la semaine précédente lorsque changement de semaine

avec une MFC cela se fait automatiquement !

mais ta solution est pas mal : utiliser la méthode Dhany appliquée à toute la ligne, en effet !

Bonjour et encore merci

Concernant la MFC cette solution me convient parfaitement aussi mais j'avoue ne pas avoir réussi à paramétrer comme dans l'image que tu as posté …

Si tu peut détailler d'avantage je suis preneur de l'explication

Merci

Pour faire la MFC

Sélectionne la plage G11:RY11

Accueil > Mise en forme conditionnelle > Nouvelle règle

Choisir l'option formule

Taper =Colonne(G11)=$F$12

Et mettre en forme

Valider

Le seul soucis est que par ce biais je ne peux pas avoir des bordures épaisses.

Merci de l'explication

Mais lorsque je fait cela j'obtient une bordure épaisse noir qui je pense viens de ma macro VBA je ne vois pas de bordure rouge…

Pourtant j'ai suivi vos explications …

Merci

Désolé erreur de ma part ca fonctionne très bien

Merci à tous ! je cloture le sujet

Bonne journée

Elle est bien rouge, mais pas bien épaisse par rapport à toutes les fioritures du fichier.

Mais en effet, si ta solution te convient, c'est parfait !

En effet c'était une erreur de ma part, encore une fois merci !

Rechercher des sujets similaires à "bordure colore date"