Dates suivant couleur

[Sellig]

Bonsoir les Pros,

Je recherche une aide pour mon projet que j’ai simplifié au maximum afin de vous faciliter la tâche.

J’ai tout expliqué dans mon fichier joint.

Comme je l’ai également noté sur mon fichier, mon début de macro n'est peut-être pas très conventionnel mais il a le mérite de fonctionner. Ensuite je bloque.

Merci de votre aide

Cordialement

 

[TooFatBoy]

Bonjour,

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

 

[Sellig]

Bonjour,

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

Super

C’est exactement ce que je souhaitais.

Merci beaucoup, bonne journée

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

 

[TooFatBoy]

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

Avez vous vu...? - marquer comme résolu

Bonjour comment mettre une discution comme résolu d avance merci à vous tous

excel-downloads.com

 

[Sellig]

Bonjour,

Je ne sais pas si vous avez vu mon merci, (je n’y comprends rien sur ce site).

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

Je profite de votre bonté pour une petite aide supplémentaire :

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.

Merci beaucoup

 

[sylvanu]

Bonjour,
Ne suffit il pas de faire :

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

 

[TooFatBoy]

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

La flèche rouge n'est pas assez grosse ???

 

[TooFatBoy]

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.

Ici tu demandes toujours novembre. Dans ton classeur tu demandes "toujours août" et "toujours le mois en cours".

Il va falloir que tu fasses un choix parmi les trois !
Je t'ai donné une réponse pour " la date du 08 + le mois en cours + l'année en cours".
Mais peut-être n'est-ce pas vraiment "le mois en cours", c'est-à-dire "le mois d'aujourd'hui" que tu veux.

 

[Sellig]

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

Bonjour,
Ne suffit il pas de faire :

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

Encore faut-il si connaitre suffisamment, mais s’est exactement ça que je souhaitais

Merci beaucoup