mise en forme colonne VBA

Bonjour,

tu n'as pas mis ton code... plutôt que "range", utilise la propriété "cells", où le 2ème argument est le numéro de colonne... exemple ci-dessous pour boucler sur les colonne A à E (ligne1) de la feuille active.

If cells(150,I).Value = 7 Then range(cells(9,I),cells(37, I)).Interior.ColorIndex = 9437183

Range(Cells(1, 3), Cells(10, 3)).Select
Cells(1, 4).Resize(10, 1).Select

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim I As Integer
For I = 2 To 8
If Cells(38, I).Value = 7 Then Range(Cells(9, I), Cells(37, I)).Interior.ColorIndex = 9437183
Next I

End Sub

Sub couleur()
Dim col As Long
With Sheets("Feuil1")
    col = .Cells(38, Columns.Count).End(xlToLeft).Column
    For i = 2 To col
        If .Cells(150, i).Value = 7 Then
            .Range(.Cells(9, i), .Cells(37, i)).Interior.Color = 9437183
            Else
            .Range(.Cells(9, i), .Cells(37, i)).Interior.Color = xlNone
        End If
    Next i
End With
End Sub