Discussion :

[tompom3108]

Bonjour à tous,
J' ai un souci pour calculer une remise professionnelle sur un devis.
Je voudrais faire la somme des montants hors taxes sur la matière première uniquement pour y appliquer une remise d'un montant défini sur une combobox. j'ai une colonne B sur laquelle pour chaque produit j'ai un code matière. Si celui-ci est égal à 0 alors c'est du façonnage et la remise ne doit pas s'appliquer. j'ai écrit ceci mais cela ne fonctionne pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub Remisepro()
 
Worksheets("Devis").Protect userinterfaceonly:=True, AllowFormattingCells:=True
Dim Satisf As Boolean, Donrem As String, vrem As Integer
Dim lRem As Integer, Remi As Integer, lht As Integer
Dim Crit As Range
Dim Plage As Range
Dim ht As Single
Dim a As Range
Dim lAp As Integer
 
Const colht = 13
 
Set Plage = Range("B23:B" & Range("B" & Rows.Count).End(xlUp).Row)
 
For Each Crit In Plage
    If Not Crit.Value = "0" Then
        lht = Crit.Row
        End If
        Next
 
ht = Application.WorksheetFunction.Sum(Range(Cells(lht, colht)))
 
 
  On Error Resume Next
   Set a = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
  On Error GoTo 0
  U_remise.Show
  Donrem = TextBox1.Text
  vrem = CInt(Donrem)
   If Not a Is Nothing Then
    a.Value = "Remise professionnelle"
    a.HorizontalAlignment = xlCenter
    a.Font.FontStyle = "Bold Italic"
    a.Select
     ActiveCell.Offset(0, 5).Value = -ht * (vrem / 100)
 
      lAp = a.Row
          Cells(lAp, colht).NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
 
          End If
 
End Sub

J'aimerai que "ht" soit la somme des valeurs dont le code "matière" est différent de 0. Si vous avez la solution je serais le plus heureux merci.

[casefayere]

Bonsoir,
Je ne sais pas si j'ai compris mais pour ta première partie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
.....
Set Plage = Range("A23:M" & Range("b" & Rows.Count).End(xlUp).Row) 'si ton code matiere est en B
 
ht = Application.WorksheetFunction.SumIf(Plage.Columns(2), "<>0", Plage.Columns(13))'vérifies les colonnes
........

devrait suffire au lieu de ta boucle "For Each"

[tompom3108]

Bonjour casefayere,
merci pour ta réponse éclairante cependant depuis que j'ai fait cela j'ai un blocage au niveau de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Donrem = TextBox1.Text

Erreur d'execution 424 - objet requis je ne sais pas pourquoi?

Enfin je vais chercher un peu merci pour ton aide.

[casefayere]

Bonjour le forum, tompom3108

merci pour ta réponse éclairante cependant depuis que j'ai fait cela j'ai un blocage au niveau de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Donrem = TextBox1.Text

ça n'a, pour moi aucune relation, il faut voir au niveau de la valeur de textbo1, est-ce bien le nom du textbox ?

Bonne journée

PS : je ne répondrai qu'épisodiquement car je suis occupé par ailleurs

[tompom3108]

Bonjour Casefayere,

effectivement je pense que ça n'a aucun lien c'est pourquoi je continue à tenter d'éllucider le mystère sur un autre post.
PS : Le nom de mon Text Box est bien TextBox1.

merci encore et bon vent.