Sélection d'une plage de cellules

[Magic_Doctor]

Bonjour,

L'intitulé peut paraître simpliste, mais je ne parviens pas, dans une macro, à sélectionner une plage de cellules.

Voici une esquisse de cette macro :

Sub zaza()

Dim firstcell As Range, secondcell As Range, nbcell(7) As Byte

Set firstcell = Cells([CellPrincipio].Row + nbcel(0), [CellPrincipio].Column)
Set secondcell = Cells([CellPrincipio].Row + nbcel(1), [CellPrincipio].Column)

'[CellPrincipio] étant une cellule nommée
'nbcell une valeur entière pouvant varier
'Je voudrais sélectionner la plage [firstcell : secondcell]
'firstcell et secondcell se trouvent bien entendu dans une même colonne
'Si j'écris firstcell.select, la cellule en question est bien sélectionnée, idem concernant lastcell.select

End Sub

Et je n'y parviens pas.

Comment s'y prendre ?

 

[Pierrot93]

Re : Sélection d'une plage de cellules

Bonjour Magic Doctor,

je ne vois pas que la variable tableau "nbcell" soit initialisée, à priori je dirais qu'elle renvoie zéro dans les 2 instructions "set"...

bonne journée
@+

 

[tototiti2008]

Re : Sélection d'une plage de cellules

Bonjour MagicDoctor,

essaye :

Range(firstcell, secondcell).select

Edit : Bing, Bonjour Pierrot 😉

 

[Magic_Doctor]

Re : Sélection d'une plage de cellules

Bonjour Pierrot93 & tototiti2008,

L'exemple n'était qu'une esquisse de la macro ; j'aurais en effet pu rejouter dans le corps de la macro :

nbcell(0) = 0
nbcell(1) = [CellPrincipio].Offset(nbcell(0), -2).Value - 1
nbcell(2) = [CellPrincipio].Offset(nbcell(1), -2).Value - 1
nbcell(3) = [CellPrincipio].Offset(nbcell(1) + nbcell(2), -2).Value - 1
nbcell(4) = [CellPrincipio].Offset(nbcell(1) + nbcell(2) + nbcell(3), -2).Value - 1
nbcell(5) = [CellPrincipio].Offset(nbcell(1) + nbcell(2) + nbcell(3) + nbcell(4), -2).Value - 1
nbcell(6) = [NbJoursMois].Value - 1

Le problème était tout simplement de sélectionner une plage de cellules dont on connaissait les extrémités (firstcell et secondcell).

Étant assez réfractaire à VBA, la solution de tototiti2008 répond donc parfaitement à la question.

Merci à tous les deux et une très bonne journée.