Divers petites astuces

Sélection de cellules vers le bas depuis la cellule active.
Sub SelectDown()
Range(ActiveCell, ActiveCell.End(xlDown)).Select
End Sub

Sélection de cellules vers le haut depuis la cellule active.
Sub SelectDown()
Range(ActiveCell, ActiveCell.End(xlUp)).Select
End Sub

Sélection de cellules vers la droite depuis la cellule active.
Sub SelectDown()
Range(ActiveCell, ActiveCell.End(xlToLeff)).Select
End Sub

Sélection de cellules vers la gauche depuis la cellule active.
Sub SelectDown()
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub

Sélection de cellules dans la plage courante depuis la cellule active.
Sub SelectCurrentRegion()
ActiveCell.CurrentRegion.Select
End Sub

Sélection de cellules contigues dans la colonne de la cellule active.
Sub SelectActiveColumn()
If IsEmpty(ActiveCell)Then Exit Sub ' Ignore error si Activecell est dans la ligne 1
On Error Resume Next
If IsEmpty(ActiveCell.Offset(-1, 0)) Then Set TopCell=ActiveCell Else Set TopCell=ActiveCell.End (xlUp)
If IsEmpty(ActiveCell.Offset(1, 0)) Then Set BottomCell=ActiveCell Else Set BottomCell=ActiveCell.End(xlDown)
Range(TopCell, BottomCell).Select
End Sub

Sélection de cellues contigues dans la ligne de la cellule active.
Sub SelectActiveRow()
If IsEmpty(ActiveCell) Then Exit Sub 'Ignore error si Activecell est dans la colonne A
On Error Resume Next
If IsEmpty(ActiveCell.Offset(-1, 0)) Then Set TopCell=ActiveCell Else Set TopCell=ActiveCell.End (xlToLeft)
If IsEmpty(ActiveCell.Offset(1, 0)) Then Set BottomCell=ActiveCell Else Set BottomCell=ActiveCell.End (xlToRight)
Range(TopCell,BottomCell).Select
End Sub

Sélection d'une colonne entière par rapport à la cellule active.
Sub SelectEntireColumn()
Selection.EntireColumn.Select
End Sub

Sélection d'une ligne entière par rapport à la cellule active.
Sub SelectEntireRow()
Selection.EntireRow.Select
End Sub

Déplace la cellule active d'une ligne vers le bas et deux colonnes vers la droite.
Sub DéplaceCellActive()
DimLigVar, ColVar
LigVar=1
ColVar=2
Selection.Offset(LigVar, ColVar).Select
End Sub

Sélectionner une cellule définie.
Sub AffichageCellule()
Dim MaCellule$
MaCellule="D6"
Range(MaCellule).Select
End Sub