Message Erreur 91

Bonjour,

Pour les amateurs de mystères (et aussi qui veulent bien m'aider...), voici un morceau de code qui ne marche pas (erreur 91, la variable c ne se remplit pas)

Code:

---

1 2 3 4 5 6

Function Translate_usrForm(usrFormToTranslate As UserForm, UsrFormName As String) As Boolean   Dim c As Range   c = ThisWorkbook.Sheets(csWSFORMS).Range("F:F").Find(UsrFormName, LookIn:=xlValues)

---

Voici le même code où je change juste le type (range --> string) de ma variable (et bien sûr l'expression qui la remplit). Et la ma variable c se remplit correctement.
Mon problème est que j'ai besoin de récupérer un range (et non pas un string)

Code:

---

1 2 3 4 5 6

Function Translate_usrForm(usrFormToTranslate As UserForm, UsrFormName As String) As Boolean   Dim c As String   c = ThisWorkbook.Sheets(csWSFORMS).Range("F:F").Find(UsrFormName, LookIn:=xlValues).Address

---

Bonjour,

Pour affecter un objet (Range ou autre) à une variable il faut utiliser le mot clé Set.

Code:

---

1 2 3 4 5 6

Function Translate_usrForm(usrFormToTranslate As UserForm, UsrFormName As String) As Boolean   Dim c As Range   Set c = ThisWorkbook.Sheets(csWSFORMS).Range("F:F").Find(UsrFormName, LookIn:=xlValues

---

Cordialement,

Tirex28/

Ah c'était donc ça.
Merci beaucoup.