[VBA-E]selectionner plusieurs cellules sur Excel

**delamarque** · 09/02/2006, 11h10

bonjour,

je voudrais selectionner plusieurs cellules à l'aide d'une macro, mais ces cellules ne sont pas côte à côte.

J'ai fait :

Code :

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

1
2
3
k = 10
 
Range(Cells(k, 6), Cells(k, 8), Cells(k, 10)).select

Le pb c'est qu'il m'affiche que le nombre d'arguments est incorrect

Merci de votre aide

**delamarque** · 09/02/2006, 11h12

oups je sais pas ce qui c'est passé j'ai donc fait :

Code :

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

Range(Cells(k, 6), Cells(k, 8), Cells(k, 10))

**ouskel'n'or** · 09/02/2006, 11h17

Comme Range("D5,F8,G6,H5,I4,I9,G12").Select fonctionne, on peut penser que tu as office 97 et donc

Code :

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

1
2
3
k = 5
Plage = Cells(k, 6).Address + "," + Cells(k, 7).Address + "," + Cells(k, 10).Address
Range(Plage).Select

Je pense qu'il y a mieux mais je ne connais pas ou j'ai oublié

A+

**delamarque** · 09/02/2006, 11h24

j'ai Excel 2002, merci je vais essayer

A+

**delamarque** · 09/02/2006, 11h30

il m'affiche ce message d'erreur :

la methode range de l'objet global a échoué

**ouskel'n'or** · 09/02/2006, 11h34

As-tu une feuille protégée ? (question bête mais sait-on jamais) De mon côté, j'ai testé (!) et ça fonctionne.
Tu donnes bien une valeur à k ?...

A+

**Megaxel** · 09/02/2006, 11h35

Si c'est pas du beau double post, ça...
Y'aurait pas un modérateur dans le coin pour en virer un?

**delamarque** · 09/02/2006, 11h38

en fait il bug sur la ligne :

Range(plage).Select

**ouskel'n'or** · 09/02/2006, 11h38

Sur l'autre message, Megaxel a écrit

Salut!
Essaie plutôt ça:

Code :

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

Union(Cells(1, 1), Cells(1, 3), Cells(1, 5)).Select

Je n'arrive à utiliser Range( , , ) qu'avec la syntaxe "A1", "D5"...
Sinon, je pense qu'avec 70 messages à ton compteur, tu pourrais penser à mettre les balises de code... Hmmmmm...

**ouskel'n'or** · 09/02/2006, 11h40

en fait il bug sur la ligne :

Range(plage).Select

Crée un nouveau classeur, insère un module et essaie le code tel que je te l'ai donné...
Ma réputation est en jeu, merde, quoi !

A+

**delamarque** · 09/02/2006, 11h40

Merci les gars je vais essayer avec union

**delamarque** · 09/02/2006, 11h43

la méthode de megaxel marche !

la tienne ouskel'n'or, je vais encore essayer mais pour l'instant ca beug

**Megaxel** · 09/02/2006, 11h53

Comme quoi, les double-post, c'est nul !!
On te donne une solution, et tu ne la vois même pas.
J'ai peu d'espoir que ça te serve de leçon, mais bon...

**ouskel'n'or** · 09/02/2006, 11h59

Ok, je m'en souviendrai !

Moi, elle ne fonctionne pas, pour que ça marche, je suis obligé de faire ça

Code :

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

1
2
Set LaPlage = Application.Union(Cells(k, 6), Cells(k, 9), Cells(k, 15))
Range(LaPlage.Address).Select

... mais c'est avec VBA97 !

A+

PS - Mais si, Megaxel, la preuve...

**delamarque** · 09/02/2006, 14h57

je vais essayé avec cette méthode merci

[VBA-E]selectionner plusieurs cellules sur Excel

Macros et VBA Excel

Discussions similaires

Partager

Partager