A
albert
Guest
Bonsoir à tous, forumiens, forumiennes,
Je cherche à traduire en vba une formule excel qui fonctionne à merveille :
=SI(L4="Achat";EQUIV("Clôture A";AA5:AA3000;0);"")
j’obtiens en U30 : 1, U33 : 5, U39 : 3, U44 : 2, U47 : 1
le code vba suivant donne en U30, 33, 39, 44, 47 le même chiffre : 7
Sub U()
i = Cells(1, 8)
For r = 4 To i
cherche = WorksheetFunction.Match("Clôture A", Range("AA3:AA3000"), 0)
If Cells(r, 12) = "achat" Then
Cells(r, 21) = cherche
End If
'SI(L4="Achat";EQUIV("Clôture A";AA5:AA3000;0);"")
Next
End Sub
merci d'avance à qui saura me mettre sur la voie
albert
Je cherche à traduire en vba une formule excel qui fonctionne à merveille :
=SI(L4="Achat";EQUIV("Clôture A";AA5:AA3000;0);"")
j’obtiens en U30 : 1, U33 : 5, U39 : 3, U44 : 2, U47 : 1
le code vba suivant donne en U30, 33, 39, 44, 47 le même chiffre : 7
Sub U()
i = Cells(1, 8)
For r = 4 To i
cherche = WorksheetFunction.Match("Clôture A", Range("AA3:AA3000"), 0)
If Cells(r, 12) = "achat" Then
Cells(r, 21) = cherche
End If
'SI(L4="Achat";EQUIV("Clôture A";AA5:AA3000;0);"")
Next
End Sub
merci d'avance à qui saura me mettre sur la voie
albert