[RESOLU] Erreur d'objet requis

[Enerjp]

Bonjour tout le monde,

Alors voila, j'ai un bete Userform qui lis certaine cellules à la ligne active lors d'un doubleclique sur feuille cependant ça ne marche pas car " Object Requis". j'ai déjà fais ça plusieurs fois mais là ça ne marche pas... J'ai essayé de fixer d'autres variables (object, variant , string), de changer .range("a" & l) pas .Cells(l,a) mais là je bloque...
Voici le code avec les différents essais (en commentaire):

Private Sub UserForm_Initialize()

'Dim Cellfacade, Cellvitrage, Celltoit, Cellreno As Object

    l = ActiveCells.Row
    
'Set Cellfacade = Sheets("Résultat").Cells(l, q)
'Set Cellvitrage = Sheets("Résultat").Range("r" & l).Value
'Set Celltoit = Sheets("Résultat").Range("s" & l).Value
'Set Cellreno = Sheets("Résultat").Range("t" & l).Value
    
    With Amelioration
        If Sheets("Résultat").Range("q" & l) = "Mauvais" Then
            .OptionFacademauvais = True
        ElseIf Sheets("Résultat").Range("q" & l) = "Moyen" Then
            .OptionFacademoyen = True
        ElseIf Sheets("Résultat").Range("q" & l) = "Bon" Then
            .OptionFacadebon = True
        ElseIf Sheets("Résultat").Range("q" & l) = "isolé" Then
            .OptionFacadeisole = True
        End If
        
    End With
    
End Sub

avec Amelioration qui est le Userform, les .Option qui sont des optionButton et les valeurs des cellules qui sont du text.
Merci d'avance

 

[Enerjp]

Re : [RESOLU] Erreur d'objet requis

Erreur trouvée, Il n'y a pas de "s" après ActiveCell.row ....
Paredon pour le dérangement. Et don maintenant àa marche en fixant les variables, avec cells ou range.