Macro en VB pour aller à la dernière ligne

Résolu/Fermé

Tableau
Vba

cassar1942 Messages postés 4 Date d'inscription lundi 21 avril 2008 Statut Membre Dernière intervention 26 avril 2008 - 21 avril 2008 à 21:33
aquarelle Messages postés 7141 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 19 décembre 2024 - 26 avril 2008 à 22:17

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.

A voir également:

Aller à la dernière ligne d'un tableau excel vba
Aller à la ligne excel - Guide
Tableau croisé dynamique - Guide
Trier un tableau excel - Guide
Tableau ascii - Guide
Liste déroulante excel - Guide

3 réponses

Réponse 1 / 3

aquarelle Messages postés 7141 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 19 décembre 2024 1 302
21 avril 2008 à 22:04

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

cassar1942 Messages postés 4 Date d'inscription lundi 21 avril 2008 Statut Membre Dernière intervention 26 avril 2008
25 avril 2008 à 18:20

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

Réponse 2 / 3

m@rina Messages postés 21197 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 19 décembre 2024 11 370
26 avril 2008 à 02:58

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

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

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

Réponse 3 / 3

aquarelle Messages postés 7141 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 19 décembre 2024 1 302
26 avril 2008 à 00:15

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

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

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.

aquarelle Messages postés 7141 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 19 décembre 2024 1 302 > cassar1942 Messages postés 4 Date d'inscription lundi 21 avril 2008 Statut Membre Dernière intervention 26 avril 2008
26 avril 2008 à 22:17

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.

Discussions similaires

[Excel] Ligne inutile en bas de la feuille

supprimer lignes vides automatiquement excel

VBA (Excel) - Supprimer une ligne

Trouver la première ligne vide sur excel à l'aide de macro

Calcul nombre de ligne vba

EXCEL : Supprimer des lignes vides à la fin