Discussion :

[laurentabj]

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 :

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

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 :

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

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

[tirex28]

Bonjour,

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

Code :

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

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/

[laurentabj]

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