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

- - Dernière réponse : Whismeril
Messages postés
12368
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
11 décembre 2018
- 21 nov. 2018 à 17:19
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

Afficher la suite 

Votre réponse

2 réponses

Messages postés
5599
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
10 décembre 2018
0
Merci
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!
cs_Le Pivert
Messages postés
5599
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
10 décembre 2018
-
Je vais allez voir cela merci !
cs_Le Pivert
Messages postés
5599
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
10 décembre 2018
-
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.
Commenter la réponse de cs_Le Pivert
Messages postés
12368
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
11 décembre 2018
0
Merci
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
Commenter la réponse de Whismeril

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.