Macro en VB pour aller à la dernière ligne [Résolu/Fermé]

Signaler
Messages postés
4
Date d'inscription
lundi 21 avril 2008
Statut
Membre
Dernière intervention
26 avril 2008
-
Messages postés
7097
Date d'inscription
dimanche 8 avril 2007
Statut
Modérateur
Dernière intervention
2 juin 2021
-
Bonjour,
J'ai fait sur excel un simple tableau pour enregistrer mes dépenses et recettes bancaires. J'ai déjà une macro qui va selectionner le tableau en question parmi les autres feuilles. Mais je voudrai ajouter dans cette macro un moyen pour dire au curseur de se positionner sous la dernière ligne de ce tableau pour une nouvelle saisie au lieu de descendre avec les flèches . Comment rédiger la macro en VB?
Merci de m'éclairer si possible.

3 réponses

Messages postés
7097
Date d'inscription
dimanche 8 avril 2007
Statut
Modérateur
Dernière intervention
2 juin 2021
1 283
Bonsoir,
Voici une macro à adapter si besoin est :
Sub AllerFin()

    DerCell = Range("A1").End(xlDown).Address
    Range(DerCell).Activate

End Sub

J'espère que cela correspondra à ce que tu cherches.
Bonne soirée
5
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
4
Date d'inscription
lundi 21 avril 2008
Statut
Membre
Dernière intervention
26 avril 2008

Merci beaucoup, ça marche. J'ai seulement modifié la numéro de la colone.
Par contre, comment lui dire d'aler non pas à la dernière ligne remplie mais à la ligne vierge suivante pour une nouvelle saisie? Ce doit être pas compliqué mais pour moi , oui.
Salutations
Messages postés
17127
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
9 juin 2021
10 421
Bonjour,

Une autre solution plus compacte et qui marche à tous les coups, même si la colonne en question ne contient qu'un entête :

Range("A65536").End(xlUp).Offset(1, 0).Select

m@rina
Messages postés
4
Date d'inscription
lundi 21 avril 2008
Statut
Membre
Dernière intervention
26 avril 2008

Merci beaucoup Mar@na. Ca marche impec. Je t'écris de Martinque. Pour la peine si tu viens un jour, je te paierai le resto avec plaisir et j'irai te chercher à l'aéroport. Tel 05 96 62 21 53
Messages postés
7097
Date d'inscription
dimanche 8 avril 2007
Statut
Modérateur
Dernière intervention
2 juin 2021
1 283
Bonsoir,
Comme ceci cela devrait faire ce que tu souhaite :
Sub AllerFin()

    DerCell = Range("A1").End(xlDown).Address
    Range(DerCell).Select
    Selection.Offset(1, 0).Activate

End Sub


Bonne nuit
Messages postés
4
Date d'inscription
lundi 21 avril 2008
Statut
Membre
Dernière intervention
26 avril 2008

Salut Aquarelle.
Je te remercie pour ta diligence. J'ai adopté la solution de M@rina. Tu peux jeter un vcoup d'oeil. Je te fais la même proposition si un jour tu viens en Martinique.
Encore merci.
Messages postés
7097
Date d'inscription
dimanche 8 avril 2007
Statut
Modérateur
Dernière intervention
2 juin 2021
1 283 >
Messages postés
4
Date d'inscription
lundi 21 avril 2008
Statut
Membre
Dernière intervention
26 avril 2008

Merci de cette gentille invitation,
Je suis déjà allée en Martinique et c'est un très joli pays, ce fut de très bonnes vacances.
Je ne sais pas si j'y retournerai un jour mais qui sait ...
Alors pour toi, il doit être à peu près 16h, je te souhaite donc une bonne fin d'après midi et à bientôt sur CCM.