Boucle VISUAL BASIC EXCEL

Résolu/Fermé
jomage - 15 janv. 2009 à 20:11
 jomage - 16 janv. 2009 à 21:39
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
A voir également:

1 réponse

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 213
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
0
CA MARCHE
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.
0
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 213 > jomage
16 janv. 2009 à 06:21
re,
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
0
jomage > eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023
16 janv. 2009 à 21:39
CA MARCHE ENCORE
MERCI pour la méthode.
Effectivement c'est beaucoup plus efficace pour les grands tableaux

A+
0