Couleur remplissage

Bonjour,

je souhaite coloré en remplissage " derligne " avec une autre couleur différente , voir sur le code "derligne" ,

Merci pour votre aide :

' wst = feuille tableau du classeur gestion

Set wst = Workbooks("gestion.xls").Worksheets("Tableau")
derligne = wst.Range("A65536").End(xlUp).Row + 1
Sheets("tableau").Activate
Cells(derligne, 1) = Range("dt").Value
Cells(derligne, 2) = Range("demandeur").Value
Cells(derligne, 3) = Range("adresse").Value
Cells(derligne, 4) = Range("Statut").Value
Cells(derligne, 5) = Range("CDS").Value

 Range("demandeur").Value = ""
 Range("adresse").Value = ""
 Range("Statut").Value = ""
 Range("CDS").Value = ""

Bonjour,

Cdlt

Cells(derligne - 1, 1).Interior.Color = 255

Bonjour

Bonjour Jean-Eric

Plutôt laconique comme demande

coolmomodu31 a écrit :

coloré en remplissage " derligne "

En traduction simple cela donne quoi ?

coolmomodu31 a écrit :

une autre couleur différente

Différente de quoi ?

coolmomodu31 a écrit :

voir sur le code "derligne

Il est où ce code derligne ?

Sinon si tu veux colorier la dernière ligne

Cells(derligne, 1).Resize(1,5).Interior.ColorIndex = 6

Bonjour,

Merci bien , sinon j'ai pu faire ça pour avoir le résultat que je veux voici le code :

Set wst = Workbooks("gestion.xls").Worksheets("Tableau")
Set wbd = Workbooks("gestion.xls")
derligne = wst.Range("A65536").End(xlUp).Row + 1
Sheets("tableau").Activate
Cells(derligne, 1) = Range("dt").Value
Cells(derligne, 2) = Range("demandeur").Value
Cells(derligne, 3) = Range("adresse").Value
Cells(derligne, 4) = Range("Statut").Value
Cells(derligne, 5) = Range("CDS").Value

'Couleur le la ligne "Bleu"
Cells(derligne, 1).Interior.Color = 255
Cells(derligne, 2).Interior.Color = 255
Cells(derligne, 3).Interior.Color = 255
Cells(derligne, 4).Interior.Color = 255
Cells(derligne, 5).Interior.Color = 255
'fin Couleur le la ligne "Bleu"

mais la couleur et rouge moi je souhaite avoir une couleur Bleu Ciel ou Bleu . Merci

Bonjour

A la place de 255 écris 16711680

Ou alors tu peux écrire

'Couleur le la ligne "Bleu"
Cells(derligne, 1).Resize(1, 5).Interior.Color = RGB(0, 0, 255)
'fin Couleur le la ligne "Bleu"

bonjour

remplace 255 par 15773696

oui merci mon ami bon boulot c'est cette couleur se que je cherche ^^ , je vous remercie les gars .