Copier les cellules colorées en contingu avec union

**bigs3232** · 17/08/2017, 11h28

j'aimerais copier les cellules en verts avec ce code mais ca ne marche pas
merci pour votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim c As Range, Plage As Range, Adresse As Range
Set Plage = Range(Selection.Address)
Set addresse = Application.Union(Range("d215"), Range("d216"))
For Each c In Plage
If c.Interior.ColorIndex <> 0 Then
Set Adresse = Application.Union(Adresse, c)
End If
Next c
For Each c In Adresse
c.Offset(, 1) = c.Value
Next c

Nom : 0img36.jpg
Affichages : 250
Taille : 21,6 Ko

**halaster08** · 17/08/2017, 11h34

mais ca ne marche pas

Peux tu être encore moins précis ? tu nous noyes dans les détails il est difficile de t'aider dans ce cas.

Tes couleurs viennent-elles d'une MFC ?

**Menhir** · 17/08/2017, 11h42

Envoyé par bigs3232

j'aimerais copier les cellules en verts avec ce code mais ca ne marche pas

Les copier où ?

A priori, ton code peut se simplifier ainsi :

Code :

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

1
2
3
4
Dim c As Range
For Each c In Selection
    If c.Interior.ColorIndex <> 0 Then c.Offset(0, 1).Value = c.Value
Next c

Mais je n'ai pas compris à quoi sert le Set addresse = Application.Union(Range("d215"), Range("d216")) du début.

**unparia** · 17/08/2017, 12h24

Bonjour

1) Cette ligne de code :

Code :

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

c.Offset(, 1) = c.Value

ne fait que copier dans la colonne suivante à droite le contenu des cellules répondant à ton critère.
Est-ce ce que tu veux ou veux-tu obtenir autre chose (et quoi, exactement) ?
2) à quoi correspond Selection ?
- à une sélection manuelle ?
- à la sélection d'une seule cellule ou de pluusieurs ?

il est d'autant plus difficile de deviner que tu ne montres qu'une partie de ton code, sans même que l'on puisse savoir dans quelle procédure évènementielle il a été écrit.

**bigs3232** · 17/08/2017, 12h36

trop gentil pour s'occuper de mon petit probleme
je cherche à maitriser la selection contigue c'est a dire quand je selectionnne plusieurs cellules contigues comme sur la photo et que je puisse stocker les cellules en vert .
soit je le copie à droite comme l'a fait menhir soit surtout j'aimerais copier en presse papier toutes les cellules en vert en utilisant la fonction union

**bigs3232** · 17/08/2017, 12h37

Mais je n'ai pas compris à quoi sert le Set addresse = Application.Union(Range("d215"), Range("d216")) du début.[/QUOTE]
en fait je ne sais pas comment utiliser la fonction union et j'ai vu çà sur ce forum

**Menhir** · 17/08/2017, 13h41

Envoyé par bigs3232

en fait je ne sais pas comment utiliser la fonction union et j'ai vu çà sur ce forum

Union n'est pas une fonction mais une méthode de l'objet Application.
https://msdn.microsoft.com/fr-fr/lib.../ff834621.aspx

Perso, c'est l'un des trucs que j'évite d'utiliser autant que possible parce qu'il est compliqué d'utiliser des objets composés de sélections non contigües.
Dans la plupart des cas, il est plus simple de faire un traitement sur les cellule quand on les trouve plutôt que de vouloir les unir pour faire globalement un traitement à posteriori.
Surtout dans un code comme le tien dans lequel tu redécomposes ton objet uni par une seconde boucle.

Dans ton cas, le plus simple serait de placer (éventuellement en VBA) un filtre sur ta sélection qui ne fasse apparaitre que les cellules vertes et, ensuite, de sélectionner les cellules visibles par l'intermédiaire d'un SpecialCells(xlCellTypeVisible).
https://msdn.microsoft.com/fr-fr/lib.../ff196157.aspx
Ca éviterait de faire une boucle.