Discussion :

[Caius Suelburnus]

* Bonjour *

Qui a-t-il de faux dans ce code?

Code :

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

1
2
3
4
5
6
7
8
Function First(ByVal cel As Range) As Range
    Dim c As Range
    Set c = cel
    Do While c Is Nothing
        Set c = ActiveSheet.Cells(c.Row + 1, c.Column)
    Loop
    First = c
End Function

J'ai une erreur du type "objet indefini" sur l'instruction First = c

[Jean-Philippe André]

salut,
quand on manipule un objet range, on utilise la syntaxe set

Code :

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

Set First = c

[Caius Suelburnus]

Oui je sais mais je ne pensais pas qu'il fallait appliquer cela aussi pour signifier le retour des fonctions, aucun des exemples que j'ai vu ne le faisant.
Merci !