XL 2021 En restant sur Feuille 1 active, comment activer dans ma feuille2 la 1ère cellule vide de la colonne A

[Usine à gaz]

Bonsoir à toutes et à tous

Je n'arrive pas à trouver un code :
Si je suis sur ma feuille 2, au clic sur le bouton,

Sub déplace()
ActiveSheet.Cells(Rows.Count, "a").End(xlUp)(2).Select
End Sub

j'active la 1ère cellule vide de la colonne A (soit A8 pour mon exemple)

Mon besoin
Je suis sur ma feuille 1 (feuille active)
En restant sur ma feuille1
quel code me permettrait d'activer dans ma feuille2 la 1ère cellule vide de la colonne A (soit A8 pour mon exemple)

Je sèche. Auriez-vous le bon code ?
Je joins un petit fichier test.
Merci à vous...

 

[dysorthographie]

Bonjour,
Pourquoi veux tu faire un select ? Bani cette instruction de ton vocabulaire.

Tu veux faire quoi de ce select ?

 

[Usine à gaz]

Bonsoir dysorthographie
Oui je sais lol
Mais mon besoin est-il réalisable ?

 

[ChTi160]

Bonsoir Lionel
Peut-être ainsi

Sub déplace()
Dim DerLgn as Long
With Worksheets("Feuil2")
  DerLgn= .Cells(.Rows.Count, "a").End(xlUp).Row+1
  .Cells(DerLgn,1)="Coucou"
End with
End Sub

non testé Lol
Jean marie

 

[Usine à gaz]

Bonsoir Jean-Marie,
Merci pour ton code
Ca fontionne au 1er clic, il écrit bien "coucou" feuille2 cellule A8
Mais si je clique à nouveau, il m'en écrit pas un autre en dessous.
Je remets le fichier avec ton code...

 

[dysorthographie]

Worksheets("Feuil2").Cells(Rows.Count,"a").End(xlUp)(2)="Coucou"

Personnellement je préfère écrire offset(2) pour la lisibilité mais ta façon d'écrire fonctionne !

 

[Usine à gaz]

Worksheets("Feuil2").Cells(Rows.Count,"a").End(xlUp)(2)="Coucou"

Personnellement je préfère écrire offset(2) pour la lisibilité mais ta façon d'écrire fonctionne !

Re @dysorthographie
Nickel, c'est tout bon.
Merci à toi

 

[patricktoulon]

re
Bonsoir à tous
j'adore les questions du dimanche de Lionel

En restant sur ma feuille1
quel code me permettrait d'activer dans ma feuille2 la 1ère cellule vide de la colonne A (soit A8 pour mon exemple)

 

[ChTi160]

Re Normal j'avais oublié le +1

DerLgn= .Cells(.Rows.Count, "a").End(xlUp).Row+1

Jean marie

 

[Usine à gaz]

Je reviens sur le fil.
Votre solutions fonctionnent nickel, Grand Merci mais... lol
Je ne souhaite pas écrire dans la cellule mais uniquement la sélectionner : Est-ce possible

 

[ChTi160]

Re

Je ne souhaite pas écrire dans la cellule mais uniquement la sélectionner

Pourquoi en faire de cette cellule sélectionnée ?
Jean marie

 

[patricktoulon]

Je reviens sur le fil.
Votre solutions fonctionnent nickel, Grand Merci mais... lol
Je ne souhaite pas écrire dans la cellule mais uniquement la sélectionner : Est-ce possible

re
mais bien sur que non
comment voudrais tu activer la cellule d'une feuille qui n'est même pas active

 

[dysorthographie]

Je reviens sur le fil.
Votre solutions fonctionnent nickel, Grand Merci mais... lol
Je ne souhaite pas écrire dans la cellule mais uniquement la sélectionner : Est-ce possible

C'est ridicule, pourquoi veux tu la sélectionner?
Expliques nous pourquoi et on te dira comment faire autrement.

N'utilises plus les instruction select, selection et autres activate.

Je ne te demande pas d'écrire ça sur l'aba-jour de ta lampe de bureau.

 

[patricktoulon]

re
comment ouvrir un fichier excel avec mon pc éteint
ps :c'est urgent

 

[Usine à gaz]

re
Bonsoir à tous
j'adore les questions du dimanche de Lionel

Salut Patrick
Tu te moques, je te déteste lol
Peut-être tu pourrais répondre à mon besoin