Discussion :

[Thomas69]

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

[alsimbad]

ya kekchose qui m'echappe

Code :

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

1
2
3
4
5
6
7
 
If Cells(i, 3) = "MF 940 U" Then Chrono = ";MF 135 U;"
ValSuivante = Cells(i, 3).Value donc valsuivante  = MF 940 U
CompareVals = ";" & ValPrec & ";" & ValSuivante & ";"
donc compareval = ;quelchose;MF 940 U;
If Not Chrono Like "*" & CompareVals & "*" 
si  ";MF 135 U;" n'est pas comme  ;quelchose;MF 940 U;

je ne vois pas bien ou tu veux en venir
je peux me tromper, mais si le but est de comparer des doublons par exemple, il vaut mieux
if val suivante = valprécedente then ..
mais bon, j'arrive pas a deviner
pour ce qui de ta question, strictement, la réponse est
if... then
else if ....
else if ...
end if
si, sinon si, sinon si

[Thomas69]

je compare ma valeur precedente et ma valeur suivante pour suivre correctement un enchainement
mais cette solution est trop longue a faire pour tous les produits


et je cherche une solution plus simple ou amiliorer ce code tout simplement