Boucle VISUAL BASIC EXCEL

Résolu
jomage -  
 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

Réponse 1 / 1
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 264
 
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
jomage
 
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 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 264 > jomage
 
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 24603 Date d'inscription   Statut Contributeur Dernière intervention  
 
CA MARCHE ENCORE
MERCI pour la méthode.
Effectivement c'est beaucoup plus efficace pour les grands tableaux

A+
0