selection.interior.colorindex et adress

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

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.

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

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