erreur vba

[jeanclaudec]

je ne comprends pas pourquoi cette erreur 9 dans mon code.

Elle se produit sur la ligne Sheets(...​

Dim i As Integer
For i = 3 To 201 Step 2
Sheets(General).Range(Cells(i, 2), Cells(i, 45)).Select
With Selection.Interior
.ColorIndex = 186500
End With.
Next i

Merci par avance pour votre aide.
Bonne journée

 

[mapomme]

Bonsoir jeanclaudec,

Si le nom de votre onglet est General, alors essayez Sheets("General") avec :

Dim i As Integer
  Application.ScreenUpdating = False
  With Sheets("General")
    For i = 3 To 201 Step 2
      .Range(.Cells(i, 2), .Cells(i, 45)).Interior.Color = 186500
    Next i
  End With

 

[job75]

Bonjour jeanclaudec, mapomme,

2 choses à apprendre et à retenir ici :

- les Select sont en général inutiles et même nuisibles en VBA

- ColorIndex ne peut pas dépasser la valeur 56, mais 186500 fonctionnera avec .Color.

La macro qui va bien :

Sub Colorer()
Dim i As Integer
For i = 3 To 201 Step 2
Sheets("General").Cells(i, 2).Resize(, 44).Interior.Color = 186500
Next i
End Sub

A+

 

[jeanclaudec]

Merci job75 pour cette réponse aussi rapide.
Je n'utilise pas select dans mes programmes et c'est l'aide vba excel qui m'a proposé un exemple se rapprochant de ma question avec select.
Merci aussi à Mapomme, j'essayerai votre code
Bonne soirée