Microsoft 365 question algorithme sur excel

rzo · 6 Mars 2022

Bonsoir
peut-on posé une question sur ce forum concernant une formule d' algorithme sur excel ?
merci pour votre futur réponse
cordialement,

Staple1600 · 6 Mars 2022

Bonsoir

Je pense pouvoir dire que oui
Il ne t'arrivera rien si tu poses ta question.

Allez lances-toi.

rzo · 6 Mars 2022

Bonsoir,
merci pour votre réponse
j'ai un algorithme concernant la facturation dans un cabinet (voir ci-joint)
cet algorithme me permet de comprendre les structures (pour fin pour, si alors sinon, etc...).

il me manque un exemple pour comprendre la structure (répéter jusqu'à) c'est à dire DO action Loop Until condition.

pourrait ton me mettre cet structure (répéter jusqu'à) dans mon algorithme afin que je comprenne à quoi ca sert ? ou sa se met etc...

merci pour votre aide

Staple1600 · 6 Mars 2022

Re

Donc voici ton algo lié au bouton sur l'Userform

VB:

Private Sub Calcul_Click()
Dim Nbhcpta As Integer
Dim Nbhconseil As Integer
Dim NetHT As Single
Dim NetTTC As Single
Dim Rglmt As String
Dim Mtescpte As Single
Dim I As Integer
Dim somme As Integer
Dim Nbfact As Integer

Const Txcpta = 60
Const Txconseil = 80
Const TxTVA = 0.2
Const TxEscpte = 0.03

Nbhcpta = InputBox("Quel est le nombre d'heures réalisés en comptabilité?")
Nbhconseil = InputBox("Quel est le nombre d'heures réalisés en conseil?")
NetHT = (Txcpta * Nbhcpta) + (Txconseil * Nbhconseil)
While NetHT < 1000
MsgBox ("client inintéressant")
Nbhcpta = InputBox("Quel est le nombre d'heures réalisés en comptabilité?")
Nbhconseil = InputBox("Quel est le nombre d'heures réalisés en conseil?")
Wend
Select Case NetHT
Case Is > 10000: NetHT = NetHT * 90
     MsgBox ("une réduction de 10% est accordée")
Case Is > 8000: NetHT = NetHT * 95
     MsgBox ("une réduction de 5% est accordée")
Case Is > 7000: NetHT = NetHT * 0.99
     MsgBox ("une réduction de 1% est accordée")
     Case Else
     MsgBox ("pas de réduction")
End Select
Rglmt = InputBox("Quel est le mode de réglement(comptant ou crédit)?")
If Rglmt = "comptant" Then
   Mtescpte = NetHT * TxEscpte
   Else
   If Rglmt = "crédit" Then
   Mtescpte = 0
   End If
End If
Nbfact = InputBox("combien de facture seront saisies?")
For I = 1 To Nbfact
NetTTC = (NetHT - Mtescpte) * (1 + TxTVA)
somme = somme + NetTTC
Next
MsgBox ("la somme des factures est égale à :" & somme)
MsgBox ("Le montant TTC pour ce client est de : " & NetTTC)
End Sub

Quelles lignes de code tu ne comprends pas?

Staple1600 · 6 Mars 2022

Re

Si tu veux des exemples Do/Loop

VB:

Sub ChkFirstWhile()
    counter = 0
    myNum = 20
    Do While myNum > 10
        myNum = myNum - 1
        counter = counter + 1
    Loop
    MsgBox "The loop made " & counter & " repetitions."
End Sub
Sub ChkLastWhile()
    counter = 0
    myNum = 9
    Do
        myNum = myNum - 1
        counter = counter + 1
    Loop While myNum > 10
    MsgBox "The loop made " & counter & " repetitions."
End Sub
Sub ChkFirstUntil()
    counter = 0
    myNum = 20
    Do Until myNum = 10
        myNum = myNum - 1
        counter = counter + 1
    Loop
    MsgBox "The loop made " & counter & " repetitions."
End Sub
Sub ChkLastUntil()
    counter = 0
    myNum = 1
    Do
        myNum = myNum + 1
        counter = counter + 1
    Loop Until myNum = 10
    MsgBox "The loop made " & counter & " repetitions."
End Sub
Sub ExitExample()
    counter = 0
    myNum = 9
    Do Until myNum = 10
        myNum = myNum - 1
        counter = counter + 1
        If myNum < 10 Then Exit Do
    Loop
    MsgBox "The loop made " & counter & " repetitions."
End Sub

source

rzo · 6 Mars 2022

re, bonsoir,
merci pour vos exemple de do loop
dans mon algorithme je comprends tout, sauf comment introduire le do loop dans mon algorithme.
Merci pour vos exemples je vais regardé sa de plus prés
merci
crdlt,

rzo · 7 Mars 2022

Bonsoir, je reviens vers vous car
on ma dit de mettre cela pour bien utiliser le répéter jusqu'à:

Sub test

Do Until a = 3

a = a + 1

Loop

End sub
et on m'a dit que sa se mettait à la fin, mais ou dois-je le mettre dans mon algorithme ? (précisement)
merci pour votre futur réponse et excusez moi du dérangement

Microsoft 365 question algorithme sur excel

rzo

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

rzo

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

rzo

XLDnaute Nouveau

rzo

XLDnaute Nouveau

Discussions similaires