Discussion :

[sims92.66]

Bonjour à tous forum,

Je cherche à trouver une macro me permettant de vérifier une condition dans une plage de donnée.
"Si mes prix sont compris dans la fourche moyenne+10% et moyenne -10% "alors prix correct" sinon "pas correct"

J'ai joint le fichier xl pour plus d'explication.
Par la meme occasion est il possible de mettre dans la macro le calcul de la moyenne.


Merci de votre aide précieuse.

[casefayere]

Bonjour,

Pourquoi une macro ?

D'après ton fichier, une petite formule suffit, pour ta premire question :

Code :

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

=SI((NB.SI($F4:$K4;">"&$C4)+NB.SI($F4:$K4;"<"&$D4))=0;"PRIX CORRECT";"PAS CORRECT")

[gFZT82]

Bonjour,

Au vu de ton tableau, je pense que tu as peut-être intérêt à utiliser une Mise en Forme Conditionnelle pour visualiser les prix hors limites.

Par exemple :
Si le prix est hors tolérances, couleur de police rouge

Code :

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

=OU(F2<$D2;F2>$C2)

Si le prix est dans les tolérances, couleur de police bleue

Code :

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

=ET(F2>$D2;F2<$C2)

Cordialement.

[Daniel.C]

Si tu tiens à une macro :

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
Sub test()
    Dim c As Range
    With Sheets("objet")
        .[B2:D1000].ClearContents
        For Each c In .Range([A2], .Cells(.Rows.Count, 1).End(xlUp))
            If Application.CountA(.Range(.Cells(c.Row, 6), _
            .Cells(c.Row, .Columns.Count).End(xlToLeft))) > 0 Then
                c.Offset(, 1).Value = Application.Average(.Range(.Cells(c.Row, 6), _
                    .Cells(c.Row, .Columns.Count).End(xlToLeft)))
                c.Offset(, 2).Value = c.Offset(, 1).Value * 1.1
                c.Offset(, 3).Value = c.Offset(, 1).Value * 0.9
                 If Application.Max(.Range(.Cells(c.Row, 6), _
                    .Cells(c.Row, .Columns.Count).End(xlToLeft))) > c.Offset(, 2).Value Or _
                    Application.Min(.Range(.Cells(c.Row, 6), _
                    .Cells(c.Row, .Columns.Count).End(xlToLeft))) < c.Offset(, 3).Value Then
                        c.Offset(, 4).Value = "pas correct"
                    Else
                       c.Offset(, 4).Value = "prix correct"
                    End If
            End If
        Next c
    End With
End Sub

et si tu veux que le calcul se fasse quand tu ajoutes une valeur dans les colonnes F:Q, mets la macro suivante dans le module de la feuille :

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
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    If Intersect([F:Q], Target) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    With Sheets("objet")
        .Cells(Target.Row, 2).Value = Application.Average(.Range(.Cells(Target.Row, 6), _
            .Cells(Target.Row, .Columns.Count).End(xlToLeft)))
        .Cells(Target.Row, 3).Value = .Cells(Target.Row, 2).Value * 1.1
        .Cells(Target.Row, 4).Value = .Cells(Target.Row, 2).Value * 0.9
         If Application.Max(.Range(.Cells(Target.Row, 6), _
        .Cells(Target.Row, .Columns.Count).End(xlToLeft))) > .Cells(Target.Row, 3).Value Or _
        Application.Min(.Range(.Cells(Target.Row, 6), _
        .Cells(Target.Row, .Columns.Count).End(xlToLeft))) < .Cells(Target.Row, 4).Value Then
            .Cells(Target.Row, 5).Value = "pas correct"
        Else
            .Cells(Target.Row, 5).Value = "prix correct"
        End If
    End With
    Application.EnableEvents = True
End Sub

[sims92.66]

Merci à tous,


Vos réponses sont toutes bonnes pour des prix positif mais lorsque ceux ci sont négatifs les propositions ne marchent pas.

Y aurait il une solution?

[casefayere]

Vos réponses sont toutes bonnes pour des prix positifs

??? je ne connais pas de prix négatifs sauf si on me donne de l'argent quand j'achète mais ça n'arrive jamais ou donnes-moi un tuyau

[sims92.66]

Dans mon exemple, j'ai pris la variable prix mais tout comme j'aurais pu dire autre chose.

La solution proposé ne fonctionne donc pas avec des valeurs négatives.

[Daniel.C]

Pour des montants négatifs :

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
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    If Intersect([F:Q], Target) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    With Sheets("objet")
        .Cells(Target.Row, 2).Value = Application.Average(.Range(.Cells(Target.Row, 6), _
            .Cells(Target.Row, .Columns.Count).End(xlToLeft)))
        .Cells(Target.Row, 3).Value = IIf(.Cells(Target.Row, 3).Value >= 0, .Cells(Target.Row, 2).Value * 1.1, .Cells(Target.Row, 2).Value * 0.9)
        .Cells(Target.Row, 4).Value = IIf(.Cells(Target.Row, 3).Value >= 0, .Cells(Target.Row, 2).Value * 0.9, .Cells(Target.Row, 2).Value * 1.1)
         If Application.Max(.Range(.Cells(Target.Row, 6), _
        .Cells(Target.Row, .Columns.Count).End(xlToLeft))) > .Cells(Target.Row, 3).Value Or _
        Application.Min(.Range(.Cells(Target.Row, 6), _
        .Cells(Target.Row, .Columns.Count).End(xlToLeft))) < .Cells(Target.Row, 4).Value Then
            .Cells(Target.Row, 5).Value = "pas correct"
        Else
            .Cells(Target.Row, 5).Value = "prix correct"
        End If
    End With
    Application.EnableEvents = True
End Sub

Et la première macro, pour rattrzper l'existant :

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
Sub test()
    Dim c As Range
    With Sheets("objet")
        .[B2:D1000].ClearContents
        For Each c In .Range([A2], .Cells(.Rows.Count, 1).End(xlUp))
            If Application.CountA(.Range(.Cells(c.Row, 6), _
            .Cells(c.Row, .Columns.Count).End(xlToLeft))) > 0 Then
                c.Offset(, 1).Value = Application.Average(.Range(.Cells(c.Row, 6), _
                    .Cells(c.Row, .Columns.Count).End(xlToLeft)))
                c.Offset(, 2).Value = IIf(c.Offset(, 1).Value >= 0, c.Offset(, 1).Value * 1.1, c.Offset(, 1).Value * 0.9)
                c.Offset(, 3).Value = IIf(c.Offset(, 1).Value < 0, c.Offset(, 1).Value * 1.1, c.Offset(, 1).Value * 0.9)
                 If Application.Max(.Range(.Cells(c.Row, 6), _
                    .Cells(c.Row, .Columns.Count).End(xlToLeft))) > c.Offset(, 2).Value Or _
                    Application.Min(.Range(.Cells(c.Row, 6), _
                    .Cells(c.Row, .Columns.Count).End(xlToLeft))) < c.Offset(, 3).Value Then
                        c.Offset(, 4).Value = "pas correct"
                    Else
                       c.Offset(, 4).Value = "prix correct"
                    End If
            End If
        Next c
    End With
End Sub