Discussion :

[BENNASR]

bonjour les amis
mon code s'exécute si je fais directement mais pas via un bouton de commande
mon code consiste à parcourir une liste des taches, afficher un message et supprimer les anciens taches
j'ai passé par "vrai" si la tache est expirée et "non" le contraire
chui débutant j'ai pas pu passé directement par la comparaison des date par rapport a la date d'aujourd'hui
directement sur VBA
voila mon 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
16
17
18
19
20
21
22
Sub A_FAIROS()
 
Dim w1 As Worksheet
Dim I As Long
Dim Z As Long
Dim D As Date
Set w1 = Sheets("ALERTE") 'Feuille qui contient les alertes
D = Date
 
For I = 2 To w1.Range("A5000").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
 
Application.ScreenUpdating = False
For Z = w1.[C5000].End(xlUp).Row To 1 Step -1
 
      If Left(Cells(Z, 3), 5) = "VRAI" Then Rows(Z).Delete
   Next Z
End Sub

Classeur2.xlsm

[Gado2600]

Et la question c'est quoi ?

[BENNASR]

si j'exécute directement le code ça fonctionne parfaitement , me donne les taches prochaines et supprime les taches expirées (ligne qui contiennent "VRAI" ) mais si j'exécute le code depuis une bouton de commande il exécute 50% de la code (me donne les taches prochaines sans effacer les lignes qui contiennent "vrai"
sachant que pour obtenir vrai ou faux je passe par une formule de base (si la date de la tache est non vide (si la date de la tache < date AUJOURDHUI() ; "VRAI";"FAUX)"")

ma fiche jointe illustre l'exemple
merci à vous tous

[Gado2600]

J'ai pas regardé ton fichier mais de ce que tu racontes l'erreur vient de ta condition :

Code :

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

Left(Cells(Z, 3), 5) = "VRAI"

à transformer en :

Code :

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

ucase(Left(Cells(Z, 3), 5)) = "VRAI"

[BENNASR]

merci pour votre réponse mais ça change rien
toujours le code n'arrive pas a supprimer les lignes contenant "VRAI"
ce qui est bizarre c'est si j'exécute le code directement de la page VBA ça fonctionne parfaitement !!!

AU SECOURS LES AMIS SVPPPPPPPPPPPPPPP
les taches sont dans la feuil2 nommée "ALERTE"
mon bouton de commande se trouve dans la feuil1
si depuis VBA j'exécute la commande ça me donne les taches prochaines (<7jours) et supprime les ligne contenant "VRAI"
si j'exécute depuis le bouton de commande figurant ds la feuil 1 ca me donne les taches prochaines (<7jours) mais ne SUPPRIME PAS LES LIGNES CONTENANT VRAI
merci d'avance et désolé d'insister à ce point

[Docmarti]

Bonjour

Ceci ne fonctionne pas.

Code :

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

If Left(Cells(Z, 3), 5) = "VRAI" Then

Mais ceci fonctionne.

Code :

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

If Left(w1.Cells(Z, 3), 5) = "VRAI" Then

[Docmarti]

chui débutant j'ai pas pu passé directement par la comparaison des date par rapport a la date d'aujourd'hui
directement sur VBA

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
Sub A_FAIROS()
 
Dim w1 As Worksheet
Dim I As Long
Dim Z As Long
Dim D As Date
Set w1 = Sheets("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
    w1.Range("A" & I).Select
 
    MsgBox w1.Range("A" & I) & ":" & " " & w1.Range("B" & I)
    End If
Next
 
Application.ScreenUpdating = False
For Z = w1.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
 
      If IsDate(w1.Cells(Z, 1)) Then
       If CDate(w1.Cells(Z, 1)) < D Then
        w1.Cells(Z, 1).EntireRow.Delete
       End If
      End If
   Next Z
End Sub

[BENNASR]

bonjour les super !!
ericdu06 ta solution est intélligente mais malheureusement fonctionne que si je l'exécute depuis la fenêtre VBA
Docmarti ta solution fonctionne parfaitement...vraiment merci pour vous..
BONNE JOURNEE