Sélectionner une plage variable de cellules

Question

Bonjour le Forum,

j'ai besoin de votre aide pour un code que je n'arrive pas à "mettre au point".

Celui-ci doit me permettre de sélectionner une plage de cellules contigües.

J'utilise les codes suivants pour sélectionner :

• 1 cellule (code "bricolé) :        

        ActiveSheet.Unprotect

        Range("AE4").Select

        k = ActiveCell.Value

        l = 4

        Plage = Cells(k, l).Address + "," + Cells(k, l).Address + "," + Cells(k, l).Address

        Range(Plage).Select

• 1 ligne :

       s = ActiveCell.Value

       Rows(s).Select

• 1 colonne :

      s = ActiveCell.Value

     Columns(s).Select

Quel code me permettra de sélectionner, par exemple, la plage de cellules sur la ligne K dans les colonnes "L" à "L + 6"

soit : Plage ou Range("L,K**:**L+ 6,K") ?

J'espère que vous voudrez bien excuser la présentation !

Avec mes remerciements pour votre aide et votre indulgence.

Cordialement.

Nonno 94.

Answer 1

Bonjour,

avec la ligne :

Plage = Cells(k, l).Address + "," + Cells(k, l).Address + "," + Cells(k, l).Address

tu répètes 3 fois la même adresse; utilise plutôt :

Cells(k, l).Select

Pour ta question, utilise :

Cells(k, l).Resize(, 7).Select

ou

Range(Cells(k, l), Cells(k, l + 6)).Select

Daniel

Answer 2

Bonjour Daniel,

chaleureux remerciements pour cette réponse pertinente.

Puis-je me permettre de te rappeler que tu m'as laissé "en plan" avec la précédente (Noms de feuilles non créées dans une formule) ?

Celle-ci est-elle insoluble ?

Dans ma dernière réponse, j'avais inclus un lien vers un petit fichier dont je pensais qu'il serait plus explicite.

	http://www.cijoint.fr/cjlink.php?file=cj201103/cija3oriU7.xls	<br>	---

Dans l'attente et avec mes remerciements renouvelés, je te souhaite un bon après-midi.

Cordialement.

Nonno 94.