Boucle VISUAL BASIC EXCEL
Résolu/Fermé
Bonjour,
Bonsoir
J’ai besoin d’aide pour une boucle VISUAL BASIC EXCEL
Dans ma macro j’utilise, pour faire remonter le curseur la boucle suivante
Do while ActiveCell.Offset(-1, 0) <> “”
ActiveCell.Offset(-1, 0).Select
Loop
Mais, malgré toutes mes tentative, cette boucle ne marche plus quand le curseur arrive en haut de la fenêtre.
Comment faire pour que la macro s’arrête normalement quand le curseur arrive en haut de la fenêtre ?
Merci d’avance
Bonsoir
J’ai besoin d’aide pour une boucle VISUAL BASIC EXCEL
Dans ma macro j’utilise, pour faire remonter le curseur la boucle suivante
Do while ActiveCell.Offset(-1, 0) <> “”
ActiveCell.Offset(-1, 0).Select
Loop
Mais, malgré toutes mes tentative, cette boucle ne marche plus quand le curseur arrive en haut de la fenêtre.
Comment faire pour que la macro s’arrête normalement quand le curseur arrive en haut de la fenêtre ?
Merci d’avance
A voir également:
- Boucle VISUAL BASIC EXCEL
- Visual basic - Télécharger - Langages
- Liste déroulante excel - Guide
- Microsoft 365 basic - Accueil - Microsoft Office
- Microsoft visual c++ runtime - Guide
- Visual paradigm - Télécharger - Gestion de données
1 réponse
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 260
15 janv. 2009 à 23:25
15 janv. 2009 à 23:25
Bonsoir,
J'espère que c'est un exercise car ça n'est pas la façon la plus efficace de déplacer le curseur que de le faire ligne par ligne et en plus en faisant un .select à chaque fois...
Sinon il faut que tu testes la position de la ligne active avec qcq chose comme :
Do while ActiveCell.row > 1
...
eric
J'espère que c'est un exercise car ça n'est pas la façon la plus efficace de déplacer le curseur que de le faire ligne par ligne et en plus en faisant un .select à chaque fois...
Sinon il faut que tu testes la position de la ligne active avec qcq chose comme :
Do while ActiveCell.row > 1
...
eric
16 janv. 2009 à 06:02
MERCI BCP
Pour déplacer le curseur j'utilise
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToRight)).Select
Mais ces commandes ne me permettent pas de savoir si le curseur est arrivé au bout de mon tableau car j'ai des cellules vides à l'interieur de mes tableaux.
16 janv. 2009 à 06:21
si tu veux mettre qcq chose sur la (dernière ligne saisie + 1) de la colonne C tu peux faire directement :
[C65536].end(xlup).offset(1,0).value = "test"
eric
16 janv. 2009 à 21:39
MERCI pour la méthode.
Effectivement c'est beaucoup plus efficace pour les grands tableaux
A+