Discussion :

[dariaa]

Salut
j'ai un code en VBA et je veux le convertir en VB.NET
le code :

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

aidez-moi