Modification petit VBA

AURACLE68 · 1 Avril 2013

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 · 1 Avril 2013

Re : Modification petit VBA

Bonjour Auracle68;, le Forum

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

Code:

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 · 1 Avril 2013

Re : Modification petit VBA

Bonjour Auracle68,

as-tu essayé avec Day ?

Code:

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 · 1 Avril 2013

Re : Modification petit VBA

Bonjour,

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

VB:

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

AURACLE68 · 1 Avril 2013

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 · 1 Avril 2013

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 · 1 Avril 2013

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.

Modification petit VBA

AURACLE68

Guest

_Thierry

XLDnaute Barbatruc

sixair

XLDnaute Junior

Gardien de phare

XLDnaute Accro

AURACLE68

Guest

Gardien de phare

XLDnaute Accro

AURACLE68

Guest

Discussions similaires

Modification petit VBA

AURACLE68

Guest

_Thierry

XLDnaute Barbatruc

sixair

XLDnaute Junior

Gardien de phare

XLDnaute Accro

AURACLE68

Guest

Gardien de phare

XLDnaute Accro

AURACLE68

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency