bonjour tout le monde,
je coince pour adapter à mon fichier j'ai une erreur 424 avec objet requis à la ligne With.
j'ai modifier le code comme suit:
[code]Private Sub Retrofit_Click()
' pour valider le choix de la valeur par l'utilisateur, on va ailleurs
Feuil1.Range("E7").Activate
End Sub
Private Sub Retrofit_Change()
Sheets("Enquête").Range("O2").Value = Retrofit.Value
If Feuil1.Range("O2") <> "" Then
With [T_RETROFIT].ListObject
Feuil1.Range("L6").Value = WorksheetFunction.Index(.ListColumns(2).Range, WorksheetFunction.Match(Liste.Value, .ListColumns(1).Range, 20), 1)
End With
Else
Feuil1.Range("L6").ClearContents
End If
End Sub
Public Sub Retrofit_Initialize()
Sheets("Enquête").Retrofit.ListFillRange = "Retrofit!" & [T_RETROFIT].ListObject.ListColumns(1).DataBodyRange.Address
End Sub[code]
je loupe quelque chose mais quoi?
merci