VBA Définir une zone

Bonjour tout le monde,

Je rencontre un petit soucis dans VBA. Je souhaite "définir" une zone, une plage de cellules. Mon objectif final est d'appliquer une formule à toutes les cellules de cette zone. Le process que je code actuellement:
1) Mon utilisateur clique sur une cellule sur ma feuille 1. Il clique ensuite sur un bouton qui lance ma macro.

2) Cette macro fait apparaitre un formulaire dans lequel l'utilisateur doit entrer un chiffre qui détermine la longueur (et donc largeur) de la matrice carrée qui correspond à la zone à définir. Ainsi si l'utilisateur clique en B2 (phase 1) ) et rentre 2 dans le formulaire qui apparait (phase 2) ), alors la zone que je souhaite définir est la zone allant de B2 à D4.

3) Définition de la zone allant de B2 à D4 par mon code. Je nomme cette zone "area". Je souhaiterai l'appeler dans d'autres parties de mon programme futur si possible.

4) Chaque cellule de cette zone "area" contient la formule = alea()

5) Fin du programme.

Le 1) et le 2) c'est bon. Je coince sur la suite. Auriez vous une idée de comment définir une plage de données dans la situation où je connais seulement le numéro de la ligne et colonne de départ et d'arrivée de ma zone ?

Merci d'avance pour votre aide.

Regarde l'aide sur Resize(x,y)

Exemple B2:G4 peut s'ércire:

Code:

---

Range("B2").Resize(3,6)

---

Pour tes 3 et 4

Code:

---

Range("B2").Resize(2,2).formula="=RAND()"

---

Bonjour.

Pour la désignation de la plage, tu peux regarder aussi la méthode InputBox d'Excel, type = 8.
C'est assez agréable pour l'utilisateur.

Cordialement,

PGZ

Citation:

---

Envoyé par mercatog

Regarde l'aide sur Resize(x,y)

Exemple B2:G4 peut s'ércire:

Code:

---

Range("B2").Resize(3,6)

---

Pour tes 3 et 4

Code:

---

Range("B2").Resize(2,2).formula="=RAND()"

---

---

Bonjour, bonne année 2015 ^^

Merci beaucoup pour votre aide ! Ca répond presque entièrement à mon problème. Là on met par défaut B2. Serait-il possible de remplacer B2 par la cellule sur laquelle l'utilisateur a cliqué ? Pour le resize, je vais essayer de l'adapter en remplaçant 2,2 par le chiffre entré par l'utilisateur.

Pour le inputbox, je connaissais cette technique, cependant dans mon exercice, je dois demander à l'utilisateur d'entrer une taille dans mon formulaire (je ne dois pas lui demander de tracer la surface de jeu). Mais merci quand même car c'est vrai que c'est vraiment pratique et simple à utiliser.

Bonjour,

Citation:

---

Serait-il possible de remplacer B2 par la cellule sur laquelle l'utilisateur a cliqué ?

---

Utilise l'objet ActiveCell
Exemple

Code:

---

ActiveCell.Resize(2, 2).Formula = "=RAND()"

---

Bonjour et bonne année à tous,

Accessoirement je ne suis pas sûr que nommer ta plage area soit une bonne idée. C'est un mot-clé de VBA, ça peut porter à confusion.
eric

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,

Utilise l'objet ActiveCell
Exemple

Code:

---

ActiveCell.Resize(2, 2).Formula = "=RAND()"

---

---

Parfait merci ! :)