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):
avec Amelioration qui est le Userform, les .Option qui sont des optionButton et les valeurs des cellules qui sont du text.
Merci d'avance
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
Merci d'avance
Dernière édition: