Discussion :

[nono1712]

Bonjour,
Dans la colonne A d'une feuille Excel j'ai des dates, je voudrais que lorsqu'une de ces dates correspond à la date du jour toute la ligne correspondante soit copy/paste value.
Est ce que quelqu'un a une idée afin de résoudre ceci ?

Merci de votre aide

Arnaud

[ouskel'n'or]

Bonjour nono21x29,7, bienvenue sur le forum,
Tu vois ça comment ? Exécution à l'ouverture du fichier ? Un bouton ?

[nono1712]

je voudrais que cette macro se lance tous les jours à une heure donnée, disons 18h00

[ouskel'n'or]

Pour que cette macro s'exécute à une heure donnée, ton classeur doit être ouvert. Tu en es conscient ?
Pour lancer une macro à heure fixe regarde à OnTime, dans l'aide en ligne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'Extrait de l'aide en ligne
Application.OnTime TimeValue("18:00:00"), "Ta_Procedure"

[nono1712]

Je suis au point pour lancer la macro à heure fixe, ce que je n'arrive pas à écrire c'est le code de la macro en elle même

[Fvandermeulen]

Bonjour,
Voici un code pour "Ta_procedure"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Ta_Procedure()
 
Dim cell As Range
Today = Date 'Défini la date du jour
 
For Each cell In Range("a:a") 'ballaie la plge mentionnée
 
    If cell.Value = Today Then
    cell.EntireRow.Copy 
    cell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    End If
Next
 
End Sub

[ouskel'n'or]

Find est infiniment plus rapide que For each Next pour trouver une donnée.
Comme j'ignore ta manière de traiter les dates dans ta feuille (format) je te suggère de passer par le N° de série pour les comparer à la date du jour. Ainsi tu pourras toutes les passer en revue d'un seul coup d'un seul sans avoir à lire ligne par ligne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Test()
Dim c As Range, LaDate As Long, LeFormat As String
'On relève le format de date
    LeFormat = Columns(1).NumberFormat
'On donne le format du N° de série à la colonne
    Columns(1).NumberFormat = "General"
'on convertit la date cherchée en N° de série
    LaDate = CDbl(Date)
'on lance la recherche de LaDate sur la plage de cellule A1:A & dernière ligne
    With Worksheets("feuil1").Range(Cells(1, 1), Cells(Range("A65535").End(xlUp).Row, 1))
        Set c = .Find(LaDate)
        If Not c Is Nothing Then 'si donnée trouvé, on copie la ligne
            MsgBox "Trouvé !"
            Rows(c.Row).Copy
            Rows(c.Row).PasteSpecial Paste:=xlPasteValues
          Else
            MsgBox "Pas trouvé !"
        End If
    End With
'On rétablit le format
    Columns(1).NumberFormat = LeFormat
End Sub

Si la date d'aujourd'hui peut être rencontrée plusieurs fois tu devras utiliser une boucle dont tu trouveras un exemple facile à adapter dans l'aide en ligne à Find.