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

Usine à gaz · 29 Octobre 2023

Bonsoir à toutes et à tous

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

VB:

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...

patricktoulon · 29 Octobre 2023

re

VB:

Sub test()
   Set sh = ActiveSheet
    Application.ScreenUpdating = False
    Application.Goto Feuil2.Cells(Rows.Count, "A").End(xlUp).Offset(1)
   sh.Activate
End Sub

dysorthographie · 29 Octobre 2023

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

Tu veux faire quoi de ce select ?

Usine à gaz · 29 Octobre 2023

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

ChTi160 · 29 Octobre 2023

Bonsoir Lionel
Peut-être ainsi

VB:

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 · 29 Octobre 2023

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 · 29 Octobre 2023

Code:

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 · 29 Octobre 2023

dysorthographie à dit:
Code:

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 · 29 Octobre 2023

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 · 29 Octobre 2023

Re Normal j'avais oublié le +1

VB:

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

Jean marie

Usine à gaz · 29 Octobre 2023

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 · 29 Octobre 2023

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 · 29 Octobre 2023

Usine à gaz à dit:
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 · 29 Octobre 2023

Usine à gaz à dit:
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 · 29 Octobre 2023

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

Usine à gaz · 29 Octobre 2023

patricktoulon à dit:
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

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

patricktoulon

dysorthographie

XLDnaute Accro

Usine à gaz

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

dysorthographie

XLDnaute Accro

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires