Fonction While VBA
Résolu
_V1nce_
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
_V1nce_ Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
_V1nce_ Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
Bonjour tout le monde,
J'aimerai utiliser la fonction "while" mais étant très novice en prog, j'avoue ne pas trouver de solution à mon problème. Je m'explique:
J'ai en colonne A, des dates incrémentées toutes les 15 minutes, j'aimerais écrire une macro dans le but de sectionner toutes les dates de cette colonne étant inférieur à une date de référence.
Pour faire un test, je prends 20 dates de A1 à A20. Ma date de ref est en A23, j'ai donc écrit:
Range("A1").Select
While ActiveCell("<RangeA23")
ActiveCell.Offset(1, 0).Select
Wend
Mon but étant de descendre jusqu'à ce que la date soit supérieure à celle de ref. Une fois cette cellule sélectionnée, j'utiliserais:
ActiveCell.Offset(-1, 0).Select (pour sélectionner la dernière date inférieure à celle de ref)
Range(Selection, Selection.End(xlup)).Select (pour sélectionner toutes les dates inférieures en allant vers le haut)
Selection.Delete Shift:=xlUp (pour les supprimer et remonter les autres dates vers le haut).
Le problème de cette écriture vient de la boucle While qui bloque. Quelqu'un pourrait-il m'expliquer pourquoi et me montrer qu'elle serait l'alternative.
Merci d'avance,
Vincent
J'aimerai utiliser la fonction "while" mais étant très novice en prog, j'avoue ne pas trouver de solution à mon problème. Je m'explique:
J'ai en colonne A, des dates incrémentées toutes les 15 minutes, j'aimerais écrire une macro dans le but de sectionner toutes les dates de cette colonne étant inférieur à une date de référence.
Pour faire un test, je prends 20 dates de A1 à A20. Ma date de ref est en A23, j'ai donc écrit:
Range("A1").Select
While ActiveCell("<RangeA23")
ActiveCell.Offset(1, 0).Select
Wend
Mon but étant de descendre jusqu'à ce que la date soit supérieure à celle de ref. Une fois cette cellule sélectionnée, j'utiliserais:
ActiveCell.Offset(-1, 0).Select (pour sélectionner la dernière date inférieure à celle de ref)
Range(Selection, Selection.End(xlup)).Select (pour sélectionner toutes les dates inférieures en allant vers le haut)
Selection.Delete Shift:=xlUp (pour les supprimer et remonter les autres dates vers le haut).
Le problème de cette écriture vient de la boucle While qui bloque. Quelqu'un pourrait-il m'expliquer pourquoi et me montrer qu'elle serait l'alternative.
Merci d'avance,
Vincent
A voir également:
- Fonction While VBA
- Fonction si et - Guide
- Fonction miroir - Guide
- Fonction moyenne excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Fonction remplacer sur word - Guide
