Modification petit VBA

[AURACLE68]

Bonjour à tous,

Décidement j'ai vraiment dû mal à me passer de vos services.

Voilà j'ai une ligne de code VBA qui permet de copier des données d'une feuille à une autre en fonctionde la date systéme.

Malheureusement, cette ligne ne me convient pas, il faudra que cette ligne puisse juste comparer le jour de la date système. Ex. aujourd'hui 01/04/2013, mais ne comparer que le 01 de jour.

Voici la ligne de code

For i = 22 To 42
If Range("k" & i).Value = Date Then
ligne = i
Exit For
End If

A la place de DATE, j'ai tenter dans le plus grand désespoir JOUR() ..... pffff ca marche pas

Merci encore à toutes les âmes charitables.

NB. : le fichier source étant extrêmement lourd, je ne peux l'envoyer en PJ.

 

[_Thierry]

Re : Modification petit VBA

Bonjour Auracle68;, le Forum

Si j'ai bien compris voici deux solutions pour le prix d'une !

Sub Test()
MsgBox Format(Date, "d")
MsgBox Day(Date)
End Sub

Cordialement,

PS tu t'en es sorti dans l'autre Fil pour le Tri sur certaines feuilles only ?

@+Thierry

 

[sixair]

Re : Modification petit VBA

Bonjour Auracle68,

as-tu essayé avec Day ?

For i = 22 To 42
If Day(Range("k" & i).Value) = Day(Date) Then
ligne = i
Exit For
End If
Next i

Cdlt

 

[Gardien de phare]

Re : Modification petit VBA

Bonjour,

Utilises la fonction day qui renvoie le numéro du jour (de 1 à 31)
par exemple :

Sub test()
If Day(Date) = Day(Range("A1").Value) Then
MsgBox "OK"
End If
End Sub

 

[AURACLE68]

Re : Modification petit VBA

Merci à tous pour votre aide.

J'ai tenté la formule de Sixair qui me plait bien, mais pour X raisons quand je l'applique, au lieu qu'il me reporte les données liés à jour J, il me met les données à jour+1, j'ai changé la date système est pareil.J'ai un décalage de 1 jour

Comme dirait l'autre, mais qu'es qu'il se passe ?

 

[Gardien de phare]

Re : Modification petit VBA

Re,

Je ne vois pas comment le code proposé pourrait créer l'erreur que tu constates. Elle vient soit des données de base, soit d'une autre partie du code.

 

[AURACLE68]

Re : Modification petit VBA

RE,

J'ai rajouter +1, et plus aucun décalage, voici la ligne de code

If Day(Range("K" & i + 1).Value) = Day(Date) Then

Merci à tous.