help me

[invite95c0edc8]

salut tout le monde pourriez vous m'aider a ecrire le programme VBA de la miltiplication russe; come cet exemple
pour multiplier 45 et 19 :
45 19 19 (45 est impaire, on garde le nombre en face ici 19)
45/2= 22 19*2= 38 (22 est paire on ne fait rien)
22/2 11 38*2= 76 76 ….
11/2= 5 76*2= 152 152
5/2= 2 152*2= 304
2/2= 1 608 608
-------
855 =somme de tous les nombres
-----

[invite95c0edc8]

personne !!

[whoami]

Bonjour,

Je ne vois pas la difficulté. Tu connais l'algorithme, donc ...

[Dormeur74]

Ca c'est mieux.

Private Sub CommandButton1_Click()
  Dim a1, b1, Somme As Long
  
  a1 = InputBox("Entrez une valeur a : ", "Saisie")
  b1 = InputBox("Entrez une valeur b : ", "Saisie")
  If a1 <= b1 Then Somme = a1
  
  Do
      b1 = Int(b1 / 2)
      a1 = a1 * 2
      If b1 Mod 2 = 1 Then
          Somme = Somme + a1
      End If
  Loop Until b1 = 1
  
  MsgBox Somme
  End
End Sub

[A voir en vidéo sur Futura]

[whoami]

Bonjour,

Tu ne rends pas vraiment service au demandeur en lui étalant une solution "clés en main", au contraire.

[Jack]

+1

Si je genre de difficulté ne peut être franchie avec un minimum d'aide, il faut laisser tomber l'informatique.

A+