Discussion :

[tmk21fr]

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.

[tirex28]

Bonjour,

Code :

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

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/

[tmk21fr]

Merci beaucoup. C'est résolu