Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Suppression cellules - fonction recherche

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
V

voldo2142

XLDnaute Nouveau
Bonjour,

J'ai encore besoin d'un coup d'pouce :S

Cette fois - ci, j'ai une liste contenant des dates et des cours boursier (mensuels).

Ce que je souhaite faire c'est de pouvoir avoir l'intervalle de deux dates (donc date de départ et finale) tout en supprimant les informations qui ne m'interesse pas.

Pour les dates antérieures à celle du début j'ai trouvé la maccro qu'il faut faire. Par contre pour supprimer les informations apres la date finale, je ne sais pas comment faire.

J'ai pensé a une recherche simple et ensuite effacer ce qui se trouve en dessous, mais je ne sais pas comment m'y prendre pour réalisé ca, sans que excel continue sans cesse de supprimer des cellules (même si elles sont vides)...

En annexe vous pouvez trouvez mon fichier.

Merci pour votre aide
 

Pièces jointes

Trier par date Trier par votes
Re : Suppression cellules - fonction recherche

Bonjour

Ci dessous la macro à associer au bouton OK

Code: 
Private Sub Ok_Click()
If DTPicker3.Value > DTPicker4.Value Then
    Call MsgBox("La date de début doit être supérieure à la date de fin", vbExclamation, Application.Name)
    Exit Sub
End If


Sheets(1).Cells(2, 2) = DTPicker3.Value '*******
Sheets(1).Cells(3, 2) = DTPicker4.Value '*******

Dim i As Long
Dim date1 As Long
Dim nomfeuille1 As String

nomfeuille1 = ActiveSheet.Name
col1 = "C"

With Sheets(nomfeuille1)
For i = .Range("C65536").End(xlUp).Row To lidep1 Step -1
    If IsDate(.Range("C" & i)) Then
        date1 = CLng(.Range("C" & i))
        If date1 < CLng(DTPicker3.Value) Then .Rows(i).Delete
        If date1 > CLng(DTPicker4.Value) Then .Rows(i).Delete
                     
        
     End If
Next i

End With


End Sub

A tester

JP
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
447
AtTheOne
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
841
desto
D
S
  • Résolu(e)
Microsoft 365 VBA pour copier/coller une plage de cellule dans un autre onglet en fonction de la date
Réponses
8
Affichages
1 K
Sylvain. B
S
A
  • Question Question
XL 2016 Adapter une image à une cellule
2
Réponses
16
Affichages
3 K
Dudu2
L
  • Question Question
XL 2016 Calcul à partir d'une date précise ou - à défaut - à partir de la date qui suit immédiatement après
Réponses
4
Affichages
744
Lorenzini
L
E
  • Question Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
1 K
fanch55
  • Question Question
Microsoft 365 Copier la valeur de cellules non contigües de plusieurs feuilles vers une feuille récapitulative.
Réponses
14
Affichages
1 K
Droopyougo
C
  • Résolu(e)
XL 2016 Mise en forme conditionnelle d'une cellule en fonction d'une ligne
Réponses
3
Affichages
1 K
sylvanu
M
  • Résolu(e)
XL 2013 Recherche selon critère et transposer des données avec récurrence
Réponses
3
Affichages
1 K
MarieChérie
M
B
  • Résolu(e)
XL 2016 Selectionner date la plus proche au supérieur de la date d'aujourd'hui
Réponses
5
Affichages
1 K
babacool22
B
H
  • Résolu(e)
Microsoft 365 Barre de recherche et ajouter vba
Réponses
2
Affichages
2 K
Harry13
H
C
  • Résolu(e)
XL 2019 Suppression, comptage d'éléments et création d'un historique de comptage
2
Réponses
24
Affichages
3 K
Cesar1275
C
P
  • Question Question
XL 2010 suivi de production en fonction d'une date
Réponses
5
Affichages
997
sylvanu
D
  • Question Question
XL 2013 Recherche valeur fixe - Remplissage cellules
Réponses
9
Affichages
2 K
Dja75
D
C
  • Question Question
XL 2016 Indexation de loyer automatique (en fonction du type l'indice, de la date, et du type d'indexation)
Réponses
2
Affichages
3 K
WTF
L
  • Question Question
XL 2019 recherche et addition de cellules en fonction du mois en cours
Réponses
7
Affichages
1 K
Lo33
L
B
  • Question Question
Recherche formule
Réponses
2
Affichages
898
blancolie
B
F
  • Question Question
XL 2016 VBA - Cellules multiples non-vide Planning
Réponses
0
Affichages
537
Fanselmo
F
C
  • Question Question
XL 2013 VBA - Copier coller valeurs uniquement - Macro consolidation
Réponses
1
Affichages
2 K
sylvanu
L
  • Question Question
Macro pour envoyer par outlook des cellules en fonction de la date
Réponses
7
Affichages
1 K
Compte Supprimé 979
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…