Problème nb arguments

[antiphot]

Bonjour à toutes et à tous

Dans un module standard, j'ai déclaré 10 variables publiques as range

ex: public essai1 as range, public essai2 as range ......, public essai10 as range

ensuite la procédure suivante:

sub mesvariables()
set essai1 = sheets("feuil1").range("A1")
set essai2 = sheets("feuil1").range("B1")
........
set essai10 = sheets("feuil1").range("J1")
end sub

et dans un autre module

sub test()
call mesvariables
dim plg as range
set plg = sheets("feuil1").range(essai1, essai2, ....., essai10)
plg.value="OK"
end sub

Et là j'ai apparement un problème lié au nb d'arguments. Par contre si ma variable plg contient seulement 2 arguments, ex: essai1 et essai2 cela fonctionne.

Comment puis-je contourner cette difficulté ?
Merci par avance pour vos conseils

Philippe

 

[job75]

Re : Problème nb arguments

Bonjour,

Range n'accepte pas plus de 2 arguments puisqu'il établit une seule plage définie par 2 cellules.

Ecrire donc ici :

Set plg = Application.Union(essai1, essai2, ....., essai10)

A+

 

[antiphot]

Re : Problème nb arguments

Bonjour Job75

Merci pour l'info

Philippe