Discussion :

[Boris_Gem]

Bonjour à tous,

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

Code :

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

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 :

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

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 ?

[Jean-Philippe André]

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 :

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

For Each Cell in Range()

[Boris_Gem]

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

Code :

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

1
2
3
4
5
Range("H3").Select
    Range("H3:AT3").Select
    Selection.copy
    Range(listeB).Select
    ActiveSheet.Paste

[Jean-Philippe André]

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

[Boris_Gem]

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 ?

[Jean-Philippe André]

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