Macro qui supprime les lignes pour les dates que l'on ne souhaite pas

bob4112

XLDnaute Nouveau
Bonjour,
J’ai un fichier Excel avec des données qui contiennent des dates. Je veux une macro qui me supprime les lignes dont les données ne sont pas entre 2 dates.
exemple:
j'aimerais inserer chacunes de ces dates
02/02/2013
31/03/2013
dans une cellules dans l'onget "feuil 1" et dans l'onglet "feuil 2" ma base de donnée puis en cliquand sur la macro, il ne me restera que les lignes entre ces deux dates
Pour une meilleure compréhension je vous mets mon fichier Excel en pièce jointe.

Cordialement
 

Pièces jointes

  • test1.xls
    70.5 KB · Affichages: 29
  • test1.xls
    70.5 KB · Affichages: 33
  • test1.xls
    70.5 KB · Affichages: 36

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : Macro qui supprime les lignes pour les dates que l'on ne souhaite pas

Bonjour à tous,

@ titiborregan5
lors d'une suppression de ligne il faut toujours partir de la dernière ligne et remonter vers la première
voir fichiers joints versions 2003 et 2007

à+
Philippe
 

Pièces jointes

  • 111.xlsm
    35 KB · Affichages: 45
  • 111.xlsm
    35 KB · Affichages: 39
  • 111.xlsm
    35 KB · Affichages: 30
  • 111.xls
    99.5 KB · Affichages: 35
  • 111.xls
    99.5 KB · Affichages: 44
  • 111.xls
    99.5 KB · Affichages: 43

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : Macro qui supprime les lignes pour les dates que l'on ne souhaite pas

Re,
Bonjour philippe
Sur les deux fichier j'ai mis ces dates et j'ai pas eu ce que je souhaitais
Date début05/05/2013
Date Fin 31/05/2013
Je viens de re-tester et ça fonctionne correctement
il n'y a qu'une ligne qui correspond à cet intervalle de date et elle est bien supprimée

à+
Philippe
 

titiborregan5

XLDnaute Accro
Re : Macro qui supprime les lignes pour les dates que l'on ne souhaite pas

Bonjour à tous,

@ titiborregan5
lors d'une suppression de ligne il faut toujours partir de la dernière ligne et remonter vers la première
voir fichiers joints versions 2003 et 2007

à+
Philippe

Exact, j'avais zappé... comme j'avais commencé par une msgbox bidon quand la condition était vraie, du coup j'ai pas retouché le code! merci pour la correction!
a+
 

bob4112

XLDnaute Nouveau
Re : Macro qui supprime les lignes pour les dates que l'on ne souhaite pas

ahhh
Je me suis peut-être mal exprimé. En fait c'est le contraire que je souhaites, c'est-à-dire supprimer ceux qui ne sont pas dans l'intervalle.
Cordialement
 

titiborregan5

XLDnaute Accro
Re : Macro qui supprime les lignes pour les dates que l'on ne souhaite pas

ahhh
Je me suis peut-être mal exprimé. En fait c'est le contraire que je souhaites, c'est-à-dire supprimer ceux qui ne sont pas dans l'intervalle.
Cordialement

Alors remplace
Code:
Sub Bouton2_Clic()
For i = Sheets("Infos du jour").Range("A65535").End(xlUp).Row To 2 Step -1
If Sheets("Infos du jour").Cells(i, 1) > Sheets("Feuil1").Cells(2, 5) And Sheets("Infos du jour").Cells(i, 1) < Sheets("Feuil1").Cells(3, 5) Then
Sheets("Infos du jour").Rows(i).Delete
Next i
Sheets("Infos du jour").Select
End Sub
par
Code:
Sub Bouton2_Clic()
For i = Sheets("Infos du jour").Range("A65535").End(xlUp).Row To 2 Step -1
If Sheets("Infos du jour").Cells(i, 1) > Sheets("Feuil1").Cells(2, 5) And Sheets("Infos du jour").Cells(i, 1) < Sheets("Feuil1").Cells(3, 5) Then
Else
Sheets("Infos du jour").Rows(i).Delete
Next i
Sheets("Infos du jour").Select
End Sub
 

bob4112

XLDnaute Nouveau
Re : Macro qui supprime les lignes pour les dates que l'on ne souhaite pas

ça à marcher, Merci beaucoup très très sympas. Sinon j'ai ajouté end if à la fin.
Merci encore et bonne journée

Code:
Sub Bouton2_Clic()
For i = Sheets("Infos du jour").Range("A65535").End(xlUp).Row To 2 Step -1
If Sheets("Infos du jour").Cells(i, 1) > Sheets("Feuil1").Cells(2, 5) And Sheets("Infos du jour").Cells(i, 1) < Sheets("Feuil1").Cells(3, 5) Then
Else
Sheets("Infos du jour").Rows(i).Delete

End If
Next i

Sheets("Infos du jour").Select
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 721
Messages
2 081 927
Membres
101 842
dernier inscrit
seb0390