Aide VBA boucle et condition multiple

2 pièce(s) jointe(s)

Voici mon problème. J'y suis depuis deux jours. Je me tourne vers la communauté si quelqu'un peut m'aider.
En VBA, je veux calculer à la ligne les RRR (remise/rabais/ristourne)
J'ai 2 types de RRR et J'applique la RRR sur tout le CA ou une partie du CA.
Mon type de RRR, colonne P et ma colonne Q permet de déterniner sur quel CA j'applique ma RRR.

Si quelqu'un peut jeter un oeuil sur mon programme et me dire ou ca ne va pas
Pièce jointe 357656
Pièce jointe 357657

Si quelqu un peut tenter de comprendre ce que j'essaie de faire et m'apporter un soutien, je lui en suis reconnaissant

Bonjour
ton code présenté en image et non, comme il se doit, entre balises code est d'autant difficile à analyser/exploiter que l'indentation de ses lignes est mal faite. On s'y perd.

Citation:

Sub RFA_D()
For i = 4 To Cells(Rows.Count, 2).End(xlUp).Row
'Si la colonne contient "D" et colonne Q coontient Oui
If InStr(UCase(Range("P" & i).Value), "D") > 0 Then
If InStr(UCase(Range("Q" & i).Value), "Oui") > 0 Then
'si mon CA 2017 evolue de 5%, je donne une Ristourne de 1%, si CA 2017 évolue de 10%, je donne 2% si +15%, je donne 3%
If Range("S" & i).Value >= Range("R" & i).Value * 1.05 Then
Range("X" & i).Value = Range("S" & i).Value * 0.01
If Range("R" & i).Value * 1.05 < Range("S" & i).Value <= Range("R" & i).Value * 1.1 Then
Range("X" & i).Value = Range("S" & i).Value * 0.02
If Range("R" & i).Value * 1.1 < Range("S" & i).Value <= Range("R" & i).Value * 1.15 Then
Range("X" & i).Value = Range("S" & i).Value * 0.03
'si la cellule contient "D" et que cellule de la colonne Q contient non
Else
If InStr(UCase(Range("P" & i).Value), "D") > 0 Then
If InStr(UCase(Range("Q" & i).Value), "Non") > 0 Then
If Range("S" & i).Value >= Range("R" & i).Value * 1.05 Then
Range("X" & i).Value = Range("T" & i).Value * 0.01
If Range("R" & i).Value * 1.05 < Range("S" & i).Value <= Range("R" & i).Value * 1.1 Then
Range("X" & i).Value = Range("T" & i).Value * 0.02
If Range("R" & i).Value * 1.1 < Range("S" & i).Value <= Range("R" & i).Value * 1.15 Then
Range("X" & i).Value = Range("T" & i).Value * 0.03
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Next
End Sub

Citation:

Envoyé par unparia

Bonjour
ton code présenté en image et non, comme il se doit, entre balises code est d'autant difficile à analyser/exploiter que l'indentation de ses lignes est mal faite. On s'y perd.

Je viens d'utiliser les balises mais :-(
pas de couleur pour différencier

Citation:

Je viens d'utiliser les balises mais :-(

Tu a utilisé "les balises", mais pas celles, à utiliser, de code !:pleure: (quote et code sont deux choses différentes, ici comme ailleurs, M. l' "Administrateur systèmes et réseaux").

Citation:

Envoyé par unparia

Tu a utilisé "les balises", mais pas celles, à utiliser, de code !:pleure: (quote et code sont deux choses différentes, ici comme ailleurs, M. l' "Administrateur systèmes et réseaux").

Admin, c'est plutot du réseau pur, de l'archi, sécu réseau, voip, btip...
La programmation n'a jamais été notre fort :)
Je n'arrive pas a trouver ses "foutues balises"8O

Citation:

La programmation n'a jamais été notre fort

Lire les infos-bulles des balises et déterminer cette à utiliser n'est pas de la "programmation"

Citation:

Je n'arrive pas a trouver sces "foutues balises"

"foutues", hein ...
Et tu n'arrives pas non plus à lire ceci
https://www.developpez.net/forums/a5...f-lire-poster/
, pourtant signalé Impératif "A LIRE AVANT DE POSTER"
?
Bonne nuit

Citation:

Envoyé par unparia

Lire les infos-bulles des balises et déterminer cette à utiliser n'est pas de la "programmation"

"foutues", hein ...
Et tu n'arrives pas non plus à lire ceci
https://www.developpez.net/forums/a5...f-lire-poster/
, pourtant signalé Impératif "A LIRE AVANT DE POSTER"
?
Bonne nuit

EDIT : de toutes manières, ce ne serait pas UNE, mais une flopée de choses à corriger dans un tel "code".
Déjà : quand on arrive (entre autres) à écrire des expressions conditionnelles du genre :

Code:

If a < b <= c Then

(Sais-tu au moins ce que cela comparerait ? -- la valeur de a à celle de la valeur de la booléenne constatant que b est plus petit ou égal à c (True) ou non (False) !)
on ne peut que se faire inviter à commencer à apprendre les tous premiers rudiments avant de développer quoi que ce soit.