conversion vba excel en vb 2010

Question

Bonsoir tout le monde,
étant néophyte en programmation, je suis très heureux de me joindre à ce forum qui est très passionnant et très intéressant !
voila j'ai créer un petit code (que j'utilise dans mon travail) en VBA excel 2007 et que je voudrai transposer en VB 2010 ou VB 2008.
Je ne sais comment l'uploader pour que vous puissiez le voir donc si vous pouvez me montrer d'abords comment l'uploader pour ensuite passer dans le vif du sujet !
Merci d'avance !

cs_ShayW · Answer

Salut

on ne peut pas uploader un fichier xls  avec le visual studio vb2010
ou vb2008 
vba et vb.net sont deux langages différents 
Tu peux ouvrir un projet avec le vb2008 
faire un copier coller de ton code vba mais tu risques d'obtenir
des erreurs de compilation

ucfoutu · Answer

Bonjour,  cs_ShayW,
Je crois que tu n'as pas compris ce que voulait dire salomon2008 par "comment l'uploader pour que vous puissiez le voir"
A Salomon : ici, on ne joint pas un fichier (et encore moins un ficher excel, que seuls les moins prudents prendraient le risque d'ouvrir).
Ici, on montre son code.
Ne montre ^pas tout ! ne montre que les parties que tu as des difficultés à transposer.

salomon2008 · Answer

Bonsoir tout le monde,
Je tient d'abord à répondre à jordane45, vous dites :
 'Par contre nous ne ferons pas la conversion pour toi.'
je vous répond que dans mon 1er message j'ai dit :
 'que je voudrai transposer en VB 2010'

je ne cherche pas à ce que vous me fassiez la conversion, ce n'est ni mon intention ni mon souhait !

ce que je veux exactement c'est au niveau des mots clé (et leurs syntaxe) de VB 2010 qui diffèrent de ceux de VBA excel, à commencer par ça :
' Saisie numérique avec 1 seule virgule et 2 chiffres après

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

 If InStr("1234567890.-", Chr(KeyAscii)) = 0 Or TextBox1.SelStart > 0 And Chr(KeyAscii) = "-" Or InStr(TextBox1.Value, ".") <> 0 And Chr(KeyAscii) = "." Then
KeyAscii = 0: Beep
 End If
   If Right(TextBox1, 1) = "." Or Right(TextBox1, 1) = "," Then
   TextBox1.MaxLength = Len(TextBox1) + 2
   End If
  
End Sub

je cherche l'équivalent de MSForms.ReturnInteger en VB 2010 et de Chr(KeyAscii)

cs_ShayW · Answer

place déja un texbox sur ta form 

textbox1.keypress est un evenement

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    '    le e.keychar est le char de la touche

End Sub

VBA/vb6       vb.net
fonction        méthode de la class string
Len =      TextBox1.text .Length
Mid =         TextBox1.text .SubString
Replace =      TextBox1.text.Replace
InStr =         TextBox1.text .IndexOf
UCase =          TextBox1.text.ToUpper
LCase =           TextBox1.text.ToLower
Split =               TextBox1.text.Split
Join =             TextBox1.text.Join

Conversion vba excel en vb 2010

4 réponses

Votre réponse

Discussions similaires