Discussion :

[Elhyra]

Bien le bonjour,

Je cherche depuis quelques temps à faire une application permettant de vérifier un tableau excel à l'aide de conditions. Exemple, si la case désignation contient + de 50 caractères, alors la surligner en rouge, puis créer un fichier texte avec la ligne fausse.

J'ai réussis à faire ce code sur VBA excel mais le mieux serait d'avoir une application en .exe pour me permettre d’exécuter le programme de vérification le plus simplement possible. Cependant, je n'ai que de très faible connaissance en VB.net.

Si quelqu'un saurait me montrer comment faire avec une partie du code convertit en VBA, cela me servirait grandement !

Au passage, j'ai déjà vu de nombreux tutos, de nombreux post anglais et français à ce sujet, mais jamais aucun n'était vraiment clair et n’expliquai ce que je cherchais.

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
 
 
Option Explicit
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Dim mess As String
Private Sub CommandButton1_Click()
   Columns("B:L").Font.ColorIndex = xlAutomatic 'La couleur revient par défaut.
bouclecolonneB
bouclecolonneC
bouclecolonneD
bouclecolonneE
bouclecolonneF
bouclecolonneG
bouclecolonneH
bouclecolonneI
bouclecolonneJ
bouclecolonneK
bouclecolonneL
 
End Sub
 
 
Sub bouclecolonneB()
    Dim FL1, x
    Set FL1 = Worksheets("Feuil1")
    NoCol = 2    'lecture de la colonne B
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
            If Len(Var) > 50 Then
                Rows(NoLig & ":" & NoLig).Font.Color = RGB(255, 0, 0)    'rouge
                mess = mess & vbCrLf & "La colonne désignation est éronnée. " & NoLig
            End If
    Next
    'creation de ton fichier rapport ici avec open for input par exemple
    x = FreeFile
    Open Environ("userprofile") & "\DeskTop\rapport d'erreur.txt" For Output As #x: Print #x, mess: Close #x
    Set FL1 = Nothing
End Sub
 
 
Sub bouclecolonneC()
Dim FL1, x
Set FL1 = Worksheets("Feuil1")
NoCol = 3 'lecture de la colonne C
For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
    Var = FL1.Cells(NoLig, NoCol)
    If Var = "" Or IsNumeric(Var) = False Then
        Rows(NoLig & ":" & NoLig).Font.Color = RGB(255, 0, 0) 'rouge
        mess = mess & vbCrLf & "La colonne Prix 1 est éronnée. " & NoLig
    End If
Next
x = FreeFile
Open Environ("userprofile") & "\DeskTop\rapport d'erreur.txt" For Output As #x: Print #x, mess: Close #x
Set FL1 = Nothing
End Sub

[MABROUKI]

Bonjour

Microsoft.Interop.Office et Microsoft.Interop.Excel sont tes 2 amis pour creer un executable (.exe) en vb.net qui
1/demarre Excel
2/ ouvre ton classeur
3/ l'agremenre d'un usercontrol ou un form
4/ execute ta macro reecrite en vb.net (pas de difference notable avec VBA cote syntaxe ...
Pour cela lire et s'entrainer avec les FAQS Du forum sur VB.Net et l'Interop ...et revenir sur ce forum quand ca coince avec le code vb.net !!!
bon code ...

[Elhyra]

Bonjour,

Merci pour ta réponse mais je n'ai pas bien compris ce que tu voulais dire malgré les étapes. J'ai regardé un peu sur internet comment utiliser COM Interop mais je n'arrive pas à adapter mon script à cela.

Merci de ta réponse !

[Phil Rob]

Voici ce qui illustre très partiellement la description que tu as reçue :

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
Imports Excel = Microsoft.Office.Interop.Excel
 
Public Class Formidable
 
    Dim XLSAPP As Excel.Application = Nothing
 
    'La feuille Excel n'est pas ouverte
    Private Sub BExcel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BExcel.Click
        XLSAPP = New Excel.Application
        XLSAPP.Visible = True
        XLSAPP.Workbooks.Open("D:\Tmp\ProbExcel\Test.xls")  'ouvir le fichier XLS
 
        ' Il est possible de programmer en VB ce qu'on ferait en Macro
        XLSAPP.Range("C4").Select()                 'sélectionner une cellule
        XLSAPP.ActiveCell.FormulaR1C1 = "127"   'y placer la valeur 127
 
        'Il est aussi possible de lancer une macro du fichier XLS
        XLSAPP.Run("MaMacro") 'exécuter la macro MaMacro
' .......................
' .......................

J'espère que ceci t'aidera ...