Mettre une plage en surbrillance

Hello

J'ai un planning, sur lequel j'ai mis les numéro de semaine en ligne 4 (H4 = semaine 1, I4= semaine 2, J4= semaine 3etc...)

Je souhaite que soit mis en surbrillance la colonne de la semaine actuelle. Exemple, on est le 19 fevrier, semaine 8 (donc O4=8), j'ai donc toute ma colonne O qui apparaisse en surbrillance.

J'ai essayer avec la mise en forme conditionnelle, mais je n'arrive pas à le faire fonctionner, puisque la plage de cellule à prendre en compte va de H25 à EN800, sachant qu'une colonne = 1 semaine

Merci pour votre aide

Bonjour,

à tester

Sub Test()
Dim r As Integer
Dim datetest As Date
datetest = Now()
r = Format(datetest, "ww", vbMonday, vbFirstFourDays) + 1
Columns(r + 7).Interior.Color = RGB(255, 0, 0)
Columns((r-1) + 7).Interior.Color = xlnone
End Sub  

Je ne suis pas des plus doués en VBA, donc j'ai testé, mais cela ne marche pas.

J'aurais bien essayer avec une formule du type si, mais ... je trouve pas

où avez vous mis le code ?? XD

J'ai ouvert l'onglet devellopeur, cliqué sur Visual Basic, cliqué sur "feuill1" dans la colonne de gauche et l'ai collé dans la fenetre qui c'est ouvert ... C'est ca ?

Je te met le fichier en PJ (sans ton code puisque celui ou j'ai mis le code est trop lourd pour etre envoyé)

ha en faite non j'ai modifié un peu.

suivre la procedure :

• clic droit sur le nom de la feuille (en bas a gauche)
• visualidé le code
• coller le code ici
• cliquer sur une autre feuille
• revener sur la feuille en question

  Private Sub Worksheet_Activate()
Dim r As Integer
Dim datetest As Date
datetest = Now()
r = Format(datetest, "ww", vbMonday, vbFirstFourDays) + 1
Columns(r + 7).Interior.color = RGB(255, 0, 0)
Columns((r - 1) + 7).Interior.color = xlNone
End Sub

Nikel !!!

Par contre 2 remarques

• pourquoi les cellules précédentes sont blanches ?
• Comment modifier le rouge (un peu trop soutenu pour moi ...)

Pour le rouge c'est ok, j'ai trouvé. Peut on rajouter un cadre ?

sous excel 2007, la ligne n'est pas blanc.

cela peut être causer par le "xlnone"(qui indique pas de couleur et dès fois sa supprime carrément les bordure) sous votre version

pour la couleur modifier les valeur dans

RGB(255,0,0)

le RGB signifie rouge vert bleue ( maintenant a vous de jouer un petit cours de physique ) ou tout simple aller sur google(taper la couleur que vous souhaiter et ajouter "en RGB")

oui bien sur pour les bordure :

Columns (r).Borders.Weight = xlThin 

vous pouvez même gerer la couleur du cadre :

Columns (r).Borders.color = RGB(X,X,X)

Là on peut voir que j'ai réussi à changer la couleur , mais on peut voir aussi les cellules blanches :-/ (Excel 2010)

remplace

Columns((r - 1) + 7).Interior.color = xlNone 

par

For i = 1 To 4
    Cells(i, r - 1).Interior.color = Cells(i, r - 2).Interior.color
  Next i

Ca ne change rien :-/

mince j'avais oublier que vous commencez a la colonne H donc le code a tester :

remplace par sa =)

For i = 1 To 4
    Cells(i, r +6).Interior.color = Cells(i, r + 5).Interior.color
  Next i

alors là je dis RESPECT !!! Bravo et MERCI pour ton aide !!!

Je me permet de revenir vers toi, parce que mon curseur n'avance pas Il est bloqué à la date de réalisation de la macro ... Tu s une idée ?

Bonjour,

c'est à dire ?

En fait le curseur qui est censé se décaler avec la date, reste figé à la semaine 27 (date ou tu m'avait dépanné)

cliquer sur une autre feuille du même classeur et revenez sur celui la pour voire sinon joint le fichier si possible pour voir les modification que nous avons effectuer j'ai un peu oublier votre projet

Tu peux me doner un mail ou je peux t'envoyer ca ? Il est trop lourd pour passer sur le forum

y a le petit logo en dessous de mon profil pour sa =)