XL 2016 Colorer l'intérieur d'une cellule sélectionnée

[ReneDav14000]

Bonjour le forum,
Pourriez-vous me dire où dois-je insérer cette instruction dans le code ci-dessous s'il vous plaît ?
L'instruction est censée colorer en vert la cellule sélectionnée ensuite je dois ajouter une autre instruction pour annuler la couleur lorsqu'une autre cellule est sélectionnée.
Je vous en remercie par avance

Instruction :

Selection.Interior.Color = RGB(0,255,0) 'Vert'

Code où doit-être insérée cette instruction :

Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim pos As Integer
Dim sem As String
    Application.ScreenUpdating = False
    
    If Target.Row = 5 Or Target.Row = 14 Then 'Ligne des mois
        Range("B24") = Target.Offset(0, -1).Value 'maj mois
        Range("B26").Value = Target.Offset(0, -1).Value 'début mois choisi
    End If
    
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Row >= 7 And Target.Row <= 21 Then
        Range("B24") = Target.Value  'maj mois
        
        sem = CStr(Application.IsoWeekNum(Target.Value)) 'semaine
        
        Range("B26").Value = DateSerial(Year(Target.Value), Month(Target.Value), 1)  ' début mois choisi
        
        With Worksheets(sem)  'sélection feuille
            .Visible = True
            .Activate
            pos = 1 'sélection date
            While .Range("A2").Offset(0, pos).Value <> Target.Value
                pos = pos + 1
            Wend
            .Range("A2").Offset(0, pos).Activate 'position colonne
        End With
    End If
    Application.ScreenUpdating = True
End Sub

 

[ReneDav14000]

Bonsoir le forum,
Merci beaucoup Pierre, normalement tout fonctionne bien.
Je vous souhaite à tous un très bon weekend
Très amicalement

 

[patricktoulon]

je
je ne sais pas si c'est a cause des version recente d'excel qui vous poussent a traivailler comme ça
mais purré qu'est que vous vous compliquez la vie

sérieux c'est de pire en pire
dans le calendrier ce sont des date (ou des num serie de date même si on ne vois que le jour )
purée de bon sang!!

je viens de tester

with sheets(WorksheetFunction.IsoWeekNum(target.Value))
.Visible = True
.activate
.cells.find(target.value).select
end with

terminé

 

[ReneDav14000]

je
je ne sais pas si c'est a cause des version recente d'excel qui vous poussent a traivailler comme ça
mais purré qu'est que vous vous compliquez la vie

sérieux c'est de pire en pire
dans le calendrier ce sont des date (ou des num serie de date même si on ne vois que le jour )
purée de bon sang!!

je viens de tester

with sheets(WorksheetFunction.IsoWeekNum(target.Value))
.Visible = True
.activate
.cells.find(target.value).select
end with

terminé

Bonjour Patrick, bonjour le forum,

Ton code remplace quoi ? Parce que là pour moi, c'est la brasse coulée...
Si on ne m'explique pas un minimum, je nage complètement.
Sinon, as-tu réussi à faire ton horloge ?

 

[p56]

Heum, il semble que patricktoulon n'a pas bien suivi le fil. Il est encore resté sur une option 52 onglets pour 52 semaines.
Son dernier message est largement caduque.