Discussion :

[deniss42]

Bonjour
Je voudrais savoir si il est possible que lorsque on enregistre un tableau Excel, celui ci aille positionner le curseur à la dernière ligne utilisée (afin qu'elle soit à l'écran), afin que quand il est réouvert, la derniere ligne soit à l'écran (tableau comportant aujourd'hui environ 2400 lignes).
Merci

[ChristianBosch]

Salut, oui c'est possible mais qu'entends tu par "tableau" ? tableau structuré ? ou simplement tableur dans une feuille excel ?

Mais de maniere générale :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Goto MyCell, Scroll:=True

MyCell étant un objet de type range, qu'il faut bien évidement remplacer par la cellule voulue, dans ton cas il va falloir la calculer avant mais les méthodes différent selon le "tableau" que tu utilise.

[deniss42]

Salut, oui c'est possible mais qu'entends tu par "tableau" ? tableau structuré ? ou simplement tableur dans une feuille excel ?

merci pour la réponse rapide
C'est une simple feuille Excel, avec un seul onglet. C'est un fichier chronologique ou chaque ligne correspond à une nouvelle étude, avec un certain nombre d'information dans les colonnes.

[louisapt]

Bonjour si l'objectif est aller à la dernière ligne lors de l'ouverture du fichier (c'est ce que j'ai compris) tu n'as pas besoin d'enregistrer le fichier en te positionnant sur la dernière ligne

Dans Vba dans le module ThisWorkbook


Si tu connais à l'avance le nombre de ligne tu peux mettre le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Workbook_Open()
 
    Sheets("le nom de ta feuille").Cells(numéro de la ligne , numéro de la colonne).Select
 
End Sub

Si tu ne connais pas le numéro de ta dernière ligne dans le même module met le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Public lastrow As Long  'nombre de lignes remplies de ta feuille
 
Private Sub Workbook_Open()
 
    lastrow = Workbooks("le_nom_de_ton_fichier.xlsm").Sheets("le nom de ta feuille").Cells(Rows.Count, numéro de la colonne).End(xlUp).Row
    Sheets("le nom de ta feuille").Cells(lastrow, numéro de la colonne).Select
 
End Sub

Avec ces deux codes à chaque ouverture du fichier le curseur excel se positionnera sur la dernière ligne

En espérant t'avoir aidé

Louis

[ChristianBosch]

Les .select ne permettent pas de visualiser la dernière ligne mais seulement de sélectionner la dernière cellule.

Si tu as une plage classique il faut utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub visuDerLigne()
Dim mycell As Range
 
Set mycell = Feuil1.Cells(Feuil1.Cells(Rows.Count, 1).End(xlUp).Row, 1)
Application.Goto mycell, Scroll:=True
 
End Sub

Feuil1 étant le CodeName de ma feuille ou se trouve le tableau. Cette macro te mets dans le coin supérieur gauche la dernière cellule de ton tableau.

[louisapt]

Les .select ne permettent pas de visualiser la dernière ligne mais seulement de sélectionner la dernière cellule.

Si tu as une plage classique il faut utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub visuDerLigne()
Dim mycell As Range
 
Set mycell = Feuil1.Cells(Feuil1.Cells(Rows.Count, 1).End(xlUp).Row, 1)
Application.Goto mycell, Scroll:=True
 
End Sub

Feuil1 étant le CodeName de ma feuille ou se trouve le tableau. Cette macro te mets dans le coin supérieur gauche la dernière cellule de ton tableau.

Le .select déplace directement sur la cellule demandé au centre de l'écran il suffit de scroll pour placer la cellule dans le coin supérieur ou de rajouter une ligne de code indiquant de scroll et c'est bon. Cela me semble simple et efficace mais ta solution l'est aussi il n'a plus qu'a l'appliquer dès l'ouverture du fichier

[deniss42]

Les .select ne permettent pas de visualiser la dernière ligne mais seulement de sélectionner la dernière cellule.

Si tu as une plage classique il faut utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub visuDerLigne()
Dim mycell As Range
 
Set mycell = Feuil1.Cells(Feuil1.Cells(Rows.Count, 1).End(xlUp).Row, 1)
Application.Goto mycell, Scroll:=True
 
End Sub

Feuil1 étant le CodeName de ma feuille ou se trouve le tableau. Cette macro te mets dans le coin supérieur gauche la dernière cellule de ton tableau.

Merci beaucoup pour tous ces éléments je vais tester rapidement.

[Igloobel]

Bonjour,

j'ai plus simple à te proposer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nb_lig = [B3].End(xlDown).Row

Cela calcule la dernière saisie que dans la colonne B

exemple : saisie en B53 : Toto

nb_lig = 53 même si en D103 il y a une valeur

Les crochets [ ] c'est pour signifier de commencer la verification à partir de la ligne 3 si la ligne 2 est vide il n'en tient pas compte

autre solutions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Calc_dern_Lig_Col()
   Dim NomF As String
   NomF = "Feuil1"
 
    Der_Lign = ThisWorkbook.Worksheets(NomF).UsedRange.Rows.Count
    Der_Col = ThisWorkbook.Worksheets(NomF).UsedRange.Columns.Count
 
    MsgBox "Ligne : " & Der_Lign  & vbCrLf & "Colonne : " & Der_Col 
 
End Sub