Bonjour,

J'ai quelques souci à retranscrire cette partie de code VBA en vb.net
Pour vous ressituer le sujet, j'ai pas mal de numéro tel que :

07-01-005
07-01-006
07-01-012
....

J'utilisais ce code pour chercher la valeur maxi dans ma colonne (ici 07-01-012)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
ligmax = Cells(65000, 1).End(xlUp).Row 'Cherche la dernière ligne non vide à partir du bas de la colonne
monmax = ""
For i = 1 To ligmax 'A partir de la ligne 1
If Cells(i, 1) > monmax Then
   monmax = Cells(i, 1)
   imax = i
End If
Next i
et je récupérais la valeur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
Maxi = Cells(imax, 1).Value
Label_Valeur_Maxi.Caption = "Valeur : " & Maxi 'Indique la valeur maxi
Je n'arrive pas à mettre ce bout de code en VB.net
J'ai ajouter les références Excel au projet déclarer mes objets

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
        Dim MonMax As Integer = ""
        Dim imax As Integer
        For i = 1 To 300
            If Excel_App.Cells(i, 1) > MonMax Then
                MonMax = Excel_App.Cells(i, 1)
                imax = i
            End If
        Next i
        Excel_App.Cells(imax, 1).select()
 
        Dim Maxi As Integer
        Maxi = Excel_App.Cells(imax, 1).value
        Label13.Text = Maxi
D'où peut provenir le problème ?
Pourriez-vous m'aider s'il vous plait.

Michaël