Erreur Range([Liste]).Select quand liste trop longue

Bonjour à tous,

Dans une macro je renseigne une "liste" de la maniere suivante :

Code:

---

1 2 3 4 5 6 7 8 9

B = Range("D1") / 4 listeB = "H3"     i = 3 While i < (6 * B) - 3 i = i + 6 listeB = listeB & ",H" & i Wend

---

Ainsi ma "liste" peut-etre par exemple : "H3,H5,H8"

Ensuite, je fais :

Code:

---

Range(listeB).Select

---

La méthode marche trés bien tant que la "liste" n'est pas trop grande, à partir d'une certaine longueur que je n'ai pas chiffré, la méthode renvoie une erreur.

Est -ce ca peut venir de la taille de définition de listeB ? est-ce qu'il existe l'équivalent de long, double etc pour les chaines de caractère ?

salut,

peut-on savoir ce que tu fais après ton Select stp ?

je serais plutôt parti sur un Range() global avec un code en aval du type

Code:

---

For Each Cell in Range()

---

En faite, c'est pour etendre un formule sur les cellules qui ne l'ont pas :

Code:

---

1 2 3 4 5

Range("H3").Select Range("H3:AT3").Select Selection.copy Range(listeB).Select ActiveSheet.Paste

---

pas la peine de passer par les cellules une à une, une application sur l'ensemble de la colonne suffira ;)

utilise le macro recorder pour le code si nécessaire :ccool:

Oui, j'avoue il y a moyen de faire plus simple. Merci pour le tuyau.

Sinon par curiosité une idée pour l'erreur ? Nombre limite de cellule une par une selectionnable ?

je pense que tu auras pas mal de réponses avec le lien ci-dessous
http://office.microsoft.com/fr-fr/ex...010073849.aspx

je crois lire 2048 plages maxi