Merci pour cette réponse rapide Raja, le problème c'est justement que je n'ai pas de variable range à laquelle je puisse appliquer le ".address"
Function DureeProd(jour As Date)
Dim caseinit As Range
caseinit = jour.adresse
MsgBox (caseinit)
End Function
Ceci ne marche pas car ma variable JOUR est de type Date et non Range. (j'ai le message d'erreur "qualificateur incorrect" ce qui est logique car ce n'est pas un type range)
j'ai également essayé avec cette formulation mais ça ne marche pas non plus car la fonction n'accepte pas une case comme variable:
Function DureeProd(casejour As Range)
Dim caseinit As String
caseinit = casejour.adresse
MsgBox (caseinit)
End Function
Ces deux bout de code sont juste des tests pour verifier que je suis capable de récupérer l'adresse. ce n'est pas la finalité de ma fonction, juste une étape.