Discussion :

[BENAM69]

Bonjour,

J'ai lu cette discussion.
Je voulais savoir avec le code

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
Sub alerte()
Dim w1 As Worksheet
Dim i As Long
Dim Z As Long
Dim D As Date
Set w1 = Worksheets("alerte") 'Feuille qui contient les alertes
D = Date
 
For i = 2 To w1.Range("A" & Rows.Count).End(xlUp).Row ' faire toute la colonne A
p = D - w1.Range("A" & i)
    If p > -7 And p <= 0 Then
 
    MsgBox w1.Range("A" & i) & ":" & " " & w1.Range("B" & i)
    End If
Next

Peut-on faire en sorte qu'il copie colle la ligne en question sur un autre onglet ?
Si oui est-ce que quelqu'un me fournir le code ?

En vous remerciant par avance

[BENNASR]

bonjour
Pour faciliter la lecture merci de mettre ton code entre balise (#)
Pour ton cas voir avec ça :

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
Sub alerte()
 
Dim w1 As Worksheet
Dim i As Long
Dim D As Date
Dim j As Integer
'nettoyer feuille 2 qui recevera les taches à échéance proche
Sheets("feuil2").Range("A:B").Clear
Sheets("feuil2").Range("A1") = "DATE"
Sheets("feuil2").Range("B1") = "TACHE"
 
 
j = 2
Set w1 = Worksheets("alerte") 'Feuille qui contient les alertes
D = Date
For i = 2 To w1.Range("A" & Rows.Count).End(xlUp).Row ' faire toute la colonne A
p = D - w1.Range("A" & i)
If p > -7 And p <= 0 Then
Sheets("feuil2").Range("A" & j) = w1.Range("A" & i)
Sheets("feuil2").Range("B" & j) = w1.Range("B" & i)
Sheets("feuil2").Range("A" & j).Value = Format(Sheets("feuil2").Range("A" & j).Value, "m/d/yyyy")
j = j + 1
End If
Next
 Sheets("feuil2").Select
End Sub

[BENAM69]

Je te remercie pour ton retour rapide ^^

Je vais tester cela
Encore une fois merci ^^