Salut
j'ai un code en VBA et je veux le convertir en VB.NET
le code :
aidez-moi
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Dim lastrow As Integer Dim curRow As Integer Dim newrow As Integer lastrow = exWS2.Cells.Rows.End(XlDirection.xlDown).Row exWS2.Cells(8, 6).Value = "Max" exWS2.Cells(8, 7).Value = "=Max(B2:B" & lastrow & ")" newrow = 8 For curRow = 2 To lastrow If exWS2.Cells(curRow, 2) = exWS2.Cells(8, 7).Value Then newrow = newrow + 1 exWS2.Cells(newrow, 6).Value = exWS2.Cells(curRow, 1).Value End If Next curRow
Partager