Bonjour à tous,
Après de nombreuses recherches je me heurte à un dernier problème.
J'ai réussi à traduire (avec l'aide de quelqu'un sur un autre forum) ma formule en code VBA mais une partie ne fonctionne pas.
Ma formule initiale est:
=INDEX(List!$A$2:$Q$1600,SUMPRODUCT((List!$A$2:$A$1600=$A15)*(List!$E$2:$E$1600=$F14)*(List!$F$2:$F$1600=$G14)*(List!$L$2:$L$1600=$B15),ROW(List!$H$2:$H$1600)-1),8)
et mon code est:
Je me retrouve avec une erreur 2015 dans VBA et un #VALUE! dans ma cellule.
La personne qui m'a aidé, a trouvé un message d'erreur avec la fonction Evaluate(row), evaluate ne semble pas fonctionner avec row.
Est ce que quelqu'un a une idée ou en sait plus?
Merci d'avance
Ps: cette action correspond au bouton INSERT dans mon fichier TEST
Merci!
Après de nombreuses recherches je me heurte à un dernier problème.
J'ai réussi à traduire (avec l'aide de quelqu'un sur un autre forum) ma formule en code VBA mais une partie ne fonctionne pas.
Ma formule initiale est:
=INDEX(List!$A$2:$Q$1600,SUMPRODUCT((List!$A$2:$A$1600=$A15)*(List!$E$2:$E$1600=$F14)*(List!$F$2:$F$1600=$G14)*(List!$L$2:$L$1600=$B15),ROW(List!$H$2:$H$1600)-1),8)
et mon code est:
Code:
Sub copy()
Dim nbrow As Long
nbrow = Sheet1.Range("A65536").End(xlUp).row
For j = 2 To nbrow
Dim R0 As Range
Set R0 = Sheet1.Range("A2:Q2000")
Dim R1 As Range
Set R1 = Sheet1.Range("A2:A1600")
Dim R5 As Range
Set R5 = Sheet1.Range("E2:E1600")
Dim R6 As Range
Set R6 = Sheet1.Range("F2:F1600")
Dim R8 As Range
Set R8 = Sheet1.Range("H2:H1600")
Dim R12 As Range
Set R12 = Sheet1.Range("L2:L1600")
'Copy 2nd layer Name
If Sheet4.Cells(j, 5) = "" And Sheet4.Cells(j, 2) = "2" Then
Sheet4.Cells(j, 5).Activate
ActiveCell.Value = Evaluate("Index(" & R0.Address & "), (Sumproduct((" & R1.Address & " = ActiveCell.Offset(0, -4).Value) * (" & R5.Address & " = ActiveCell.Offset(-1, 1).Value) * (" & R6.Address & " = ActiveCell.Offset(-1, 2).Value) * (" & R12.Address & " = ActiveCell.Offset(0, -3).Value)),(row(" & R8.Address(-1, 0) & "))), (" & R8.Address & ")) ")
End If
Next j
End Sub
Je me retrouve avec une erreur 2015 dans VBA et un #VALUE! dans ma cellule.
La personne qui m'a aidé, a trouvé un message d'erreur avec la fonction Evaluate(row), evaluate ne semble pas fonctionner avec row.
Est ce que quelqu'un a une idée ou en sait plus?
Merci d'avance
Ps: cette action correspond au bouton INSERT dans mon fichier TEST
Merci!