Dates suivant couleur

TooFatBoy à dit:

Bonjour,

VB:

Sub Dates_Suivant_Couleur()
'
Dim C As Range, Rg As Range

    With Worksheets("Feuil1")
        For Each C In .Range("i1:i20")
            If C.Interior.ColorIndex = 43 Then
                If Rg Is Nothing Then
                    Set Rg = C
                Else
                    Set Rg = Union(Rg, C)
                End If
            End If
        Next
    End With
    Rg.Offset(0, -8).Value = DateSerial(Year(Date), Month(Date), 8)
    Rg.Offset(0, -8).NumberFormat = "dd-mm-yy"

End Sub

Cliquez pour agrandir...

Sellig à dit:

C’est où que je clique pour passer en « Terminé » ?

Cliquez pour agrandir...

Sellig à dit:

Je ne sais pas non plus où cliquer pour passer en résolu.

Cliquez pour agrandir...

Sellig à dit:

Comment faire pour que le mois soit toujours le même, c’est-à-dire toujours le mois de novembre, seuls le jour et l’année changent.

Cliquez pour agrandir...

sylvanu à dit:

Rg.Offset(0, -8).Value = DateSerial(Year(Date), 11, Day(Date))

Cliquez pour agrandir...

sylvanu à dit:

Bonjour,
Ne suffit il pas de faire :

VB:

Rg.Offset(0, -8).Value = DateSerial(Year(Date), 11, Day(Date))

Cliquez pour agrandir...