Discussion :

[sam4510]

Bonjour,
J'ai un gros problème, je vous explique :
Je ne sais pas si c'est claire en gros sur la feuille 1 "collecte", je liste les travaux que mes prestataires font dans ma boite, et à la fin je mets une date de réalisation dans la cellule "date réa" à partir de cette date je voudrais qu'excel calcul seul et 8 jours après bascule la ligne entière dans la feuille 2 "archive".

Pouvez-vous m'aider svp.

Merci d'avance, je ne sais pas du tout créer de macro et je ne sais pas comment faire pour que la macro s'active seule

Cordialement,
Samantha

[Theze]

Bonsoir,

Une piste, à mettre dans un module standard (la proc Transfert). Attention, la date doit être une date et pas une chaîne. Pour savoir si c'est une date, teste cette proc :

Code :

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

1
2
3
4
5
6
 
Sub Test()
 
    MsgBox Range("A3").Value2
 
End Sub

si tu as un long ou un double, c'est une date si tu as du texte alors il te faut modifier la valeur de ta cellule.

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 Transfert()
 
    Dim Ligne As Long
 
    'si la date du jour d'ouverture du classeur est égale ou supérieure à la date indiquée en cellule A3 plus 8 jours...
    If Date >= Worksheets("collecte").Range("A3").Value + 8 Then
 
        With Worksheets("archive")
 
            'transfert des valeurs
            Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 'sur colonne A
            .Range("A" & Ligne & ":E" & Ligne).Value = Worksheets("collecte").Range("A3:E3").Value
 
            'suppression des valeurs
            Worksheets("collecte").Range("A3:E3").Value = ""
 
        End With
 
    End If
 
End Sub

Adapte les plages mais fais un test sur un classeur vierge (attention aux noms des feuilles !)
Tu peux appeler cette proc à l'ouverture du classeur :

Code :

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

1
2
3
4
5
6
 
Private Sub Workbook_Open()
 
    Transfert
 
End Sub

Hervé.

[sam4510]

Bon je suis vraiment nul car ça ne marche pas à chaque fois que j'enregistre excel me renvoi sur le code de la macro j'aimerais l'appliquer sur ce tableau 'en pj):Suivi délais préstataires.xls

Enfin bref, si quelqu'un peut m'aider merci sinon j'abandonne ce n'est pas grave