Passage d'une Range en Parametre d'une fonction

**sticks_678** · 05/01/2017, 11h16

Bonjour,

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

Code :

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

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 :

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

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 :

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

Entourage_Cellule(Range("B4:C7"))

**unparia** · 05/01/2017, 11h21

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

Code :

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

Ranges

n'est pas une plage (Range), alors que tu as défini Rng comme en étant une

**sticks_678** · 05/01/2017, 11h25

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.

**vinc_bilb** · 05/01/2017, 11h53

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 :

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

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

**sticks_678** · 05/01/2017, 12h23

Je te remercie pour tes précisions, elles m'ont apporté de clarté dans mon code.
Cependant mon problème est toujours existant ...

**vinc_bilb** · 05/01/2017, 13h13

ç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?

**sticks_678** · 05/01/2017, 13h21

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 ?

**vinc_bilb** · 05/01/2017, 13h53

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 :

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

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