RESOLU-Syntaxe pour un range sur plusieurs plages séparées

[NeMoS]

Bonjour à tous,

Je crains que mon titre ne soit pas très explicite...

Je vous expose mon problème : je suis en train de mettre en place une macro qui génère automatiquement des graphiques.

Les valeurs sources des graphiques sont dans un tableau existant qui se remplit également par macro.

Suivant les sélections qui sont faites par l'utilisateur, le code va chercher les plages de valeurs correctes dans le tableau source ce qui signifie que les données qui servent à générer le graphique sont toutes variables.

Si j'écris le code "en dur" cela donne:

dim table as range
table = range ("B8:B16","D8:H16")

Maintenant en considérant tous les paramètres variables j'avais écrit :

table = range(.cells(i,2),.cells(j,2) & .cells(i,cd), .cells(j,cf))

Et en fait, impossible de trouver la bonne syntaxe...j'ai essayé avec et sans point devant cells,avec plus ou moins de parenthèses, j'ai un peu fouillé sur les forums mais rien de concluant.

Alors je m'en remets à votre expertise !

Merci beaucoup pour votre aide.

NeMoS

 

[Pierrot93]

Re : Syntaxe pour un range sur plusieurs plages séparées

Bonjour,

si objet "range", peut être déjà faire précéder d'un "set" l'initialisation :

Dim table As Range
Set table = Range("B8:B16", "D8:H16")

bon après midi
@+

 

[Pierrot93]

Re : Syntaxe pour un range sur plusieurs plages séparées

Re,

ceci devrait fonctionner, à condition que les différentes variables soient bien initialisées....

Dim table As Range
Set table = Union(Range(Cells(i, 2), Cells(j, 2)), Range(Cells(i, cd), Cells(j, cf)))

 

[NeMoS]

Re : Syntaxe pour un range sur plusieurs plages séparées

Bonjour Pierrot93 et merci pour la réponse rapide,

J'ai donc commencé par rajouter "set" devant table...

VBA n'aime toujours pas ma syntaxe mais je le comprends...je pense que que le "&" n'est pas ce qu'il faut mettre mais je n'arrive pas à trouver comment faire prendre en compte deux (ou plus) plages différentes.

Actuellement, le code bloque au niveau de la seconde virgule (entre cells(i,cd) et cells(j,cf)

set table = range(.cells(i,2),.cells(j,2) & .cells(i,cd), .cells(j,cf))

Merci encore !

NeMoS

 

[VDAVID]

Re : Syntaxe pour un range sur plusieurs plages séparées

Bonjour NeMos,

Peut-être comme ceci:

Set table = Range("B" & i & ":B" & j, Replace(Cells(i, cd).Address, "$", "") & ":" & Replace(Cells(j, cf).Address, "$", ""))

Mais il y avoir plus simple ^^

EDIT: Bonjour Pierrot93
Bonne journée !

 

[Pierrot93]

Re : Syntaxe pour un range sur plusieurs plages séparées

Re,

regarde le post #3...

 

[NeMoS]

Re : Syntaxe pour un range sur plusieurs plages séparées

Re-bonjour Pierrot93,

Merci beaucoup !!

La syntaxe est parfaite, VBA est très content...

Encore merci pour votre aide

NeMoS

 

[NeMoS]

Re : Syntaxe pour un range sur plusieurs plages séparées

@ VDAVID,

Merci pour la réponse, mais je crois en effet que la syntaxe de Pierrot93 est plus simple

Mais merci quand même.

NeMoS