Discussion :

[Mickey92150]

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

[tomlev]

D'où peut provenir le problème ?

Quel problème ? Tu n'as pas dit ce qui se passait avec le code que tu as essayé... Est-ce qu'il y a une erreur de compilation ? une exception ? pas le résultat attendu ?

[Theze]

Bonsoir,

Est ce que ceci peut être utile ?
A adapter selon tes besoins :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
 
    Private Sub Excel()
 
        'ajouter la référence "Microsoft.Office.Interop.Excel" (menu Projet > Ajouter une référence...)
        Dim AppExcel As New Microsoft.Office.Interop.Excel.Application
        Dim Cls As Microsoft.Office.Interop.Excel.Workbook
        Dim Fe As Microsoft.Office.Interop.Excel.Worksheet
        Dim Plage As Microsoft.Office.Interop.Excel.Range
        Dim Cel As Microsoft.Office.Interop.Excel.Range
 
        Dim MonMax As Object 'valeurs texte dans Excel
        Dim Adr As String
 
        'montre l'application Excel
        AppExcel.Visible = True
 
        'ouvre le classeur
        Cls = AppExcel.Workbooks.Open("D:\MonClasseur.xls")
 
        'défini la feuille "Feuil1" comme feuille de travail
        Fe = Cls.Worksheets("Feuil1")
 
        With Fe
 
            'défini la plage de recherche, ici la colonne A de A1 à Ax
            Plage = .Range(.Cells(1, 1), .Cells(65536, 1).End(-4162))
 
            'parcour la plage
            For Each Cel In Plage
 
                If Cel.Value > MonMax Then
                    MonMax = Cel.Value
                    'mémorise l'adresse de la cellule
                    Adr = Cel.Address
                End If
 
            Next
 
            'affiche le maximum, à adapter le retour de valeur
            MsgBox(MonMax)
 
            'et sélectionne la cellule
            .Range(Adr).Select()
 
 
        End With
 
        'ferme le classeur si nécessaire
        'Cls.Close()
 
        'ferme l'application si nécessaire
        'AppExcel.Quit()
 
        Cel = Nothing
        Plage = Nothing
        Fe = Nothing
        Cls = Nothing
        AppExcel = Nothing
 
    End Sub

Hervé.

[Mickey92150]

> tomlev
Mon soucis, c'est que je n'arrive pas a obtenir la valeur maxi de ma colonne via mon labeltext.

>Theze
Je vais tester le code demain.

Mais j'aimerai bien savoir ce qui manque dans mon code pour obtenir cette valeur maxi, comprendre ou je fait erreur.

[tomlev]

Mon soucis, c'est que je n'arrive pas a obtenir la valeur maxi de ma colonne via mon labeltext.

"je n'arrive pas", ce n'est pas très explicite... il peut y avoir plein de façons de l'interpréter. Ce que je demande, c'est que se passe-t-il quand tu exécutes ce code ? Quel résultat (ou erreur) tu obtiens ?

[MABROUKI]

tu n'aurais par hasard oublie de caster la variable excel d'abord dans le type destination integer et ensuite il ne faut pas omettre toString.
Ce sont des oublis benins mais qui font perdre du temps car on ne les voit qu'à l'execution ,oublis à se faire arracher les cheveux.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
'ici le cast est necessaire a cause de l'appel à COM
MonMax = Ctype(Cel.Value,Integer)
 
Label1.Text=MonMax.toString

bon code....