Erreur appel de fonction

[sauce31]

Bonjour, j'ai créé une fonction qui me permet de créer un graphique en barre.

La fonction prend pour argument :

Private Sub Barre1(select1 As Object, legende1 As String, select2 As Object, select3 As Object, legende2 As String)

Et je l'appel comme suit :

Call Barre1((Selection1), "Moyenne Nationale", (Selection2), (Selection3), "Moyenne Magasin")

Sachant que Selection, selection2 et selection sont obtenue de la meme manièer :

 Set Selection1 = Range(Cells(i, 6), Cells(i + h, 6))

J'ai une erreur de type : Objet Requis. Pourquoi?

Merci d'avance

 

[pierrejean]

Re : Erreur appel de fonction

bonjour sauce31

Pourquoi select1 as Object et pas select1 as Range ?
Et pourquoi les () autour de selection1 dans Call Barre1 ?
Peux-tu tester en modifiant

Private Sub Barre1(select1 As [COLOR=blue]Range[/COLOR], legende1 As String, select2 As [COLOR=blue]Range[/COLOR], select3 As [COLOR=blue]Range[/COLOR], legende2 As String)

Call Barre1(Selection1, "Moyenne Nationale",Selection2,Selection3, "Moyenne Magasin")

 

[sauce31]

Re : Erreur appel de fonction

Merci.

Ca marche. J'avais tester avec Range à la place de Object mais j'avais pas enlevé les parenthèses donc j'avais une erreur.