Bonjour,

je suis débutant en programmation, j'ai récemment fait un petit programme très simple en VBA, mais j'aimerais refaire exactement la même chose mais en VB.NET ou C# pour quoi cette décision, car j'ai besoin d'un .exe car le programme va être utiliser sur plusieurs pc, dont certain ne possède pas Excel.

Fonction du programme actuel:
J'ai une feuille Excel dans laquelle chaque colonne contient des données, mon userform dispose en gros d'une TextBox dans laquelle je viens taper un mot clés présent dans ma colonne B, j'effectue ensuite une recherche via un bouton, et si il trouve le mot clés et bien il affiche tout simplement les informations concernant celui-ci, dans d'autres TextBox.

Donc en gros j'aimerais faire pareil effectuer une recherche dans ma feuille et afficher les info correspond, sauf que je suis complètement perdu, voici mon code en VBA

Code VBA :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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
Private Sub btn_localisation_Click() 'Recherche par localisation
On Error GoTo 1
 Sheets("Base").Activate
 
 ActiveSheet.Range("$G$3:$G$1000").AutoFilter Field:=7, Criteria1:=Me.TextBox_localisation.Value
 
1
End Sub
 
Private Sub btn_Reset_Click() 'Reset Filtre
On Error GoTo 1
TextBox6.Value = ""
TextBox_localisation.Value = ""
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
Worksheets("Base").ShowAllData
 
 
 
1
End Sub
 
Private Sub btn_type_Click() 'Recherche par Type
On Error GoTo 1
 Sheets("Base").Activate
    ActiveSheet.Range("$D$3:$D$1000").AutoFilter Field:=4, Criteria1:=TextBox_type.Value
1
End Sub
 
Private Sub btnFermer_Click() 'Fermer programme
 
 
    Unload Me
 
End Sub
 
Private Sub ComboBox1_Change()
 
End Sub
 
Private Sub CommandButton1_Click() 'Filtrer liste par DN
On Error GoTo 1
 Sheets("Base").Activate
    ActiveSheet.Range("$B$3:$B$1000").AutoFilter Field:=2, Criteria1:=Me.TextBox6.Value
 
  'compte le nombre de DN filtré
  Dim NoLigne(), i, j
    For Each ligne In Sheets("Base").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows
        i = i + 1
        ReDim Preserve NoLigne(i)
        NoLigne(i) = ligne.Address(RowAbsolute:=False, ColumnAbsolute:=False)
    Next
    For j = 1 To i
        TextBox11 = NoLigne(j)
    Next
 
1
End Sub
 
Private Sub CommandButton3_Click()
'Gestion des erreurs
    On Error GoTo 1
 
    'test si le numéro de vanne existe
    If WorksheetFunction.CountIf(Sheets("Base").Range("A:A"), Me.TextBox1.Value) = 0 Then
 
        ' affiche un message qui indique que la vanne n'a pas était trouvé
        MsgBox "Cette vanne n'éxiste pas. Veuillez saisir un nouveau TAG", vbInformation + vbOKOnly, "Vanne non trouvé"
 
        End If
 
        With Me 'avec le forumlaire:
 
            'Applique la fonction RechercheV (Vlookup) pour afficher les informations de la vanne
            .TextBox2 = Application.WorksheetFunction.VLookup(CStr(Me.TextBox1), Sheets("Base").Range("source"), 2, 0) 'affiche DN
            .TextBox3 = Application.WorksheetFunction.VLookup(CStr(Me.TextBox1), Sheets("Base").Range("source"), 3, 0) 'affiche Etage
            .TextBox4 = Application.WorksheetFunction.VLookup(CStr(Me.TextBox1), Sheets("Base").Range("source"), 4, 0) 'affiche Type
            .TextBox5 = Application.WorksheetFunction.VLookup(CStr(Me.TextBox1), Sheets("Base").Range("source"), 5, 0) 'affiche Périodicté Préventive
            .TextBox8 = Application.WorksheetFunction.VLookup(CStr(Me.TextBox1), Sheets("Base").Range("source"), 7, 0) 'affiche la Localisation
            .TextBox9 = Application.WorksheetFunction.VLookup(CStr(Me.TextBox1), Sheets("Base").Range("source"), 8, 0) 'affiche Code SAP
            .TextBox10 = Application.WorksheetFunction.VLookup(CStr(Me.TextBox1), Sheets("Base").Range("source"), 6, 0) 'affiche Description Equipement
 
 
 
        End With
 
1
End Sub
 
Private Sub CommandButton4_Click() 'Bouton active filtre
 
If CommandButton4.BackColor = &H8000000F Then CommandButton4.BackColor = RGB(0, 255, 0) Else If CommandButton5.BackColor = RGB(255, 0, 0) Then CommandButton5.BackColor = &H8000000F Else CommandButton5.BackColor = &H8000000F
 
 
 ActiveSheet.Range("$A$3:$H$1000").AutoFilter Field:=2, Criteria1:=Me.TextBox6.Value
 Sheets("Base").ShowAllData
 
 
End Sub
 
Private Sub CommandButton5_Click() 'bouton desactive filtre
If CommandButton5.BackColor = &H8000000F Then CommandButton5.BackColor = RGB(255, 0, 0) Else If CommandButton4.BackColor = RGB(0, 255, 0) Then CommandButton4.BackColor = &H8000000F Else CommandButton4.BackColor = &H8000000F
 
ActiveSheet.AutoFilterMode = False
TextBox6.Value = ""
End Sub