erreur 1004 sur listbox pour coloriage cellule

[nice]

Bonjour à tous
et merci de votre aide éventuelle

voici mon code qui me donne une erreur à la ligne "en gras"

Feuil27.Activate
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
derligne = Range("R200").End(xlUp).Row + 1
Cells(derligne, 18).Value = ListBox1.List(i, 0)
For Each c In Feuil6.Range("A57:I57,A63:BV305")
If c.Value = Cells(derligne, 18).Value Then
c.Interior.ColorIndex = 3
End If
Next

 

[kjin]

Re : erreur 1004 sur listbox pour coloriage cellule

Bonjour,
J'ai consulté pour toi Mme Irma et elle ne voit pas non plus...🙄
Alors, à tout hasard...

If ListBox1.ListIndex = -1 Then Exit Sub
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        With Sheets("Feuil27")
            derligne = .Range("R200").End(xlUp).Row + 1
            .Cells(derligne, 18).Value = ListBox1.List(i)
        End With
        With Sheets("Feuil6")
            For Each c In .Range("A57:I57,A63:BV305")
                If c.Value = ListBox1.List(i) Then
                    c.Interior.ColorIndex = 3
                End If
            Next
        End With
    End If
Next

A+
kjin

 

[Hulk]

Re : erreur 1004 sur listbox pour coloriage cellule

Hello,nice, Kjin 🙂

Et ça nice ?