Discussion :

[pepesese]

bonjour

dans ma colonne J il peut y avoir + ou - de cellules avec des valeurs
je me positionne sur la premiere cellule vide avec ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
'Positionner le pointeur sur la première cellule vide
  Range("J3").Select
  Selection.End(xlDown).Select
  ActiveCell.Offset(1, 0).Range("A1").Select
  LIGNEFIN = ActiveCell(1, 0).Address()
  FIN = Range(LIGNEFIN).Row

après je voudrais activer les cellules de cette cellules vide à la cellule J3 afin de faire un tri mais je ne sais pas faire ???
merci d'avance pour votre aide
(je débute avec la programmation )

[wilfried_42]

Bonjour


essaye cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("J3:J" & range("J3").end(Xldown).row=.select

Bonne soirée

[pepesese]

merci Wilfried 42 pour ta proposition
mais en surfant j' ai trouvé ceci un peu plus long mais ça marche aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 LIGNEFIN = ActiveCell.Row
  Range("B3" & ":J" & LIGNEFIN).Select
  Selection.Sort Key1:=Range("J3"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    ActiveWindow.SmallScroll Down:=-33

Merci encore