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

4 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
anonymousA
Le tout dans le module Thisworkbook du Projet VBA de ton classeur.

A+


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











Avatar
Patcas
Merci ça fonctionne mais pas comme je voudrais
Mon curseur se retrouve tout en bas du tableau et non pas sur la 1ere ligne
disponible




"anonymousA" a écrit dans le message de news:
45dd80b0$0$25924$
Le tout dans le module Thisworkbook du Projet VBA de ton classeur.

A+


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













Avatar
anonymousA
Ben , c'est ce que tu demandais ou alors j'ai mal compris.
Pour se placer sur la 1ere ligne ligne par rapport à une colonne donnée,
il faut spécifier la colonne de référence.
Là, la macro recherche la dernière ligne sur laquelle il y a une valeur
et ce quelle que soit les colonnes de 1 à 256.

A+

Merci ça fonctionne mais pas comme je voudrais
Mon curseur se retrouve tout en bas du tableau et non pas sur la 1ere ligne
disponible




"anonymousA" a écrit dans le message de news:
45dd80b0$0$25924$
Le tout dans le module Thisworkbook du Projet VBA de ton classeur.

A+


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
















Avatar
Patcas
Merci pour ta patience
je vais me debrouiller avec ce que vous m'avez donné
Bonne soirée


"anonymousA" a écrit dans le message de news:
45ddb524$0$5103$
Ben , c'est ce que tu demandais ou alors j'ai mal compris.
Pour se placer sur la 1ere ligne ligne par rapport à une colonne donnée,
il faut spécifier la colonne de référence.
Là, la macro recherche la dernière ligne sur laquelle il y a une valeur et
ce quelle que soit les colonnes de 1 à 256.

A+

Merci ça fonctionne mais pas comme je voudrais
Mon curseur se retrouve tout en bas du tableau et non pas sur la 1ere
ligne disponible




"anonymousA" a écrit dans le message de news:
45dd80b0$0$25924$
Le tout dans le module Thisworkbook du Projet VBA de ton classeur.

A+


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