Pb avec RANGE

Bonjour
Je souhaiterais selectionne des cellules non adjentes
j'ai ecrit le code suivante mais l'argument range n'aime pas

Code:

---

1 2 3

Range(Cells(a, 6), Cells(a, 5), Cells(a, 9), Cells(a, 13), Cells(a, 25), Cells(a, 27), Cells(a, 29)).Select Cells(a, 5).Activate Selection.Copy

---

comment faire ???????

Salut,
Cells ne fonctionne pas avec les lettre mais avec les nombres,

Code:

---

Range("A6")

---

s'écrit:

Code:

---

Cells(6,1)

---

Pour faire une multisélection avec Range uniquement tu dois écrire du genre range("a" & 6) et ainsi de suite, il me semble donc plus facile d'écrire:

Code:

---

1 2 3 4 5

Dim MaPlage As Range   Set MaPlage = Application.Union(Cells(1, 6), Cells(1, 5), Cells(1, 9))   MaPlage.Copy

---

Je n'ai pas remis toutes les cellules concernées mais tu le fera facilement, tu constateras aussi que je n'ai pas fait de Select, en effet, ce n'est pas nécessaire, donc à éviter afin de ne pas ralentir le code.

A+

je n'ai pas précisé que a est une variable
je sais que ca fonctionne avec deux arguments

Code:

---

1 2 3 4 5

For a = 2 To 1000 If Cells(a, 6) = "Dépenses" Then Range(Cells(a, 6), Cells(a, 5), Cells(a, 9), Cells(a, 13), Cells(a, 25), Cells(a, 27), Cells(a, 29)).Select Cells(a, 5).Activate Selection.Copy

---

comment faire ??,

Citation:

---

Envoyé par fmris

je n'ai pas précisé que a est une variable

---

:evilred:


Suffit alors d'adapter ma réponse précédente...

Code:

---

1 2 3 4 5 6 7

Dim MaPlage As Range For a = 2 To 1000 If Cells(a, 6) = "Dépenses" Then Set MaPlage = Application.Union(Cells(a, 6), Cells(a, 5), Cells(a, 9), Cells(a, 13), Cells(a, 25), Cells(a, 27), Cells(a, 29)) MaPlage.Copy Cells(a, 5).Activate '...la suite de ton code

---

Ou sans passer par une variable qui récupère la Plage:

Code:

---

1 2 3 4 5

For a = 2 To 1000 If Cells(a, 6) = "Dépenses" Then Application.Union(Cells(a, 6), Cells(a, 5), Cells(a, 9), Cells(a, 13), Cells(a, 25), Cells(a, 27), Cells(a, 29)).Copy Cells(a, 5).Activate ...

---

A+