alain.raphael
XLDnaute Occasionnel
Bonjour à Tous,
J'ai une erreur du type : Run-time error '-2147024809 (80070057)': The specific value is out of range
Peut-être une erreur de noms de propriété...ou autre....
Impossible de trouver cette erreur....
Si quelqu'un a une idée ?
Sub coloriage()
Dim couleur As Long, c As Range, ca As Range, p As Long
For Each c In Range("R6:R231").Cells
If c <> "" Then
Set ca = c.Offset(, 1)
p = Application.Match(ca, [legende], 1)
couleur = Range("legende").Cells(p, 1).Interior.Color
ActiveSheet.Shapes(c).Fill.ForeColor.RGB = couleur
End If
Next c
End Sub
Merci !
J'ai une erreur du type : Run-time error '-2147024809 (80070057)': The specific value is out of range
Peut-être une erreur de noms de propriété...ou autre....
Impossible de trouver cette erreur....
Si quelqu'un a une idée ?
Sub coloriage()
Dim couleur As Long, c As Range, ca As Range, p As Long
For Each c In Range("R6:R231").Cells
If c <> "" Then
Set ca = c.Offset(, 1)
p = Application.Match(ca, [legende], 1)
couleur = Range("legende").Cells(p, 1).Interior.Color
ActiveSheet.Shapes(c).Fill.ForeColor.RGB = couleur
End If
Next c
End Sub
Merci !
Dernière édition: