VBA error 1004

Bonjour à tous,

J'ai un problème VBA qui devrait etre assez simple pour beaucoup.

Sur la macro suivante, une erreur 1004 (Method Range of Object Global Failed) apparait à la ligne "Range(ws1.Cells(15, 1)).Select"

Comment dois-je donc exprimer ma Range pour éviter cette erreur ?

Merci d'avance.

Sub xxx()

Dim ws1 As Worksheet

Set ws1 = Worksheets("XXX")

ws1.Select

Range(ws1.Cells(15, 1)).Select

With Selection.Font

.Color = -16776961

.TintAndShade = 0

End With

Selection.Font.Bold = True

End Sub

Bonjour,

essaie ainsi :

With ws.Cells(15,1).Font
.Bold=True
.Color=-16776961
End With

Merci beaucoup Jean-Eric,

ça marche très bien.

Pour ma gouverne, qu'est ce que je ne maitrise pas dans l'usage de .select ? Sachant que ma macro marche parfaitement sur un autre fichier quasimment similaire, je ne comprends vraiment pas pourquoi dans ce ficher ma Range est mal selectionnée.

Merci.

Bonjour

je pense a un truc comme ca

Sub xxx()

Dim ws1 As Worksheet

Set ws1 = Worksheets("XXX")

With ws1

.Cells(15, 1).Font.Color = -16776961

.Cells(15, 1).Font.Bold = True

End With

End Sub

A+

Maurice