Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Se placer sur la 1ere ligne disponible

Se placer sur la 1ere ligne disponible

14 réponses
Avatar
Patcas
Bonjour

J'ai un tableau (A8:E...) dans lequel je saisis journellement des valeurs
il n'y a pas de limite vers le bas
J'aimerais quand je clique sur la feuille pour l'ouvrir,
retrouver le curseur sur la 1ere ligne disponible et en cellule A..
afin de ne pas faire défiler mon tableau a chaque fois que je reviens dessus
J'ai cherché des macros mais je n'ai rien trouvé qui m'allait
Il peut y avoir des lignes incompletement remplies
Merci pour votre aide
Cordialement

Patcas
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Elliac
Bonjour,

Private Sub Worksheet_Activate()
Range("a50000").End(xlUp)(2).Select
End Sub

Eventuellement la même à l'ouverture du classeur :

Private Sub Worksheet_Activate()
Range("a50000").End(xlUp)(2).Select
End Sub

Camille

"Patcas" wrote:

Bonjour

J'ai un tableau (A8:E...) dans lequel je saisis journellement des valeurs
il n'y a pas de limite vers le bas
J'aimerais quand je clique sur la feuille pour l'ouvrir,
retrouver le curseur sur la 1ere ligne disponible et en cellule A..
afin de ne pas faire défiler mon tableau a chaque fois que je reviens dessus
J'ai cherché des macros mais je n'ai rien trouvé qui m'allait
Il peut y avoir des lignes incompletement remplies
Merci pour votre aide
Cordialement

Patcas





Avatar
cousinhub
Bonjour,
en supposant quand même que toutes les cellules de la colonne A sont
remplies, tu colles ce code dans le code de la feuille (clic droit sur
l'onglet, choisir "Visualiser le code"

Private Sub Worksheet_Activate()
Range("a65000").End(xlUp).Offset(1, 0).Select
End Sub

Bonne journée

Bonjour

J'ai un tableau (A8:E...) dans lequel je saisis journellement des valeurs
il n'y a pas de limite vers le bas
J'aimerais quand je clique sur la feuille pour l'ouvrir,
retrouver le curseur sur la 1ere ligne disponible et en cellule A..
afin de ne pas faire défiler mon tableau a chaque fois que je reviens dessus
J'ai cherché des macros mais je n'ai rien trouvé qui m'allait
Il peut y avoir des lignes incompletement remplies
Merci pour votre aide
Cordialement

Patcas




Avatar
JB
Bonjour,

Sub auto_open()
Sheets(1).Select
[A65000].End(xlUp).Offset(1, 0).Select
End Sub

JB

On 22 fév, 11:17, "Patcas"
wrote:
Bonjour

J'ai un tableau (A8:E...) dans lequel je saisis journellement des valeurs
il n'y a pas de limite vers le bas
J'aimerais quand je clique sur la feuille pour l'ouvrir,
retrouver le curseur sur la 1ere ligne disponible et en cellule A..
afin de ne pas faire défiler mon tableau a chaque fois que je reviens d essus
J'ai cherché des macros mais je n'ai rien trouvé qui m'allait
Il peut y avoir des lignes incompletement remplies
Merci pour votre aide
Cordialement

Patcas


Avatar
anonymousA
Bonjour,

dans ce qui suit , j'ai supposé que c'était la feuille d'index 2 qui est
concernée mais c'est evidemment à adpater tant du point de vue de du N°
d'index que de la recherche par l'index car de multiples possibilités
existent pour désigner une feuille dans la collection des feuilles.

Private Sub Workbook_Open()

aller

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If Sh.Index = 2 Then aller

End Sub

Sub aller()

With Sheets(2)
Application.Goto .Range("A" & .Cells.Find("*", .[A1], , , xlByRows,
xlPrevious).Row)
End With

End Sub


Bonjour

J'ai un tableau (A8:E...) dans lequel je saisis journellement des valeurs
il n'y a pas de limite vers le bas
J'aimerais quand je clique sur la feuille pour l'ouvrir,
retrouver le curseur sur la 1ere ligne disponible et en cellule A..
afin de ne pas faire défiler mon tableau a chaque fois que je reviens dessus
J'ai cherché des macros mais je n'ai rien trouvé qui m'allait
Il peut y avoir des lignes incompletement remplies
Merci pour votre aide
Cordialement

Patcas




Avatar
Patcas
Merci beaucoup.

"Elliac" a écrit dans le message de news:

Bonjour,

Private Sub Worksheet_Activate()
Range("a50000").End(xlUp)(2).Select
End Sub

Eventuellement la même à l'ouverture du classeur :

Private Sub Worksheet_Activate()
Range("a50000").End(xlUp)(2).Select
End Sub

Camille

"Patcas" wrote:

Bonjour

J'ai un tableau (A8:E...) dans lequel je saisis journellement des valeurs
il n'y a pas de limite vers le bas
J'aimerais quand je clique sur la feuille pour l'ouvrir,
retrouver le curseur sur la 1ere ligne disponible et en cellule A..
afin de ne pas faire défiler mon tableau a chaque fois que je reviens
dessus
J'ai cherché des macros mais je n'ai rien trouvé qui m'allait
Il peut y avoir des lignes incompletement remplies
Merci pour votre aide
Cordialement

Patcas







Avatar
Patcas
Merci beaucoup


"cousinhub" a écrit dans le message de news:
%
Bonjour,
en supposant quand même que toutes les cellules de la colonne A sont
remplies, tu colles ce code dans le code de la feuille (clic droit sur
l'onglet, choisir "Visualiser le code"

Private Sub Worksheet_Activate()
Range("a65000").End(xlUp).Offset(1, 0).Select
End Sub

Bonne journée

Bonjour

J'ai un tableau (A8:E...) dans lequel je saisis journellement des valeurs
il n'y a pas de limite vers le bas
J'aimerais quand je clique sur la feuille pour l'ouvrir,
retrouver le curseur sur la 1ere ligne disponible et en cellule A..
afin de ne pas faire défiler mon tableau a chaque fois que je reviens
dessus
J'ai cherché des macros mais je n'ai rien trouvé qui m'allait
Il peut y avoir des lignes incompletement remplies
Merci pour votre aide
Cordialement

Patcas




Avatar
Patcas
Merci



"JB" a écrit dans le message de news:

Bonjour,

Sub auto_open()
Sheets(1).Select
[A65000].End(xlUp).Offset(1, 0).Select
End Sub

JB

On 22 fév, 11:17, "Patcas"
wrote:
Bonjour

J'ai un tableau (A8:E...) dans lequel je saisis journellement des valeurs
il n'y a pas de limite vers le bas
J'aimerais quand je clique sur la feuille pour l'ouvrir,
retrouver le curseur sur la 1ere ligne disponible et en cellule A..
afin de ne pas faire défiler mon tableau a chaque fois que je reviens
dessus
J'ai cherché des macros mais je n'ai rien trouvé qui m'allait
Il peut y avoir des lignes incompletement remplies
Merci pour votre aide
Cordialement

Patcas


Avatar
Patcas
Merci mais j'ai pas tout compris
Ma feuille (onglet) s'appelle RECAP
dois-je remplacer les "2" par "RECAP"?


"anonymousA" a écrit dans le message de news:
45dd7306$0$25924$

Bonjour,

dans ce qui suit , j'ai supposé que c'était la feuille d'index 2 qui est
concernée mais c'est evidemment à adpater tant du point de vue de du N°
d'index que de la recherche par l'index car de multiples possibilités
existent pour désigner une feuille dans la collection des feuilles.

Private Sub Workbook_Open()

aller

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If Sh.Index = 2 Then aller

End Sub

Sub aller()

With Sheets(2)
Application.Goto .Range("A" & .Cells.Find("*", .[A1], , , xlByRows,
xlPrevious).Row)
End With

End Sub


Bonjour

J'ai un tableau (A8:E...) dans lequel je saisis journellement des valeurs
il n'y a pas de limite vers le bas
J'aimerais quand je clique sur la feuille pour l'ouvrir,
retrouver le curseur sur la 1ere ligne disponible et en cellule A..
afin de ne pas faire défiler mon tableau a chaque fois que je reviens
dessus
J'ai cherché des macros mais je n'ai rien trouvé qui m'allait
Il peut y avoir des lignes incompletement remplies
Merci pour votre aide
Cordialement

Patcas




Avatar
anonymousA
Private Sub Workbook_Open()

aller

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If Sh.name= "RECAP" Then aller

End Sub

Sub aller()

With Sheets("RECAP")
Application.Goto .Range("A" & .Cells.Find("*", .[A1], , , xlByRows,
xlPrevious).Row)
End With

A+

Merci mais j'ai pas tout compris
Ma feuille (onglet) s'appelle RECAP
dois-je remplacer les "2" par "RECAP"?


"anonymousA" a écrit dans le message de news:
45dd7306$0$25924$
Bonjour,

dans ce qui suit , j'ai supposé que c'était la feuille d'index 2 qui est
concernée mais c'est evidemment à adpater tant du point de vue de du N°
d'index que de la recherche par l'index car de multiples possibilités
existent pour désigner une feuille dans la collection des feuilles.

Private Sub Workbook_Open()

aller

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If Sh.Index = 2 Then aller

End Sub

Sub aller()

With Sheets(2)
Application.Goto .Range("A" & .Cells.Find("*", .[A1], , , xlByRows,
xlPrevious).Row)
End With

End Sub


Bonjour

J'ai un tableau (A8:E...) dans lequel je saisis journellement des valeurs
il n'y a pas de limite vers le bas
J'aimerais quand je clique sur la feuille pour l'ouvrir,
retrouver le curseur sur la 1ere ligne disponible et en cellule A..
afin de ne pas faire défiler mon tableau a chaque fois que je reviens
dessus
J'ai cherché des macros mais je n'ai rien trouvé qui m'allait
Il peut y avoir des lignes incompletement remplies
Merci pour votre aide
Cordialement

Patcas








Avatar
Patcas
Excuse moi
mais je place ça ou?
Dans le code de la feuille ou dans un module?
Suis pas top en Macro.....




"anonymousA" a écrit dans le message de news:
45dd7c81$0$25924$
Private Sub Workbook_Open()

aller

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If Sh.name= "RECAP" Then aller

End Sub

Sub aller()

With Sheets("RECAP")
Application.Goto .Range("A" & .Cells.Find("*", .[A1], , , xlByRows,
xlPrevious).Row)
End With

A+

Merci mais j'ai pas tout compris
Ma feuille (onglet) s'appelle RECAP
dois-je remplacer les "2" par "RECAP"?


"anonymousA" a écrit dans le message de news:
45dd7306$0$25924$
Bonjour,

dans ce qui suit , j'ai supposé que c'était la feuille d'index 2 qui est
concernée mais c'est evidemment à adpater tant du point de vue de du N°
d'index que de la recherche par l'index car de multiples possibilités
existent pour désigner une feuille dans la collection des feuilles.

Private Sub Workbook_Open()

aller

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If Sh.Index = 2 Then aller

End Sub

Sub aller()

With Sheets(2)
Application.Goto .Range("A" & .Cells.Find("*", .[A1], , , xlByRows,
xlPrevious).Row)
End With

End Sub


Bonjour

J'ai un tableau (A8:E...) dans lequel je saisis journellement des
valeurs
il n'y a pas de limite vers le bas
J'aimerais quand je clique sur la feuille pour l'ouvrir,
retrouver le curseur sur la 1ere ligne disponible et en cellule A..
afin de ne pas faire défiler mon tableau a chaque fois que je reviens
dessus
J'ai cherché des macros mais je n'ai rien trouvé qui m'allait
Il peut y avoir des lignes incompletement remplies
Merci pour votre aide
Cordialement

Patcas









1 2