Objet Range en retour d'une fonction

[Blister58]

Tout d'abord une remarque sur le nouveau look du ditelutôt sympa.
Problême la déclaration de l'objet Range a renvoyer à l'appel d'une fonction , j'y arrive pas.
Public Function(Byval jour as Date,Byval type as String)as Range
Je ne parviens pas a retourner un objet si ce n'est valide et encore moins contenant quelque chose.
Problême de déclaration...
Si quelqu'un peut m'aider
merci d'avance

 

[Charly2]

Bonsoir Blister58

Oui, il est certain que quelqu'un peut t'aider, mais pour cela, il nous faudrait le code complet de ta macro...

Amicalement
Charly

 

[_Thierry]

Bonjour Charly, re Blister

Je ne fais que passer pour donner une approche à Blister, mais les Function Perso ne sont pas ma spécialité surtout pour retourner un Object Range :

Dans un classeur Vierge mettre la date du Jour quelque part et colorier l'intérieur de la cellule en rouge (ColorIndex 3)...

Sub TestMyFunction()
On Error GoTo Out
MsgBox MyRange(Date, 3).Address
Out:
End Sub

Public Function MyRange(ByVal TheJour As Date, ByVal TheType As String) As Range
Dim Cell As Range

For Each Cell In ActiveSheet.UsedRange
If Cell = TheJour And Cell.Interior.ColorIndex = Val(TheType) Then
Set MyRange = Cell
Exit For
End If
Next
End Function

Bon Aprèm
[ol]@+Thierry[/ol]