OVH Cloud OVH Cloud

Sélection d'une plage

2 réponses
Avatar
imej-clavier
Bonjour,
Quelqu'un peut-il m'aider à résoudre mon problème ?
J'ai fait les deux premières lignes d'un damier. Je souhaiterais les
sélectionner par programmation.
' Ma cellule constitue la cellule à partir de laquelle créer le damier.
MaCellule = InputBox("Choisissez une cellule de départ ")
Set MaCelluleA=ActiveCell.Offset(0,1)
AAA=MaCelluleA.Address
' compteur est une variable représentant le nombre total de lignes et de
colonnes
Set MaCelluleB=ActiveCell.Offset(1,compteur)
BBB=MaCelluleB.Address
Set MaPlage=Range("BBB:CCC")
MaPlage.Select
Ce que je ne comprend pas, c'est que si l'on espionne les valeurs des
variables BBB et CCC on trouve les cellules adéquates (1ère et dernière
cellule de
la plage). Par contre, on ne peut pas sélectionner la plage.
Mais si l'on remplace les variables BBB et CCC par les adresses adéquates :
A1 ou F5..., on arrive à sélectionner la plage.
Quelqu'un peut-il m'aider à résoudre ce problème?
D'avance merci,
Jean-michel

2 réponses

Avatar
Nicolas B.
Salut,

Pas testé, mais les variables ne doivent pas être entre guillemets.
Remplace Set MaPlage=Range("BBB:CCC") par :
Set MaPlage=Range(BBB & ":" & CCC)


A+
--
Nicolas B.


Bonjour,
Quelqu'un peut-il m'aider à résoudre mon problème ?
J'ai fait les deux premières lignes d'un damier. Je souhaiterais les
sélectionner par programmation.
' Ma cellule constitue la cellule à partir de laquelle créer le
damier. MaCellule = InputBox("Choisissez une cellule de départ ")
Set MaCelluleA¬tiveCell.Offset(0,1)
AAA=MaCelluleA.Address
' compteur est une variable représentant le nombre total de lignes et
de colonnes
Set MaCelluleB¬tiveCell.Offset(1,compteur)
BBB=MaCelluleB.Address
Set MaPlage=Range("BBB:CCC")
MaPlage.Select
Ce que je ne comprend pas, c'est que si l'on espionne les valeurs des
variables BBB et CCC on trouve les cellules adéquates (1ère et
dernière cellule de
la plage). Par contre, on ne peut pas sélectionner la plage.
Mais si l'on remplace les variables BBB et CCC par les adresses
adéquates : A1 ou F5..., on arrive à sélectionner la plage.
Quelqu'un peut-il m'aider à résoudre ce problème?
D'avance merci,
Jean-michel


Avatar
Nicolas B.
Set MaPlage=Range(BBB & ":" & CCC)


Ou même plus simplement :
Set MaPlage = Range(BBB, CCC)


A+
--
Nicolas B.


Salut,

Pas testé, mais les variables ne doivent pas être entre guillemets.
Remplace Set MaPlage=Range("BBB:CCC") par :
Set MaPlage=Range(BBB & ":" & CCC)


A+
--
Nicolas B.


Bonjour,
Quelqu'un peut-il m'aider à résoudre mon problème ?
J'ai fait les deux premières lignes d'un damier. Je souhaiterais les
sélectionner par programmation.
' Ma cellule constitue la cellule à partir de laquelle créer le
damier. MaCellule = InputBox("Choisissez une cellule de départ ")
Set MaCelluleA¬tiveCell.Offset(0,1)
AAA=MaCelluleA.Address
' compteur est une variable représentant le nombre total de lignes et
de colonnes
Set MaCelluleB¬tiveCell.Offset(1,compteur)
BBB=MaCelluleB.Address
Set MaPlage=Range("BBB:CCC")
MaPlage.Select
Ce que je ne comprend pas, c'est que si l'on espionne les valeurs des
variables BBB et CCC on trouve les cellules adéquates (1ère et
dernière cellule de
la plage). Par contre, on ne peut pas sélectionner la plage.
Mais si l'on remplace les variables BBB et CCC par les adresses
adéquates : A1 ou F5..., on arrive à sélectionner la plage.
Quelqu'un peut-il m'aider à résoudre ce problème?
D'avance merci,
Jean-michel