Discussion :

[droms30]

bonjour a tous je vous remercie d'avance , de l'aide que vous pourrez m’apporter.

voila

je cherche sur ma feuille suivi dans la plage j3 a j250

des que la date dans cette colonne arrive a date du jour + 3 ou +2 ou +1 jour ou dépassé ,que la ligne de C a J soit copier dans la feuille DATEA.

voila le code que j'ai essayer :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Sub datealerte()
Dim vdate3 As Date
Dim vdate2 As Date
Dim vdate1 As Date
Dim vdate As Date
 
'On définit les mots clé
    vdate3 = Date + 3
    vdate2 = Date + 2
    vdate1 = Date + 1
 
''Sélection de la feuille suivi
 Feuil1.Select
 Range("J3", "J250").Select
 
''Vérification du critère de sélection indice vdate
Do While ActiveCell.Value <> "" 'Boucle tant qu'on ne tombe pas sur une cellule vide
        If ActiveCell.Value Like "vdate3" Then
 
           Ligne = ActiveCell.Row              'on stocke le numéro de ligne
 
            'copie de la ligne (colonne D à J)
            Range(Cells(Ligne, 3), Cells(Ligne, 7)).Copy
            Feuil8.Select
            Range("B3").Select
 
'            'cas numero 1 : aucune ligne n'a déjà été exportée
            If ActiveCell.Offset(1, 0).Value = "" Then
                ActiveCell.Offset(1, 0).Select
 
 
 
'            'cas numero 2 : des lignes ont déjà été exportées
            Else
                Selection.End(xlDown).Select
                ActiveCell.Offset(1, 0).Select
 
'                    'Pas de doublon : collage de la ligne
                    ActiveSheet.Paste
                    Feuil8.Select
                    ActiveCell.Offset(1, 0).Select
 
 
 
            End If
 
'        'pas de vdate dans la cellule
        Else
            ActiveCell.Offset(1, 0).Select
    End If
 
 
 
boucle:
 Loop
 
 End Sub