- [Résolu] - Macro rechercher une date quelque soit l'année (jj/mm)

[zorglubxp]

Bonsoir,

Je recherche une solution pour localiser à l’intérieur d'une plage définie, une cellule contenant par exemple le 28/02.
J'ai bien essayé avec le code ci dessous, cela fonctionne pour l'année 2012 (en cours) mais pas pour les autres années

For i = 1 To timeLine.Cells.Count
        If timeLine.Cells(i).Value = DateValue("28/02") Then ...
                
ou

        If timeLine.Cells(i).Value = CDate("28/02") Then ...

Bien evidemment, si je complète avec l'année entière 28/02/2011 cela fonctionne, mais dans la mesure ou ma "time-line" est prévue pour être changée chaque année, j'ai besoin que cette recherche fonctionne tout le temps. cf fichier joint.

 

[Gelinotte]

Re : Macro rechercher une date quelque soit l'année (jj/mm)

Bonsoir,

J'ai ne n'ai pas utilisé "TimeLine" n'ayant pas de bonnes références, c'est dommage.

Ce code tient compte du format de date potentiellement différent d'une machine à l'autre.

Examine cela si ça convient.

Sub trouveDate()
For i = 2 To 122 ' timeLine.Cells.Count
LeFormatDate = Application.International(xlDateOrder)
Select Case LeFormatDate
  Case 0
'    DDateFormat = "mm/dd/yyyy"
     If Mid(Cells(5, i), 4, 2) & "/" & Left(Cells(5, i), 2) = "28/02" Then MsgBox "Coucou"
  Case 1
'    DDateFormat = "dd/mm/yyyy"
     If Left(Cells(5, i), 2) & "/" & Mid(Cells(5, i), 4, 2) = "28/02" Then MsgBox "Coucou"
  Case 2
'    DDateFormat = "yyyy/mm/dd"
     If Right(Cells(5, i), 2) & "/" & Mid(Cells(5, i), 6, 2) = "28/02" Then MsgBox "Coucou"
  Case Else
'    DDateFormat = "yyyy/mm/dd"
     If Right(Cells(5, i), 2) & "/" & Mid(Cells(5, i), 6, 2) = "28/02" Then MsgBox "Coucou"
End Select
Next i
End Sub

G

 

[zorglubxp]

Re : Macro rechercher une date quelque soit l'année (jj/mm)

Merci, mais je ne suis pas fort en VBA et je ne comprends pas tout !


Voici ma macro qui ne fonctionne que pour l'année en cours : (mon but étant de masquer la colonne du 29 février pour les années bissextiles)

Sub Macro11()
    
    Dim timeLine As Range
        Set timeLine = Range("A6:ADP6")
    Dim i As Integer
        
        
    For i = 1 To timeLine.Cells.Count
        If timeLine.Cells(i).Value = DateValue("28/02") Then
            Cells(i + 2).Columns.Hidden = True
            Cells(i + 3).Columns.Hidden = True
            If timeLine.Cells(i + 2).Value = DateValue("29/02") Then
                Cells(i + 2).Columns.Hidden = False
                Cells(i + 3).Columns.Hidden = False
            End If
        End If
    Next i

End Sub

Partant du principe que sur mon fichier les dates sont au format dd/mm/yyyy, à partir de ton code, je ne sais pas comment extraire le "case"

 

[Modeste geedee]

Re : Macro rechercher une date quelque soit l'année (jj/mm)

Bonsour®

If format(timeLine.Cells(i),"ddmm")= "2802" Then

 

[Gelinotte]

Re : Macro rechercher une date quelque soit l'année (jj/mm)

Bonsoir,

Je ne cesse d'apprendre. C'est fantastique.

La difficulté, c'est de s'en souvenir

Merci Modeste geedee


G

 

[zorglubxp]

Re : - [Résolu] - Macro rechercher une date quelque soit l'année (jj/mm)

Super, ça fonctionne parfaitement !!!!
Merci Modeste Geedee, et merci à toi aussi Gelinotte