En VBA, remplacer le code de direction
Catégorie : Trucs et astuces
Publié par veriland le 07-Aug-2013 14:10
End(xlDown) ---- devient ----- End(4)

Option Explicit 

' http://www.excel.veriti.net'

' code numérique'
'(1= xlToLeft)-----> Gauche '
'(2= xlToRight)----> Droite '
'(3 = xlUp)--------> Haut '
'(4 = xlDown)------> Bas'

Sub AA() 
'Sélection de la première cellule pleine colonne A' 
[A1].End(4).Select 
End Sub


Sub BB() 
'Sélection de la dernière cellule pleine colonne A'
[A65536].End(3).Select 
End Sub


Sub CC() 'Sélection d une zone ... de A1 à la dernière cellule pleine colonne F'
Range("A1", [F65536].End(3)).Select
End Sub


VériTi