Corrigé 4.6 Compter de N en N jusqu’à M

4.6.1 : Compter de 13 en 13 jusqu’à 100

Sub CompterDe13en13()  
  Dim intNombreDépart As Integer  
  Dim intAjout As Integer  
  Dim intNewNombre As Integer  
  Dim strMessage As String  
  strMessage = "0"  
  intNombreDépart = 0  
  intAjout = 13  
  Do While intNombreDépart <= 100 - intAjout  
    intNombreDépart = intNombreDépart + intAjout  
    intNewNombre = intNombreDépart  
    strMessage...
Pour consulter la suite, découvrez le livre suivant :
couv_TP21EXCV.png
60-signet.svg
En version papier
20-ecran_lettre.svg
En version numérique
41-logo_abonnement.svg
En illimité avec l'abonnement ENI
130-boutique.svg
Sur la boutique officielle ENI
Précédent
Corrigé 4.5 Dire bonjour N fois
Suivant
Corrigé 4.7 Rendre obligatoire une saisie et contrôler la sortie