[RESOLU] Erreur d'objet requis

Enerjp · 2 Octobre 2013

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):

Code:

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 · 2 Octobre 2013

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.

[RESOLU] Erreur d'objet requis

Enerjp

XLDnaute Junior

Enerjp

XLDnaute Junior

Discussions similaires