Bonjour à toute et à tous,
Je souhaiterais à partir d'une macro réaliser un contrôle sur des incohérences de seuil pour chaque personne disposant d'un seuil.
c.à.d. si le seuil du N+1 est inferieur au N-1, alors mettre une couleur jaune.
Exemple KO :
N => Marc seuil APPROB 1 000EUR
N+1 => jean seuil APPROB 500EUR
Exemple OK :
N => Marc seuil APPROB 500EUR
N+1 => jean seuil APPROB 1 500EUR
Chaque personne a un nombre de personne hiérarchique différent.
La macro devra lire uniquement les chaines alphanumérique commençante par ("ACHETEUR ", "APPROB ", "APPROB MAG ")
Le seuil "APPROVISIONNEUR" n'est pas considéré comme un seuil.
Merci de votre aide
Je souhaiterais à partir d'une macro réaliser un contrôle sur des incohérences de seuil pour chaque personne disposant d'un seuil.
c.à.d. si le seuil du N+1 est inferieur au N-1, alors mettre une couleur jaune.
Exemple KO :
N => Marc seuil APPROB 1 000EUR
N+1 => jean seuil APPROB 500EUR
Exemple OK :
N => Marc seuil APPROB 500EUR
N+1 => jean seuil APPROB 1 500EUR
Chaque personne a un nombre de personne hiérarchique différent.
La macro devra lire uniquement les chaines alphanumérique commençante par ("ACHETEUR ", "APPROB ", "APPROB MAG ")
Le seuil "APPROVISIONNEUR" n'est pas considéré comme un seuil.
Code:
Sub test()
Dim dlng As String
Dim i As Variant
Dim A As String
Dim B As String
Dim z As Str
dlng = Sheets("DATA").Range("B11").End(xlUp).Row
For i = 2 To dlng
A = Sheets("DATA").Cells(i, 3).Value
B = Sheets("DATA").Cells(i, 5).Value
Set obj = CreateObject("vbscript.regexp")
obj.Global = True
obj.Pattern = "[a-z,A-Z,\s,-]+"
'chaine = "APPROB 10 000EUR"
A = obj.Replace(A, "")
z = A
If z > B Then Sheets("DATA").Cells(i, 1).Interior.ColorIndex = 6
Next i
End Sub
Merci de votre aide
Pièces jointes
Dernière édition: