Macro en VB pour aller à la dernière ligne

Résolu/Fermé
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
7118
Date d'inscription
dimanche 8 avril 2007
Statut
Modérateur
Dernière intervention
29 juillet 2022
- 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.

3 réponses

aquarelle
Messages postés
7118
Date d'inscription
dimanche 8 avril 2007
Statut
Modérateur
Dernière intervention
29 juillet 2022
1 300
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
5
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
0
m@rina
Messages postés
17470
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
26 septembre 2022
10 965
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
2
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
0
aquarelle
Messages postés
7118
Date d'inscription
dimanche 8 avril 2007
Statut
Modérateur
Dernière intervention
29 juillet 2022
1 300
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
1
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.
0
aquarelle
Messages postés
7118
Date d'inscription
dimanche 8 avril 2007
Statut
Modérateur
Dernière intervention
29 juillet 2022
1 300 > 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.
0