Macro en VB pour aller à la dernière ligne

Résolu

Tableau
Vba

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

Configuration: Windows XP
Internet Explorer 6.0

Afficher la suite

3 réponses

Réponse 1 / 3

Meilleure réponse
La meilleure réponse est la réponse qui a été validée par nos équipes.
aquarelle Messages postés 7181 Date d'inscription Statut Modérateur Dernière intervention 1 311
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
4
1. cassar1942 Messages postés 4 Statut Membre
  
  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
Réponse 2 / 3
m@rina Messages postés 27503 Date d'inscription Statut Modérateur Dernière intervention 11 562

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

Macro en VB pour aller à la dernière ligne

3 réponses

Discussions similaires

Newsletters