Il est de bon ton de se souhaiter la bonne année. Mais vous, et vous seul, pourrez faire en sorte que cette année soit bonne, meilleure que celle qui vient de s'écouler. Apprenez à ne compter que sur vous, car personne n'est plus qualifié que vous-même pour bâtir, réparer ou améliorer votre propre vie. Personne ne fera les choses à votre place. D'ailleurs, tout ce que les autres peuvent faire, c'est souhaiter que vous le fassiez. Et ne croyez pas que tout ceux qui vous entourent vous apporteront des solutions : certains font juste partie de vos problèmes. Transformez vos résolutions en actes, et dans douze mois, retournez-vous et souriez-vous fièrement : C'était long. C'était difficile. Mais ça y est : 2017 était une bonne année, merci Moi.

Utilisation de InputBox et de &

La fonction InputBox, en Visual Basic, permet d'afficher un message à l'écran, et, en dessous, une zone de texte qui permet à l'utilisateur d'entrer du texte ou du chiffre. Ce que l'utilisateur entre sera stocké dans une variable.

Utilisation simple de InputBox

Sub TestInputBox()
  Dim Reponse As String
  Reponse = InputBox("Entrez votre prénom")
  MsgBox Reponse
End Sub


Dans ce cas, on constate que comme il s'agit d'un String, Le + colle ensemble le prenom deux fois (4545)

Sub Collage()
  Dim Reponse As String
  Reponse = InputBox("Entrez votre prénom")
  Reponse = Reponse + Reponse
  MsgBox Reponse
End Sub


Dans ce cas, comme c'est un integer, il donne 90 (45 + 45)

Sub Collage2()
  Dim Reponse As Integer
  Reponse = InputBox("Entrez votre prénom")
  Reponse = Reponse + Reponse
  MsgBox Reponse
End Sub


Ici, le & colle dans TOUS LES CAS : 4545 (qu'il s'agisse d'un Integer ou String)

Sub Collage3()
  Dim Reponse As Integer
  Reponse = InputBox("Entrez votre prénom")
  Reponse = Reponse & Reponse
  MsgBox Reponse
End Sub


Mélange de chaînes littérales (avec guillemets), et Strings (Variables sans guillemets)

Sub Collage4()
  Dim Reponse As String
  Reponse = InputBox("Entrez votre prénom")
  Reponse = "Tu t'appelles" & Reponse & "Tu es le meilleur"
  MsgBox Reponse
End Sub