Discussion :

[fmris]

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

Code :

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

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 :

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

Range("A6")

s'écrit:

Code :

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

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 :

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

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 :

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

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]

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

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

Code :

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

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 :

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

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+