Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
- Initiateur de la discussion rzo
- Date de début
-
- Mots-clés
- et algorithme formule question
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !
Staple1600
XLDnaute Barbatruc
Bonsoir
Je pense pouvoir dire que oui 😉
Il ne t'arrivera rien si tu poses ta question.
Allez lances-toi.
Je pense pouvoir dire que oui 😉
Il ne t'arrivera rien si tu poses ta question.
Allez lances-toi.
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
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
XLDnaute Barbatruc
Re
Donc voici ton algo lié au bouton sur l'Userform
Quelles lignes de code tu ne comprends pas?
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
Dernière édition:
Staple1600
XLDnaute Barbatruc
Re
Si tu veux des exemples Do/Loop
source
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 Subre, 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,
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,
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
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
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Discussions similaires
- Question
- Question
- Question