Conversion macro VBA en VB.net express 2010. [Résolu]

Signaler
-
Messages postés
15924
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
12 mai 2021
-
Bonjour,

Récemment, j'ai fais une macro excel que j'aimerais mettre en .exe. Voyant que cela était impossible, j'ai été contraint à me tourner vers vb.net. Cependant, après avoir essayé certains codes, appris la base du logiciel et regardait des tutos pour migrer de VBA en VB, je ne parviens pas à réécrire mon code. J'aurais donc besoins d'un peu d'aide pour le récrire.

Voilà une petite partie de ce dernier afin que je suive l'exemple si jamais quelqu'un a une idée.

 
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 'rétabli la couleur auto
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

2 réponses

Messages postés
7377
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
12 mai 2021
122
Bonjour,

Nous t'avons donné la marche à suivre ici:

https://codes-sources.commentcamarche.net/forum/affich-10089102-virtual-basic-2010-soucis-d-expression
suis donc les recommandations!
Messages postés
7377
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
12 mai 2021
122
Je vais allez voir cela merci !
Messages postés
7377
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
12 mai 2021
122
Je vais sûrement prendre un cours VB.NET car je suis vraiment perdue haha, merci bien !
D'ailleurs, je voulais te demander, tu n'as pas discord ? J'aimerais te poser quelques questions car le fait est que je ne sais pas par ou commencer.
Messages postés
15924
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
12 mai 2021
544
Bonsoir

Voici un article qui parle de la difficulté du passage de vba à vb.net.
https://codes-sources.commentcamarche.net/faq/11151-pourquoi-mon-code-vb6-vba-ne-marche-pas-en-vb-net
Dans le préambule il y a un lien vers un bon cours de vb.net