Discussion :

[delamarque]

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]

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]

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]

j'ai Excel 2002, merci je vais essayer

A+

[delamarque]

il m'affiche ce message d'erreur :

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

[ouskel'n'or]

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]

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

[delamarque]

en fait il bug sur la ligne :

Range(plage).Select

[ouskel'n'or]

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]

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]

Merci les gars je vais essayer avec union

[delamarque]

la méthode de megaxel marche !

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

[Megaxel]

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]

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]

je vais essayé avec cette méthode merci