union plusieurs ranges selon la zone en couleur

**bigs3232** · 25/02/2018, 11h43

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
Nom : 0img54.jpg
Affichages : 582
Taille : 129,6 Ko

Nom : 0img54.jpg
Affichages : 582
Taille : 129,6 Ko

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** · 25/02/2018, 19h44

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

**bigs3232** · 25/02/2018, 20h59

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** · 26/02/2018, 11h50

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** · 26/02/2018, 13h30

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** · 26/02/2018, 13h43

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

pourquoi c.Row - 1 ?

@+JP

**bigs3232** · 26/02/2018, 16h59

Envoyé par mjpmjp

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

pourquoi c.Row - 1 ?

@+JP

meme avec c.row ca ne marche pas.ici j'aimerais creer une fonction avec set plage mais ca ne marche pas

**mjpmjp** · 26/02/2018, 17h04

bonjour,
je viens de voir que la fonction a le même nom que l'objet union_plage
@+JP

**mjpmjp** · 26/02/2018, 17h06

re,
essai en renommant la fonction avec UnionPlage()
@+JP

**bigs3232** · 27/02/2018, 00h18

Envoyé par mjpmjp

re,
essai en renommant la fonction avec UnionPlage()
@+JP

je ne comprends pas.je dois faire quoi concretement sur ma fonction

**mjpmjp** · 27/02/2018, 20h03

bonjour,
le fonctionnement "réel" d'une fonction est de renvoyer un résultat...
pour renvoyer ce résultat on utilise le nom de la fonction...

Code :

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

1
2
3
4
5
6
private function MaFonction(Data1,Data2)
 
'renvoyer le résultat
MaFonction=Data1+Data2
 
end fonction

tu comprends pourquoi c'est embêtant d'avoir une variable qui a le même nom que la fonction ?
c'est pourquoi je te disais de renommer ta fonction ou ta variable , peut importe , le but est d'avoir 2 noms différants

@+JP

**bigs3232** · 02/03/2018, 14h59

je sais bien mais ca ne résout pas vraiment mon probleme.malheureusement

**eriiic** · 03/03/2018, 00h54

Bonjour,

"ça marche pas" tu ne trouves pas ça un peu léger comme explication ?
eric

**unparia** · 03/03/2018, 06h44

Bonjour
ma seule intervention ici concernera le principe lui-même : celui qui consiste à constituer la plage de cellules coloriées ... à partir de la couleur qu'on leur a donnée !
La constituer d'emblée, au moment même où on leur attribue cette couleur évite ce genre de double-travail générateur de lenteurs additionnelles !
Je vous laisse maintenant.

**eriiic** · 03/03/2018, 09h26

J'ajouterai est-ce que cette couleur est bien mise manuellement et non par MFC ?
eric

**mjpmjp** · 03/03/2018, 11h57

bonjour,

Nom : Capture.PNG
Affichages : 477
Taille : 17,2 Ko

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub CommandButton1_Click()
    Call Action
End Sub
 
Sub Action(Optional ByVal Couleur = 6)
    Set plage1 = Range("l2:l13")
    plage1.Select
    Set Plage = Nothing
    Set Plage = Range("a4:m4")
    For Each c In plage1
        If c.Interior.ColorIndex = Couleur Then
            Set Plage = Union(Plage, Range("A" & c.Row, "m" & c.Row))
        End If
    Next c
    Plage.Select
End Sub

et avec

Code :

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

1
2
3
4
 
Private Sub CommandButton1_Click()
    Call Action(3)
End Sub

Nom : CouleurIndex3.PNG
Affichages : 491
Taille : 14,4 Ko

@+JP

**mjpmjp** · 03/03/2018, 12h39

bonjour,

index 1 à 17
Nom : Index_1a17.PNG
Affichages : 431
Taille : 5,6 Ko

avec

Code :

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

1
2
3
4
5
6
 
Private Sub CommandButton2_Click()
    For n = 1 To 17
        Cells(1, n).Interior.ColorIndex = n
    Next n
End Sub

question : as tu les mêmes couleurs ?

@+JP

**patricktoulon** · 03/03/2018, 15h42

re
bonjour
sub de test

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
    Dim plage1 As Range, plagebase As Range, plage_finale As Range
    With ActiveSheet
        Set plage1 = .Range("l2:l13")
        Set plagebase = .Range("a4:m4")
        Set plage_finale = rangeUnion(plage1, plagebase)
        plage_finale.Select
        MsgBox plage_finale.Address
    End With
End Sub

fonction renvoyant un object range

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function rangeUnion(plage1, plagebase) As Range
    Dim plageintermediaire As Range, c As Range
    For Each c In plage1
        If c.Interior.ColorIndex = 6 Then
            Set plageintermediaire = Range("A" & c.Row, "m" & c.Row)
            'ou delir:):)
            'Set plageintermediaire = Range("A" & c.Row).Resize(1, cells(1,"m").Column)
            'ou pratique
            'Set plageintermediaire = Range("A" & c.Row).Resize(1, 13)
            'ou delire :):)
            'Set plageintermediaire = Range("A" & c.Row).Resize(1, Columns("m").Column)
            Set plagebase = Union(plagebase, plageintermediaire)
        End If
    Next c
    Set rangeUnion = plagebase
End Function

c'est quoi le soucis exactement?

EDIT:

j'irais meme plus loin
dans ton cas ca se resume a ceci:

Code :

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

1
2
3
4
5
6
7
8
9
Sub test2()
    With ActiveSheet.Range("$A$4:$M$13")
        .AutoFilter Field:=12, Criteria1:=ThisWorkbook.Colors(6), Operator:=xlFilterCellColor
        Set Add = .SpecialCells(xlVisible)
        .AutoFilter
    End With
    Add.Select
    MsgBox Add.Address
End Sub