Bonjour,

J'ai besoin d'un coup d'pouces pour réaliser une macro.

En théorie ce que je veux faire c'est :

Je dispose d'une liste de cours boursier avec les dates. J'ai créer un calendrier qui permet de choisir à partir de quelle date on veut les cours. Donc les dates antérieures sont à supprimer.

Voici le code que j'ai actuellement : (range C4 = début des cours boursier ; Range B1 = date désirée)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub MisePage()
Range("C4").Select
Do Until ActiveCell.Value = Range("B1")
Selection.Delete Shift:=xlUp
Loop
End Sub
Le problème c'est que si la date n'existe pas, excel bug (normal car la date n'existe pas). Donc ce que je cherche à faire, c'est que si la date n'est pas mentionnée dans mes cours boursier (données mensuelles), je veux pas qu'il fasse la suppression de cellules. Le must serait qu'il mette un message d'erreure, tel que : la date n'existe pas...


Vous auriez un conseil?