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

[mjpmjp]

bonjour,
c.column --> c.row
@+JP

[bigs3232]

merci mjpmjp ca a l'air de marcher
j'aimerais en faire une fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
fuction f_get_multi_select_Scolor()
    col = get_tit_Srech_Act("volt_conn", 3)
    derlig = Range(col & Rows.Count).End(xlUp).Row  '
    Set plage1 = Range(col & 4, col & derlig)
    Set f_get_multi_select_Scolor = Range("a4:aa4")
    For Each c In plage1
    If c.Interior.ColorIndex = 6 Then
    Set f_get_multi_select_Scolor = Union(f_get_multi_select_Scolor, Range("A" & c.Row, "AA" & c.Row))
    End If
    Next c
    'Plage.Select
End Sub

et lancer avec çà

Code :

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

1
2
3
4
Sub aa_2ee()
  Set Plage = f_get_multi_select_Scolor()
  Plage.Select
End Sub

mais ca ne marche pas .
encore besoin de votre conseil

[mjpmjp]

bonjour,
le "format" de range est le suivant ... range("A1") ... une lettre et un chiffre
tu utilise ...range("A1","A2")..... ok

maintenant tu écris

Code :

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

Set plage1 = Range(col & 4, col & derlig)

si on reprend la partie Range(col & 4) .... on a "col" qui est un chiffre et 4 qui est un chiffre ... çà ne correspond au "format" indiqué au début !!!

tu peut dans ce cas utiliser Cells() qui utilise que des chiffres avec un "format".... Cells(ligne,colonne)...qui est inversé par rapport à range(colonne & ligne)
donc tu pourrais écrire
Set plage1 = Cells(col & derlig,col & 4) ....avec une inversion

à toi de voir si le contenu est correct !!
@+JP

[bigs3232]

je refais avec ec code mais ca ne marche toujours pas

Code :

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

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

[mjpmjp]

bonjour,
la plage commence ligne 4 : Set plage1 = Range("l4:l13")

pourquoi c.Row - 1 ?

@+JP