Sub Orange()

 Range((ActiveCells.Row,1),(ActiveCells.Row,9).select

    With Selection.Interior
        .Pattern = xlSolidCells
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
 
End Sub

Bonjour,

Je chercher à mettre une mise en forme sur la ligne active des cellules À I

Mais cela me remonte une erreur.. 

J'ai mal écrit ma formule ? 

Merci

-
Edité par Neiler258 19 mars 2019 à 17:17:09

Salut,

Pour utiliser Range comme tu souhaites le faire il te manque des Cells(). Range comprends les références des cellules, pas leur coordonnées. Et aussi il manque une parenthèse fermante avant le .Select

Regarde le 5e exemple de la doc : https://docs.microsoft.com/fr-fr/office/vba/api/excel.worksheet.range

Aussi, les Select et Selection sont à éviter, ils ralentissent l'exécution de la macro et sont dépendants de l'utilisateur.

Select permet de définir ce qui est selectionné à l'écran, cette info est aussi représentée par la variable "Selection" ligne 3.

Or "Selection" est un objet Range comme celui que tu utilises ligne 1, donc toutes les opérations que tu fais sur "Selection", tu peux les faire sur tous les objets Range directement. Ca permet de gagner en temps d'exécution, en lisibilité du code et ça rend la macro plus robuste, si jamais l'utlisateur réussit à cliquer quelque part pendant l'exécution il pourrait tout faire capoter.

Du coup ton code deviendrait plutôt :

Sub Orange()
 
    With Range(Cells(ActiveCell.Row,1),Cells(ActiveCell.Row,9)).Interior
        .Pattern = xlSolidCells
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
  
End Sub