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.

Afficher "Bonjour" à l'écran

Pseudo-code

Affichage de bonjour à l'écran 10 fois.

POUR Ctr = 1 Jusqu'à 10
  AFFICHE "Bonjour"
SUIVANT Ctr

Tant que l'utilisateur tape oui

AFFICHE "Voulez-vous afficher Bonjour à l'écran ?"
ACCEPTE Reponse
TANT QUE Reponse = "Oui"
  AFFICHE Bonjour
  AFFICHE "On continue ? "
  ACCEPTE Reponse
FIN TANT QUE

Jusqu'à ce que l'utilisateur tape non

REPETE
  AFFICHE "Bonjour"
  AFFICHE "Voulez-vous continuer ?"
  ACCEPTE Reponse
JUSQU'A CE QUE Reponse = "non"

Visual Basic

Version simple : affichage une seule fois de bonjour

Sub AfficherBonjour()
  Selection.TypeText "Bonjour"
End Sub


Version avec 5 fois bonjour côte à côte

Sub AfficherBonjour5FoisV1()
  Selection.TypeText "Bonjour"
  Selection.TypeText "Bonjour"
  Selection.TypeText "Bonjour"
  Selection.TypeText "Bonjour"
  Selection.TypeText "Bonjour"
End Sub


Même version mais avec un For .. To .. Next

Sub AfficherBonjour5FoisV2()
  For Ctr = 1 To 5
    Selection.TypeText "Bonjour"
  Next
End Sub


Version longue avec un saut de paragraphe entre chaque Bonjour

Selection.TypeText permet d'écrire du texte à l'écran

Sub AfficherBonjour5FoisV3()
  Selection.TypeText "Bonjour"
  Selection.TypeParagraph
  Selection.TypeText "Bonjour"
  Selection.TypeParagraph
  Selection.TypeText "Bonjour"
  Selection.TypeParagraph
  Selection.TypeText "Bonjour"
  Selection.TypeParagraph
  Selection.TypeText "Bonjour"
  Selection.TypeParagraph
End Sub


Le saut de paragraphe et le For .. To .. Next

Selection.TypeParagraph : Est équivalent à la touche ENTER

Sub AfficherBonjour5FoisV4()
  For Ctr = 1 To 5
    Selection.TypeText "Bonjour"
    Selection.TypeParagraph
  Next
End Sub


Ce programme affiche au moins une fois bonjour
Le programme répète la boucle tant que l'utilisateur répond Oui
Do ...
...
Loop While

Sub AfficherBonjourTantQueOui()
  Do
  Reponse = InputBox("Voulez-vous afficher Bonjour ?")
  Selection.TypeText "Bonjour"
  Selection.TypeParagraph
  Loop While Reponse = "oui"
End Sub


Ce programme aussi affiche au moins une fois bonjour
Le programme répète la boucle jusqu'à ce que l'utilisateur réponde Non
Do ...
...
Loop Until

Sub AfficherBonjourJusqueNon()
  Do
    Reponse = InputBox("Voulez-vous afficher Bonjour ?")
    Selection.TypeText "Bonjour"
    Selection.TypeParagraph
  Loop Until Reponse = "non"
End Sub


Ce programme n'affichera peut-être pas une seule fois bonjour
Do While ...
...
Loop

Sub AfficherBonjourTantQueOuiV2()
  Reponse = InputBox("Voulez-vous afficher Bonjour ?")
  Do While Reponse = "oui"
    Selection.TypeText "Bonjour"
    Selection.TypeParagraph
    Reponse = InputBox("Voulez-vous continuer à afficher Bonjour ?")
  Loop
End Sub


Ce programme n'affichera peut-être pas une seule fois bonjour
Do While ...
...
Loop

Sub AfficherBonjourJusqueNonV2()
  Reponse = InputBox("Voulez-vous afficher Bonjour ?")
  Do Until Reponse = "non"
    Selection.TypeText "Bonjour"
    Selection.TypeParagraph
    Reponse = InputBox("Voulez-vous continuer à afficher Bonjour ?")
    Loop
End Sub


Utilisation d'Exit Do

Sub ExitDo()
  Do
    Reponse = InputBox("Voulez vous écrire Bonjour à l'écran ?")
    If Reponse <> "oui" Then
      Exit Do
    End If
    Selection.TypeText "Bonjour"
    Selection.TypeParagraph
  Loop
End Sub