{VBA Excel}Probleme de programmation
Voici ma macro
Code:
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