Bonjour,
Merci pour la réponse rapide.
La formule fonctionne lorsqu'elle est intégrée à ma cellule.
Lorsque je la transcris en code, je n'y arrive pas.
"Erreur définie par l'application ou par l'objet".
J'essaie de reprendre la formule.
Ci-dessous mon code.
Private Sub EVENEMENT()
Dim NoDerLigne As Integer 'OK
Dim ChoixFeuille As Worksheet 'Choix de la feuille OK
Dim NoLIGNE As Integer ' OK
Dim DERL As Integer
DERL = Worksheets("STRE").Range("C" & Rows.Count).End(xlUp).Row
Consolider_feuilles
Set ChoixFeuille = Worksheets("Résultat") ' OK
'dernière ligne de l'onglet base
NoDerLigne = ChoixFeuille.Range("G" & Rows.Count).End(xlUp).Row 'OK
For NoLIGNE = 1 To NoDerLigne
If ChoixFeuille.Range("Q" & NoLIGNE) <> ComboBox1.Value Then
ChoixFeuille.Rows(NoLIGNE).Clear
End If
Next NoLIGNE
Controls("TextBox199").Value = -(Application.WorksheetFunction.Sum(Range("C2:C" & NoDerLigne)))
Controls("TextBox199") = Format(Controls("TextBox199"), "### ### ##0")
For NoLIGNE = 1 To NoDerLigne
ChoixFeuille.Range("W" & NoLIGNE) = "=VLookup(ChoixFeuille.Range(""P"" & NoLIGNE), Worksheets(""STRE"").Range(""A1:A""&DERL), 6, False)"
Next NoLIGNE
Set ChoixFeuille = Nothing
End Sub
Le message d'erreur vient de:
ChoixFeuille.Range("W" & NoLIGNE) = "=VLookup(ChoixFeuille.Range(""P"" & NoLIGNE), Worksheets(""STRE"").Range(""A1:A""&DERL), 6, False)"
Je pensai pouvoir écrire:
ChoixFeuille.Range("W" & NoLIGNE) = Application.WorksheetFunction.VLookup(ChoixFeuille.Range("P" & NoLIGNE), Worksheets("STRE").Range("A1:A1000"), 6, False)
Ca ne marche pas non plus.
Je dois mal écrire la formule.
Une idée ?
Merci