Macro en VB pour aller à la dernière ligne

Résolu

Tableau
Vba

cassar1942 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
aquarelle Messages postés 7181 Date d'inscription Statut Modérateur Dernière intervention - 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.

Afficher la suite

A voir également:

Derniere ligne vba
Dernière version ccleaner gratuit français - Télécharger - Nettoyage
Supprimer dernière page word - Guide
Partager photos en ligne - Guide
Dernière version chrome - Accueil - Applications & Logiciels
Mètre en ligne - Guide

3 réponses

Réponse 1 / 3

aquarelle Messages postés 7181 Date d'inscription Statut Modérateur Dernière intervention 1 304

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 Statut Membre Dernière intervention

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 23945 Date d'inscription Statut Contributeur Dernière intervention 11 467

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 Statut Membre Dernière intervention

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 7181 Date d'inscription Statut Modérateur Dernière intervention 1 304

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 Statut Membre Dernière intervention

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 7181 Date d'inscription Statut Modérateur Dernière intervention 1 304 > cassar1942 Messages postés 4 Date d'inscription Statut Membre Dernière intervention

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

[VBA] Trier un tableau excel

affichage tableau dans MsgBox VBA excel

Vba excel actualiser TCD

Affichage d'un tableau dans une MsgBox

[VBA] Trier un tableau excel avec vba

Votre réponse

Discussions similaires