Aller à la dernière ligne d'un tableau

Fermé
DAN66 - 26 mars 2022 à 09:35
DAN66_1956 Messages postés 3 Date d'inscription mardi 29 mars 2022 Statut Membre Dernière intervention 29 mars 2022 - 29 mars 2022 à 16:11
Bonjour à tout le monde,
J'ai un fichier Excel avec plusieurs onglets.
Tous les onglets contiennent un tableau de conception identique.
Mais chaque tableau a une longueur (nombre de lignes, parfois plusieurs centaines) différente.
J'aurai voulu, en cliquant sur un bouton me retrouver à la cellule "A" juste après la dernière ligne du tableau.
Merci à tous de votre aide.
Dan.


Configuration: Windows / Firefox 98.0
A voir également:

6 réponses

Mike-31 Messages postés 18337 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 27 septembre 2024 5 099
Modifié le 26 mars 2022 à 09:49
Bonjour

Pour cela il faut un code VBA si tu as quelques notions, sinon Excel sait faire, il suffit de cliquer sur une cellule d'une colonne et clic sur Ctrl et en même temps flèche vers le bas du clavier et la cellule s'arrête sur la dernière cellule du tableau

0
yclik Messages postés 3673 Date d'inscription vendredi 25 juillet 2014 Statut Membre Dernière intervention 25 septembre 2024 1 504
26 mars 2022 à 10:25
Bonjour
A tester dans une cellule
=LIEN.HYPERTEXTE("#"&"Feuille1!A"&NBVAL(Feuille1.A2:A5000)+1;"Aller Feuille1 ligne "&NBVAL(Feuille1.A2:A5000)+1)

si pas de ligne vide dans la feuille1
0
Bonjour yclik,
Merci pour ton aide, mais ça ne fonctionne pas.
Dans la cellule, j'ai : #NOM?
Mais j'aurai préféré une macro, car je ne suis pas le seul à utiliser ces tableaux
et c'est plus facile avec juste un bouton à cliquer.
Merci quand même.
0
Mike-31 Messages postés 18337 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 27 septembre 2024 5 099
26 mars 2022 à 13:19
Re,

alors soit tu crées un bouton Activex sur chaque onglet avec ce code

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

ou tu crées un code dans un module VBA
Sub Cellule()
Range("A65536").End(xlUp).Offset(1, 0).Select
End Sub

et dans chaque feuille tu crées un bouton activeX avec ce code

Private Sub CommandButton1_Click()
Call Cellule
End Sub

ou tu crées un simple bouton, clic droit dessus/affecter à une Macro et tu pointe vers le code macro exemple Cellule

0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Bonjour,

Vous pouvez créer la macro suivante:

1- Sub FIN()
2- ' FIN Macro
3- ' Macro enregistrée le 14/09/2008 par JB
'
4- [A65536].End(3).Offset(1, 0).Select ' Attention "entre crochet".

5- End Sub

Créer un bouton et lui affecter la macro

On peut aussi créer une macro pour revenir au début (première ligne de la base).

Cdt,
JB22
0
DAN66_1956 Messages postés 3 Date d'inscription mardi 29 mars 2022 Statut Membre Dernière intervention 29 mars 2022
29 mars 2022 à 16:11
Bonjour JB22,
Merci beaucoup pour ta réponse.
Désolé je ne t'ai pas répondu car la réponse ne m'a pas été signalé par l'ordi.
Je vais essayer.
Merci.
0