Discussion :

[ikiwi]

Bonjour,

Étant novice, je viens demander votre aide après plusieurs tentatives infructueuses mon côté...

J'aimerais que ma macro supprime les lignes où les dates se trouvant dans la colonne A n'ont pas été sélectionnées l'utilisateur.

Cependant, mon bout de code suivant ne fait rien... Et je ne comprends pas pourquoi pour le moment

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
'Demande la date de début
Dim DateDebut As Date
DateDebut = InputBox("Veuillez entrer la de début :", "")
 
'Demande la date de fin
Dim DateFin As Date
DateFin = InputBox("Veuillez entrer la date de fin :", "")
 
'Affiche le choix des dates
MsgBox "Votre choix: de " & DateDebut & " à " & DateFin & ""
 
 
    'Efface les lignes hors date
   For i = 2 To 1 Step -1
        If Cells(i, 1).Value < DateDebut Or Cells(i, 1) > DateFin Then
            Rows(i).Delete shift:=xlUp
        End If
    Next i

Voilà le résultat qu j'aimerais en image: