erreur vba

jeanclaudec · 1 Septembre 2018

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 · 1 Septembre 2018

Bonsoir jeanclaudec,

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

VB:

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 · 1 Septembre 2018

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 :

Code:

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 · 1 Septembre 2018

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

erreur vba

jeanclaudec

XLDnaute Nouveau

mapomme

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

jeanclaudec

XLDnaute Nouveau

Discussions similaires