Passage d'une Range en Parametre d'une fonction

Version imprimable

Bonjour,

J'aimerais passer en argument une "Range" de cellules pour une fonction en VB. Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
Dim Rng As Range
 
' Appel de la fonction 
Set Rng = Range("B4:C7")
Entourage_Cellule (Rng)
 
'Fonction Entourage_Cellule 
Function Entourage_Cellule(Rng As Range)
Rng.Select
With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
End Function

Cette fonction fonctionne lorsque je passe une seule cellule en argument :

Code:

Entourage_Cellule(Cells(ligne, colonne))

Mais lorsque je fais l'appel comme au-dessus j'ai une erreur de type : " Erreur d'exécution '424': Objet Requis".
Pouvez-vous me dire ce qu'il cloche ? J'ai déjà surfer sur le net mais ça ne m'a pas résolu le problème.

PS: J'ai aussi réalisé ce test :

Code:

Entourage_Cellule(Range("B4:C7"))

05/01/2017, 11h21
unparia

Bonjour
Déjà (et je n'ai pas -comme d'hab- voulu dès lors aller plus loin)

Code:

Ranges

n'est pas une plage (Range), alors que tu as défini Rng comme en étant une
05/01/2017, 11h25
sticks_678

Passage d'une Range en Parametre d'une fonction

J'avais oublier de retirer le "s", j'ai voulu tester ce Type mais après avoir regarder sa doc, cela ne corresponds effectivement pas à la déclaration que je veux faire.

Bonjour,

Sur le fond:
- une function retourne une valeur, dans votre cas, il faudrait passer par une sub qui elle ne retourne pas de valeurs (mais accepte aussi des passages de paramètres)

Sur la forme:
- évitez le select, c'est très lent :)
- utilisez plutôt un style

Proposition de correction:
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Entourage_Cellule(Rng As Range) 'Rng.Select: non, c'est très lent With Rng.Borders .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With End Sub

05/01/2017, 12h23
sticks_678

Passage d'une Range en Parametre d'une fonction

Je te remercie pour tes précisions, elles m'ont apporté de clarté dans mon code.
Cependant mon problème est toujours existant ...
05/01/2017, 13h13
vinc_bilb

ça ne devrait pas sauf erreur .... si vous avez bien passé la déclaration en sub et non pas en fuction.
Avez-vous testé le bout de code que je vous ai fourni?
05/01/2017, 13h21
sticks_678

Passage d'une Range en parametre d'une fonction

Autant pour moi, je viens de voir une erreur d'inattention. Je te remercie pour ton aide.
Si j'ai bien compris, on utilise une fonction uniquement si on souhaite retourner quelque chose sinon on utilise un sub ?
05/01/2017, 13h53
vinc_bilb
Citation:

on utilise une fonction uniquement si on souhaite retourner quelque chose sinon on utilise un sub ?

=> Tout à fait ..... mais on peut utiliser aussi une fonction sans assigner sa valeur de retour, dans ce cas, il faut lui enlever les ()

Ex: Function MsgBox
Code:

1 2 MsgRep = MsgBox("Une fonction est une sub sont la même chose", vbYesNo, "Test") If MsgRep = vbYes Then Msgbox "Il y a des progrès à faire ...."
1ere ligne: on appelle la fonction MsgBox et on récupère son retour dans MsgRep
2ème ligne; on appelle la fonction MsgBox SANS récupérer sa valeur de retour, donc sans parenthèses
06/01/2017, 10h43
sticks_678

Passage d'une Range en Parametre d'une fonction

Merci pour tes explications, elles m'ont été très utiles.
06/01/2017, 15h32
Menhir

Citation:

Envoyé par sticks_678

lorsque je fais l'appel comme au-dessus j'ai une erreur de type : " Erreur d'exécution '424': Objet Requis".

Quelle ligne est désignée par le débugger pour le bug ?