Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

vba calcul par tranche avec IF ne fonctionne pas

Créer une discussion

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 !

S'inscrire
S

slaurent01

XLDnaute Junior
Bonjour le forum,

Bonjour à tous, j'ai un problème dans mon programme. J'ai un calcul qui doit se faire selon des tranches. j'ai donc saisi le code suivant :
Code: 
Sub test()

Dim val As Currency
Dim val1 As String

Dim fourn1 As Currency
Dim fourn2 As Currency

val = ThisWorkbook.Worksheets("Feuil1").Range("A2").Value
val1 = ThisWorkbook.Worksheets("Feuil1").Range("b2").Value

If val > 3000 Then
fourn1 = val * 0.04
Else
    If val > 1 Or val < 150 Then
    fourn1 = 15
    Else
        If val > 150 Or val < 380 Then
        fourn1 = 45
        Else
            If val > 380 Or val < 760 Then
            fourn1 = 60
            Else
                If val > 760 Or val < 1500 Then
                fourn1 = 75
                Else
                    If val > 1500 Or val < 3000 Then
                    fourn1 = 90
                    End If
                End If
            End If
        End If
    End If
End If

 If val1 = "N" Then
fourn2 = 0
Else
fourn2 = (val * 0.01 * 8.5) + 8
End If

Range("c2").Value = fourn1
Range("d2").Value = fourn2
End Sub

Si la valeur est > 3000 le calcul se fait bien, sinon il s'arrête toujours à la première tranche. Je ne comprends pas pourquoi ca ne marche pas. J'appelle donc à l'aide et vous en remercie par avance.

Je joins le code de mon programme qui ne marche pas.

cordialement
Stéphane
 

Pièces jointes

Trier par date Trier par votes
Re : vba calcul par tranche avec IF ne fonctionne pas

Bonjour,

Peut-être cela qui ne va pas :

Code: 
If val > 1500 Or val < 3000 Then

à rectifier par :

Code: 
If val > 1500 Or val <= 3000 Then

Bonne journée
 
Vote positif 0 Vote négatif
Re : vba calcul par tranche avec IF ne fonctionne pas

Bonjour,

petite remarque au passage, Val est une fonction native de vba, déconseillé de l'utiliser comme nom de variable ou de procédure...

bon après midi
@+
 
Vote positif 0 Vote négatif
Re : vba calcul par tranche avec IF ne fonctionne pas

bonjour Pierrot93, dans mon programme "val" est à un autre nom, et ca ne marche pas non plus. Mais j' en prends bonne note et ne l'utiliserai plus dans les procédures.
Merci
Bonne journée
Stéphane
 
Vote positif 0 Vote négatif
Resolu : vba calcul par tranche avec IF ne fonctionne pas

bonjour à tous,

J'ai enfin trouvé la solution. je n'indique une valeur minimum et maximum de la tranche, mais que la maximum.
Il y a certainement plus simple comme écriture, mais ca marche.

Code: 
If val > 3000 Then
fourn1 = val * 0.04
Else
    If val <= 150 Then
    fourn1 = 15
    Else
        If val <= 380 Then
        fourn1 = 45
        Else
            If val <= 760 Then
            fourn1 = 60
            Else
                If val <= 1500 Then
                fourn1 = 75
                Else
                    If val <= 3000 Then
                    fourn1 = 90
                    End If
                End If
            End If
        End If
    End If

Merci bonne fin de journée.

Stéphane
 
Vote positif 0 Vote négatif
Re : vba calcul par tranche avec IF ne fonctionne pas

bonjour
à tester
Code: 
Public Sub x()
    If valeur > 3000 Then
        fourn1 = valeur * 0.04
    ElseIf valeur <= 150 Then
        fourn1 = 15
    ElseIf valeur <= 380 Then
        fourn1 = 45
    ElseIf valeur <= 760 Then
        fourn1 = 60
    ElseIf valeur <= 1500 Then
        fourn1 = 75
    ElseIf valeur <= 3000 Then
        fourn1 = 90
    End If
End If
End If
End If
End If

End Sub

Public Sub xx()

    Select Case valeur
    Case Is > 3000
        fourn1 = valeur * 0.04
    Case Is <= 150
        fourn1 = 15
    Case Is <= 380
        fourn1 = 45
    Case Is <= 760
        fourn1 = 60
    Case Is <= 1500
        fourn1 = 75
    Case Is <= 3000
        fourn1 = 90
    End Select

End Sub
 
Vote positif 0 Vote négatif
Re : vba calcul par tranche avec IF ne fonctionne pas

bonsoir le forum,

bonsoir bebere, merci pour votre réponse. Je vais tester ces codes qui sont mieux construits que le mien
et reviendrait pour donner les conclusions.
Bonne soirée.

cordialement
stéphane
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

L
  • Question Question
Microsoft 365 Erreur automation 440 sur code VBA
Réponses
1
Affichages
115
job75
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
862
Dranreb
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
179
kiki29
  • Question Question
XL 2013 Réduire un code
Réponses
0
Affichages
566
chaelie2015
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
349
patricktoulon
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
492
telemarrk
T
C
  • Résolu(e)
Autres Copier des données vers une nouvelle feuille excel VBA
2
Réponses
25
Affichages
900
Carolinebd
C
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
421
oguruma
E
  • Question Question
Microsoft 365 Listbox avec plus de 10 colonnes
Réponses
6
Affichages
656
Excellearning
E
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
255
JJ69
J
D
  • Question Question
XL 2010 Valoriser cellule par clic
Réponses
4
Affichages
549
fanch55
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
684
Corentin26270
C
B
  • Résolu(e)
Microsoft 365 Besoin d'aide pour faire fonctionner 2 codes VBA ensemble
Réponses
2
Affichages
383
BenExcel
B
S
  • Question Question
XL 2021 macro VBA excel
Réponses
1
Affichages
521
crocrocro
C
H
  • Résolu(e)
sub en function
Réponses
2
Affichages
447
Hunter296
H
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
M
  • Question Question
XL 2021 Vba Userform textbox.value
Réponses
3
Affichages
425
MNico1862
M
  • Question Question
XL 2021 faire évoluer un code VBA
Réponses
3
Affichages
508
Dranreb
E
  • Question Question
XL 2013 vba excel
Réponses
6
Affichages
605
sylvanu
S
  • Question Question
Microsoft 365 créer un macro vba
Réponses
0
Affichages
460
souhaib ad
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…