Pb avec RANGE

fmris · 04/02/2010, 11h52

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

Code :

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 · 04/02/2010, 12h15

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 :

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 · 04/02/2010, 12h23

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

Code :

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 · 04/02/2010, 12h33

Citation:

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 :

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 :

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+

04/02/2010, 11h52	#1
fmris Membre actif Date d'inscription: septembre 2006 Messages: 173	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 : 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 ???????

04/02/2010, 12h15	#2
Fvandermeulen Membre Expert Nom : Frédéric Vandermeulen Date d'inscription: juillet 2007 Localisation: Bruxelles Âge: 34 Messages: 1 414	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 : 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+ __________________ N'oubliez pas le si votre problème est solutionné.

04/02/2010, 12h23	#3
fmris Membre actif Date d'inscription: septembre 2006 Messages: 173	je n'ai pas précisé que a est une variable je sais que ca fonctionne avec deux arguments Code : 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 ??,

		Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Pb avec RANGE

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email