Voici ma 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
Sub verification21()
 
Dim ValPrec As String, ValSuivante As String, CompareVals As String
Dim i As Integer
 
 
 
For i = 5 To 58
If Cells(i, 3) = "MF 940 U" Then
Chrono = ";MF 135 U;"
 
If Cells(i - 1, 3).Value <> "" Then ValPrec = Cells(i - 1, 3).Value
If Cells(i, 3).Value <> "" Then ValSuivante = Cells(i, 3).Value
CompareVals = ";" & ValPrec & ";" & ValSuivante & ";"
If Not Chrono Like "*" & CompareVals & "*" Then MsgBox ("Probleme a la cellule C " & i)
 
End If
Next i
 
End Sub

elle me permet de verifier l'enchainement chronologique sur un tableu excel
mais j'ai un soucis c'est que j'ai plus de 50 produit a verifier et si je continue avec ce code je vais y passer des mois et des mois a verifier toutes les possibilités


je voulais savoir si il y avait moyent de de faire un programme de ce genre
pour verifier 1 condition avec 2 produits

j'ai les produits MF 940 U et le produit MF 8150 U
je voudrais verifier que les produits MF 135 U; MF 40 U; MF 60 U; MF 8160 U et MF 8160 USP
ne soivent pas apres les 2 produits cité en rouge sinon je fais apparaitre un message

voila ma condition


si on pouvait m'aider ou m'aiguiller ca serait sympa merci pour tous