selection.interior.colorindex et adress

[sebastien450]

Bonjour tous le monde !

Après avoir bien travailler moi meme sur le fichier joint, je suis bloquer, par le fait d'aller chercher une adresse d'une cellule (ou plusieures) (rgb 204:255:255) et mettre en forme comme indiqué dans le fichier
la meme chose sera a faire avec les cellule blanche (la plage sera différente car mise en forme différente).

J'ai un bout de code dans le fichier (macro test2) et un coup de main serait donc necessaire

Merci a vous

sebastien

 

[homepyrof53]

Re : selection.interior.colorindex et adress

Bonjour,

Sub Test_2()
'supprime couleur cellule rouge a modif en fusion cellule couleur bleu/vert
Dim c As Range
Derligne = Range("A" & Application.Rows.Count).End(xlUp).Row
MsgBox Derligne
Target = Range(Cells(5, 1), Cells(Derligne, 1))

For Each cell In Target
If cell.Interior.ColorIndex = RGB(204, 255, 255) Then
MsgBox ("tatrouvé")
c=cell.row
Range(Cells(c, 2), Cells(c, 9)).Select
With Selection
.Borders.Value = 1
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext
End With
Selection.Merge
End If
MsgBox Derligne
Next cell
End Sub

Je pense que tes problèmes devraient être résolus

 

[Dranreb]

Re : selection.interior.colorindex et adress

Bonjour.
Sûrement pas:
Dim c As Range … c = Cell.Row
Target = Range(…).Value … For Each cell In Target … If Cell.Interior

Commencez par mettre Option Explicit en tête de votre module pour vous obliger à tout déclarer et typez explicitement et convenablement tout ce que vous utilisez.

 

[homepyrof53]

Re : selection.interior.colorindex et adress

Ok pour Dim c As Range et c = Cell.Row


mais ou est defini la valeur de c dans :
Range(Cells(c, 2), Cells(c, 9)).Select

 

[Dranreb]

Re : selection.interior.colorindex et adress

Pour les point que j'ai signalé ces remplacements seraient corrects :
Dim C As Long, Cell As Range … C = Cell.Row
Set Target = Range(…) … For Each Cell In Target … If Cell.Interior