Discussion :

[Lordvoldman]

Bonjour,

Le problème est exposé dans le titre, maintenant mon code ne fonctionne pas et j'aimerai bien savoir pourquoi.

Merci d'avance de votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
  Dim StDate, FinDate As Variant
 
 
    Dim i As Integer
 
    StDate = InputBox("Beginning Date ?")
    FinDate = InputBox("Ending Date ?")
 
    For i = 2 To ThisWorkbook.ActiveSheet.UsedRange.Rows.Count
      If Cells(i, 5) <= StDate Or Cells(i, 5) >= FinDate Then
Rows(i).EntireRow.Delete
    Next i
End Sub

[Invité]

Bonjour,

Il faut commencer votre boucle par la fin :

Code :

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

1
2
 
 For i =  ActiveSheet.UsedRange.Rows.Count To 2 Step -1

[Menhir]

Parce que tes variables StDate et FinDate ne sont pas des dates mais des chaines de caractères.
Surtout que tu les as déclarées de type Variant.

Déclare-les de type Date.
Englobe tes InputBox dans une fonction CDate ou DateValue.
https://docs.microsoft.com/fr-fr/off...sion-functions
https://docs.microsoft.com/fr-fr/off...value-function

A faire bien sûr en complément de ce qu'à indiquer Eric KERGRESSE ( ).
Une procédure de suppression ou d'insertion de ligne doit TOUJOURS se faire du bas vers le haut, pour des raisons tout à fait logiques que je te laisse le plaisir de découvrir.

[Lordvoldman]

Merci de votre réponse.

Cette fois ci ça m'efface toutes mes lignes..

[Lordvoldman]

C'est parfait!
Merci beaucoup Menhir.

[Menhir]

Cette fois ci ça m'efface toutes mes lignes..

Change ton "Or" en "And".

[Lordvoldman]

Maintenant le code fonctionne. J'ai essayé d'affecter cette macro à un bouton sur la feuille 1 qui récupérera les valeurs de textbox dans la feuille 1 ( mais qui agira sur les colonnes de la feuille 2 ), je n'y arrive pas. ça me supprime des lignes de la feuille 1 au lieu de la feuille viséee feuille 2.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton21_Click()
Dim StDate, FinDate As Date
 
Dim i As Integer
    StDate = DateValue(Worksheets("Feuil1").Startdte)
    FinDate = DateValue(Worksheets("Feuil1").Enddte)
 
   For i = Worksheets("Feuil2").UsedRange.Rows.Count To 2 Step -1
      If Cells(i, 5) <= StDate Or Cells(i, 5) >= FinDate Then
Rows(i).EntireRow.Delete
    End If
     Next i

[BENNASR]

essayer avec :

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
Private Sub CommandButton21_Click()
Dim StDate, FinDate As Date
 
Dim i As Integer
    StDate = DateValue(Worksheets("Feuil1").Startdte)
    FinDate = DateValue(Worksheets("Feuil1").Enddte)
 with sheets("feuil2")
.activate
   For i = .UsedRange.Rows.Count To 2 Step -1
      If .Cells(i, 5) <= StDate Or .Cells(i, 5) >= FinDate Then
Rows(i).EntireRow.Delete
    End If
 
     Next i
end with

[Menhir]

ça me supprime des lignes de la feuille 1 au lieu de la feuille viséee feuille 2.

Si tu n'indiques pas à quel Worksheet appartiennent les Cells ou Range, VBA considère qu'il s'agit de ceux de la feuille active.
De même, si tu indiques une Worksheet (onglet) sans préciser son Workbook (classeur), VBA considère qu'il appartient au classeur actif.