Discussion :

[sticks_678]

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]

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]

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]

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]

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]

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

[Menhir]

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 ?