Discussion :

[jeje644]

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.

[mercatog]

Regarde l'aide sur Resize(x,y)

Exemple B2:G4 peut s'ércire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Pour tes 3 et 4

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pgz]

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

[jeje644]

Regarde l'aide sur Resize(x,y)

Exemple B2:G4 peut s'ércire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Pour tes 3 et 4

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Philippe Tulliez]

Bonjour,

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

Utilise l'objet ActiveCell
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[eriiic]

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

[jeje644]

Bonjour,

Utilise l'objet ActiveCell
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Parfait merci !