Discussion :

[lolonico]

Bonjour à tous,

J'ai un fichier avec :

Colonne A = Référence
Colonne B = Désignation
Colonne C = Observation
Colonne D = Prix Public
Colonne E = Prix tarif 1
Colonne F = prix tarif 2
Colonne G = prix Tarif 3

Les prix tarif 1,2 et 3 doivent toujours être inférieurs au prix public.
J'ai 6.000 références et je voudrais créer une macro qui vérifie que le prix dans les colonne E,F et G soit bien inférieur au prix de la colonne D.
Lorsqu'il y a une erreur, il faudrait que cela soit signaler de la manière suivante : une MsgBox avec à l'intérieur la ligne contenant l'erreur et l'écart entre les deux prix en rouge.

Merci d'avance.

[JPierreM]

Une mise en forme conditionnelle sur les colonnes E, F, G devrait suffire sans se casser la tête

[Krovax]

D'ahbitude c'est bien de commencer le code plus tot que de demander ua autre de tout nous faire... mais la j'avais un peu de temps

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
Sub compaprix()
Dim DerniereLigne As Long
Dim i As Long
DerniereLigne = Range("A65536").End(xlUp).Row ' si la dernière ligne de ta colonneA n'est pas a tester retir le nombre de ligne à ne pas tester à la fin
 
For i = 2 To DerniereLigne  'remplace le 2 par la première ligan a tester
 
    If Cells(i, 4) < Cells(i, 5) Then
    MsgBox "Pour la ligne " & i & " l'écart de prix est de " & Cells(i, 5) - Cells(i, 4) & "€"
    ElseIf Cells(i, 4) < Cells(i, 6) Then
    MsgBox "Pour la ligne " & i & " l'écart de prix est de " & Cells(i, 6) - Cells(i, 4) & "€"
    ElseIf Cells(i, 4) < Cells(i, 7) Then
    MsgBox "Pour la ligne " & i & " l'écart de prix est de " & Cells(i, 7) - Cells(i, 4) & "€"
    End If
Next i
End Sub

Par contre pour la fenêtre avec des couleur soit ut te fait un userform et tu le présente comme il faut
soit tu regarde ici

Edit : c'est vrai qu'une mise en former conditionnel est bien pratique mais elle forcerais a parcourir le tableau pour repérer les erreur 6000ligne c'est long

[lolonico]

Bonjour,

Merci pour ton aide. Voici ton code que j'ai modifié pour coller au plus près de mon fichier :

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
 
Sub Verification()
Dim FL2 As Worksheet, PremAdresse As String
Dim i As Integer, DerLig2 As Long
 
Set FL2 = Worksheets("Tarif OEM")
DerLig2 = FL2.Cells(FL2.Rows.Count, 5).End(xlUp).Row
 
 
For i = 2 To DerLig2  'remplace le 2 par la première ligan a tester
     If Cells(i, 8) < Cells(i, 9) Then
    MsgBox "Pour la ligne " & i & " l'écart de prix est de " & Cells(i, 9) - Cells(i, 8) & "€"
    ElseIf Cells(i, 8) < Cells(i, 11) Then
    MsgBox "Pour la ligne " & i & " l'écart de prix est de " & Cells(i, 11) - Cells(i, 8) & "€"
    ElseIf Cells(i, 8) < Cells(i, 13) Then
    MsgBox "Pour la ligne " & i & " l'écart de prix est de " & Cells(i, 8) - Cells(i, 13) & "€"
    End If
Next i
End Sub

J'ai une erreur d'exécution '13' : Incompatibilité de type.
Le code s'arrête sur la ligne :

Code :

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

1
2
 
MsgBox "Pour la ligne " & i & " l'écart de prix est de " & Cells(i, 9) - Cells(i, 8) & "€"

Je ne connais pas trop l'utilisation des msgBox. Peux tu m'aider SVP ?

Merci.

[Krovax]

Oui c'est assez facile je paris qu'au moment de l'erreur si tu regarde la valeur du i et que tu cherche la ligne correspondante elle ne contient pas de valeur numérique
Ca ne devrais pas venir de la message box