Définir une quantité de cellule a transformer a partir d'un nombre d'une cellule.

Bonjour a tous. Je suis nouveau dans ce forum, mais également nouveau à utiliser VB6.3; et j'aurais besoin de votre aide.
Je vous explique mon problème: J'ai besoin de transformer le résultats d'une cellule en cette quantité de cellule de couleur verte. Vu que ça ne doit pas être très clair je préfère utilisé un exemple:
Donnée:
Cellule A3 dans feuille 1: "25"
Résultats souhaité:
Feuille2 a partir de la cellule A6 jusqu'à la cellule A31 (soit 25 cellule) colorée en vert avec du texte a l'intérieur.

Si quelqu'un pourrais m'aider, je vous enserai très reconnaissant.

Vous en remùerciant d'avance.

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9

Sub AppliquerCouleur() Dim NbLigne As Long NbLigne = Worksheets(1).Range("A3").Value With Worksheets(2).Range("A6").Resize(NbLigne, 1) .Interior.ColorIndex = 4'Code couleur pour le vert .Value = "MonTexte" End With End Sub

---

>a partir de la cellule A6 jusqu'à la cellule A31 (soit 25 cellule)
Attention aux intervalles, cela fait 26 cellules, en incluant A6 et A31.

Cordialement,

Tirex28/

Merci beaucoup. C'est résolu