Discussion :

[cha69500]

Bonjour,

Voici mon problème :

Je souhaite sélectionner une plage de cellules pour ensuite la fusionner. Cette plage varie en fonction de paramètre que j'ai appelé L et Z qui représente des lignes.
Voici mon code de sélection pour les cellules de la colonne P, de la ligne L à la ligne Z, par exemple:

Code :

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

1
2
3
4
Dim L as integer
Dim Z as integer
 
Sheets("Feuil1").Range("PL : PZ").Select

Le problème est que cela sélectionne les colonnes PL à PZ et non les cellules désirées.

J'ai essayé d'autre écriture qui ne fonctionnent pas non plus, comme :

Code :

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

Sheets("Feuil1").Range("P"&L:"P"&Z").Select

Ou

Code :

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

Sheets("Feuil1").Range(Cells(P,L),Cells(P,Z)).Select

Est-ce tout simplement impossible de sélectionner des cellules avec variables?

Merci de vos lumières sur le sujet.

[Marc-L]

Bonjour.

T'as presque bon dans ta dernière proposition …
Regarde l'aide VBA concernant la propriété Cells, tu comprendras ton erreur !

Ensuite la méthode Select ne fonctionne que dans la feuille active,
donc pas besoin de référencer la feuille dans une instruction Select …

[cha69500]

Merci de la rapidité de la réponse!

L'aide Excel donne comme exemple:

Code :

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

Range(Cells(1, 1), Cells(5, 3)).select

Donc effectivement ma dernière solution est la plus proche mais je ne vois pas mon erreur

Un indice ?

Merci

[Marc-L]

Oui, par exemple Cells(5,3) représente la cellule C5 et non pas E3 (comme dans ton code) !

Et si P n'est pas une variable, il doit être entre guillemets …

[cha69500]

Super!
Ca marche enfin!

Merci bien Marc.

[Marc-L]

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

Corrections :

Code :

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

Range("P" & L & ":" & "P" & Z).Select

Code :

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

Range(Cells(L, "P"), Cells(Z, "P")).Select

Code :

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

Range(Cells(L, 16), Cells(Z, 16)).Select