Pb avec RANGE [Résolu]

[fmris]

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 ???????

[Fvandermeulen]

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+

[fmris]

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 ??,

[Fvandermeulen]

Envoyé par fmris

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

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+