XL 2016 Aide sur Sélection d'une cellule

tomen

XLDnaute Nouveau
Bonjour,

à partir d'une sélection d'une plage, j'aimerais sélectionner la cellule juste en dessous cette plage.

exemple : j'ai une sélection "A1:A20", j'aimerai sélectionner "A21"

certainement avec un offset mais je n'y parviens pas...

merci d'avance pour votre aide précieuse
 

tomen

XLDnaute Nouveau
Bonjour Phil
cela ne marche pas.
le but n'est pas de se positionner sur la première cellule vide

Admettons, j'ai une sélection initiale de la plage "Code article, 390252 390258 et 390259", je souhaite sélectionner à partir d'un offset la cellule 391050

Code article
390252​
390258​
390259​
391050​
391051​
394164​
395278​
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Tomen, Phil,
Avec ce que j'ai compris, un essai en PJ avec :
VB:
Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then ' Plage à adapter
        Application.EnableEvents = False
        Plage = Split(Target.Address, "$")                      ' Récupère la plage décomposée
        Cells(1 + Plage(UBound(Plage)), "A").Select             ' sélectionne la cellule après la dernière sélectionnée
    End If
Fin:
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
 

Pièces jointes

  • Classeur2.xlsm
    13 KB · Affichages: 0

Phil69970

XLDnaute Barbatruc
Le fil , Sylvain

Si tu postais un fichier avec des explications de ce que tu veux faire (copier, effacer etc...)
Admettons, j'ai une sélection initiale de la plage "Code article, 390252 390258 et 390259", je souhaite sélectionner à partir d'un offset la cellule 391050

Pour faire un offset il faut partir d’une cellule de départ.

@Phil69970
 

soan

XLDnaute Barbatruc
Inactif
Bonsoir tomen, le fil,

moi je voulais à partir d'une plage, finir par sélectionner la cellule juste en dessous la plage, mais ne plus avoir la plage initiale en sélection.

à partir de "A1:A20", j'aimerai sélectionner uniquement "A21"

essaye ce code VBA :

VB:
Sub Essai()
  With Selection
    Cells(.Cells(1).Row + .Count, .Cells(1).Column).Select
  End With
End Sub

soan
 

Discussions similaires