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