Discussion :

[bigs3232]

j'ai un fichier excel avec couleur sur ces cellules range(("l8") et range("l11")
je voudrais recuperer les range(a8:m8) et range(a11:m11) avec la fonction union mais cela ne semble pas marcher
si vous avez une piste merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub aa_2_5test3()
    Set plage1 = Range("l2:l13")
    plage1.Select
    Set Plage = Nothing
    Set Plage = Range("a4:m4")
    For Each c In plage1
    If c.Interior.ColorIndex = 6 Then
    Set Plage = Union(Plage, Range("A" & c.Column - 1, "m" & c.Column - 1))
    End If
    Next c
    Plage.Select
End Sub