XL 2016 Aide sur Sélection d'une cellule

[tomen]

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

 

[Phil69970]

Bonjour @tomen

​

Je te propose ce petit test
Après suivant ce que tu veux faire on peux adapter😉

Merci de ton retour

@Phil69970

​

 

[tomen]

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]

Bonjour Tomen, Phil,
Avec ce que j'ai compris, un essai en PJ avec :

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

 

[Phil69970]

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.

Propriété Range.Offset (Excel)

Rubrique de référence sur Office VBA

docs.microsoft.com

@Phil69970

 

[tomen]

merci pour votre aide à tous les 2:
ce code fonctionne pour moi, problème résolu :
Selection.Offset(Selection.Rows.Count).Resize(1, Selection.Columns.Count).Select

 

[Phil69970]

Le fil

@tomen

Il me semble que :

Selection.Offset(1, 0).Select

le fait tout autant plus simplement 😉

@Phil69970

 

[tomen]

Le fil

@tomen

Il me semble que :

le fait tout autant plus simplement 😉

@Phil69970

Non, ce code élargit ta plage d'une ligne.

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"

 

[soan]

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 :

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

soan