Discussion :

[kberny]

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



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

[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.

[kberny]

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

[kberny]

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

[unparia]

Je viens d'utiliser les balises mais :-(

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

[kberny]

Tu a utilisé "les balises", mais pas celles, à utiliser, de code ! (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"

[unparia]

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"

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