Sélection étendue de cellules (offset)

[eastwalk]

J'utilise Excel2000 sous win2000 et je me heurte à un petit problème et l'aide d'excel ne m'est d'aucun secours

Voila si j'ai deux cellules de sélectionné disons A1 et A2
je souhaite étendre ma sélection de X colonnes

Comment écrit on cela en vba ?

Offset permet de déplacer une cellule mais comment peut on étendre la sélection ?

Merci d'avance à ceux qui répondront à cette question

amitiés

 

[myDearFriend!]

Bonsoir eastwalk,

Une façon de faire peut-être trop simple :

Dim Cellule As Range
Dim NbreLign As Long
Dim NbreCol As Byte
      'Cellule de référence (coin supérieur gauche de la plage à adapter)
      Set Cellule = Range('A1')
      'Nombre de lignes et de colonnes totales à prendre en compte (à adapter)
      NbreLign = 2
      NbreCol = 10
     
      'Sélection de la plage souhaitée
      Range(Cellule, Cellule.Offset(NbreLign-1, NbreCol-1)).Select

Cordialement,