recherche d'un jour dans une date

[chelsea]

bonjour à tous

j'ai des dates qui se situent de F2 à IV2 et je voudrais rechercher toutes les dates qui correspondent au samedi

j'ai essayé quelque chose comme ça

For Each cel In Range("F2:IV2")
            datejour = cel.Value
            If datejour.Day = sam Then
                col = ActiveCell.Column
                Range(Cells(ligne, col), Cells(ligne + 13, col + 1)).Select
                Selection.Interior.ColorIndex = 39
            End If
            
        Next cel

mais ça me fais une erreur

pourriez-vous m'aider svp

 

[Gael]

Re : recherche d'un jour dans une date

Bonjour Chelsea,

Essaye avec l'instruction Weekday:

Weekday(Cel.value, vbMonday) = 6

@+

Gael

 

[chelsea]

Re : recherche d'un jour dans une date

salut gael,

ça ne serait pas plutôt ça ?

Weekday(Cel.value, vbsamedi) = 6

 

[Pierrot93]

Re : recherche d'un jour dans une date

Bonjour Chelsea

Peut être avec le code ci dessous :

Sub test()
Dim cel As Range
For Each cel In Range("F2:IV2")
If IsDate(cel.Value) Then _
    If Weekday(cel.Value, 2) = 6 Then cel.Interior.ColorIndex = 39
Next cel
End Sub

bon après midi
@+

Aarf Gael, bonjour, pas raffraichi...trop rapide pour moi.

 

[dg62]

Re : recherche d'un jour dans une date

Bonjour


Gael a raison ! le VBmonday indique que la semaine commence le Lundi. Samedi est donc le 6e jour de la semaine. Contrairement au US ou le premier jour de la semaine est le dimanche.

Sub samedi()
Dim datejour As Date
Dim cel As Range
For Each cel In Range("F2:IV2")
            
            datejour = cel.Value
            
            If Weekday(datejour, vbMonday) = 6 Then
                
                cel.Interior.ColorIndex = 39 
                
            End If
            
Next cel
End Sub

Bonne journée

 

[Gael]

Re : recherche d'un jour dans une date

Bonjour Pierrot, Chelsea,

Le deuxième paramètre insique le jour de début de la semaine. si tu mets vbmonday, Lundi sera 1, mardi 2 ...; si tu mets vbsaturday, samedi sera 1...

Tu peux aussi mettre un chiffre au lieu du Vbmonday... comme dans l'exemple de Pierrot: 1 pour dimanche, 2 Lundi... et 7 pour samedi.

C'est juste le chiffre de la comparaison qui sera différent.


@+

Gael

Et bonjour DG62, je ne t'avais pas vu.

Gael

 

[chelsea]

Re : recherche d'un jour dans une date

merci à tous pour votre aide et vos explications

le code donne ça

For Each cel In Range("F2:IV2")
        cel.Select
            If Weekday(cel.Value, vbMonday) = 6 Then
                col = ActiveCell.Column
                Range(Cells(ligne, col), Cells(ligne + 13, col + 1)).Select
                Selection.Interior.ColorIndex = 39
            End If
            
        Next

j'apprend beaucoup gràce à vous

 

[Gael]

Re : recherche d'un jour dans une date

Re,

Tu peux même supprimer les ".select" en écrivant:

[LEFT]For Each cel In Range("F2:IV2")
           If Weekday(cel.Value, vbMonday) = 6 Then
               col = Cel.Column
               Range(Cells(ligne, col), Cells(ligne + 13, col +1)).Interior.ColorIndex = 39
           End If[/LEFT]
 
[LEFT]       Next[/LEFT]

@+

Gael