Dates suivant couleur

Sellig · 7 Octobre 2024

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

sylvanu · 10 Octobre 2024

Bonjour,
Ne suffit il pas de faire :

VB:

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

TooFatBoy · 8 Octobre 2024

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

Sellig · 8 Octobre 2024

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

Super

C’est exactement ce que je souhaitais.

Merci beaucoup, bonne journée

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

TooFatBoy · 8 Octobre 2024

Sellig à dit:
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 · 9 Octobre 2024

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 · 10 Octobre 2024

Bonjour,
Ne suffit il pas de faire :

VB:

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

TooFatBoy · 10 Octobre 2024

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

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

TooFatBoy · 10 Octobre 2024

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.

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 · 11 Octobre 2024

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

sylvanu à dit:
Bonjour,
Ne suffit il pas de faire :

VB:

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

Dates suivant couleur

Sellig

XLDnaute Junior

Pièces jointes

sylvanu

TooFatBoy

XLDnaute Barbatruc

Sellig

XLDnaute Junior

TooFatBoy

XLDnaute Barbatruc

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

Sellig

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Sellig

XLDnaute Junior

Discussions similaires