Microsoft 365 VBA somme des 100 premiers entiers

TooFatBoy

XLDnaute Barbatruc

• 8 Janvier 2022

• #2

Bonjour,

Qu'est-ce que tu connais comme boucles ?

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 8 Janvier 2022

• #3

Si tu es es sûr que les trois sont des boucles, ça te fait trois possibilités.
Mais en réalité, il y en a un des trois qui n'est pas vraiment une boucle mais plutôt un simple test. Ne crois-tu pas ?

Commence avec un FOR, c'est la plus simple.

 

Vote positif 0 Vote négatif

Magicdog36

XLDnaute Nouveau

• 8 Janvier 2022

• #4

Marcel32 à dit:

Si tu es es sûr que les trois sont des boucles, ça te fait trois possibilités.
Mais en réalité, il y en a un des trois qui n'est pas vraiment une boucle mais plutôt un simple test. Ne crois-tu pas ?

Commence avec un FOR, c'est la plus simple.

Cliquez pour agrandir...

Je connais la boucle For, If et While

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 8 Janvier 2022

• #5

Mais pourquoi ma réponse à #4 se trouve en #3 ?!?

 

Vote positif 0 Vote négatif

Magicdog36

XLDnaute Nouveau

• 8 Janvier 2022

• #6

D'accord je vais essayer ça !!

Merci Marcel

 

Vote positif 0 Vote négatif

Magicdog36

XLDnaute Nouveau

• 8 Janvier 2022

• #7

Marcel j'ai réussi à faire la boucle !!
N = 100
Cells(1, 1) = 1
For i = 2 To N
Cells(i, 1) = i + Cells(i - 1, 1)
Next
MsgBox Cells(N, 1)

Mais maintenant je n'arrive pas à la lancer sans l'affecter aux cellules. Je voudrais juste avoir mon msgbox.
Il faudrait que je change les Cells par des variables mais je n'y arrive pas

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 8 Janvier 2022

• #8

Bonjour,

Il vaut mieux ne pas utiliser comme zone de stockage intermédiaire une ou plusieurs cellules. Écrire via une feuille de calcul, c'est très long. On peut utiliser une variable intermédiaire et l'afficher à la fin, ce qui est bien plus rapide.

VB:

Option Explicit

Sub Sommer()
Dim n As Long, Som As Currency, i As Long
   Do While Not n >= 1
      n = Int(Application.InputBox("Saisir un entier >= à 1 svp ?", Type:=1))
   Loop
   For i = 1 To n: Som = Som + i: Next i
   MsgBox "La somme des entiers de 1 à " & Format(n, "#,##0") & " est :    " & Format(Som, "#,##0")
End Sub

nota: le type Currency permet de manipuler des nombres (notamment des entiers) plus grands que le type long (si vous saisissez la borne n=100000, avec le type Long on aboutit à une erreur, avec le type currency ça passe)

 

Dernière édition: 8 Janvier 2022

Vote positif 1 Vote négatif

Magicdog36

XLDnaute Nouveau

• 8 Janvier 2022

• #9

Bonjour Mapomme,

Merci pour ta réponse c'est exactement qu'il me fallait.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Janvier 2022

• #10

Bonjour Magicdog36, Marcel32, mapomme,;

VB:

Sub SommeN()
Dim n&, s&
While n <= 100 'limite 100 à adapter
    s = s + n
    n = n + 1
Wend
MsgBox s
End Sub

 

Vote positif 1 Vote négatif

Magicdog36

XLDnaute Nouveau

• 8 Janvier 2022

• #11

Bonjour Job75,

Merci pour ta réponse, j'ai fait ça comme macro du coup.

Sub ex10()
N = 100
For i = 1 To N
j = j + i
Next
MsgBox j
End Sub

 

Vote positif 0 Vote négatif

Solution

TooFatBoy

XLDnaute Barbatruc

• 8 Janvier 2022

• #12

Magicdog36 à dit:

j'ai fait ça comme macro du coup.

Sub ex10()
N = 100
For i = 1 To N
j = j + i
Next
MsgBox j
End Sub

Cliquez pour agrandir...

Bravo, c'est excellent !

Tu n'es pas obligé d'utiliser une variable pour déterminer la borne haute de ton For.
Tu peux directement écrire la valeur.
Ça donnerait donc ça :

VB:

Sub ex10()
j = 0
For i = 1 To 100
    j = j + i
Next
MsgBox j
End Sub

 

Vote positif 0 Vote négatif