Discussion :

[Thomas69]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub verification()
Dim ValPrec As String, ValSuivante As String, CompareVals As String
Dim i As Integer
 
If ActiveCell.Text = ";MF 135 U;" Then
Chrono = ";MF 135 U;MM 71135 U;MM 31762/40;MF 345 U;MM 71791/40;MM 71791/50;MPA 1;PA 71155;MF 50 U;MM 71150 U;MF 160 U;MM RH 71160 U;MM 71160 U;MM 71718/60;MF 360 U;MM 71791/60;MF 370 U;MM 71791/70;MF 175 U;MF 180 U;MF 135 1U;MF 31787;MM 1732 P45;MF 40 U;MF 8150 U;MF 60 U;MF 8160 U;MF 8160 USP;MF 8360 U;MF 8170 U;MF 8370 U;MF 940 U;"
For i = 5 To 58
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)
Next i
End If
End Sub

ce code me permet de verifier un odre de fabrication


le probleme j'ai plusieurs produits et selon le produits j'ai un odre bien precis a faire et a verifier

j'ai mis ce code en place pour un premier produits
mais rien ne se passe

quelqu'un aurait une idée d'aiguillage?

[marsupilami34]

Bonjour,
As tu essayer de voir ce que ca faisait au debogger ?

[Thomas69]

heu... c'est quoi le debogger?

[marsupilami34]

En fait c'est exécuter ton programme au pas à pas.
En fait su clqiues sur le coté gauche d'une de tes liugnes de code tu auras un point d'arrêt (couleur marron). Ensuite tu lances ta marco comme d'habitude et la macro s'arretra à ton point d'arret. Après tu fais F8 pour aller à la ligne suivante. Au moins tu peux deja voir si ton code s'execute et à quels endroits il peut y avoir des pbmes

[Thomas69]

il met en surbrillant jaune la ligne de la condition
et la ligne End If

je vois pas trop mon erreur
a part peut etre une erreur de syntaxe auquel cas il me l'aurait dit
a moins que ce soit sur le activecell


car mon but est de verifier le produit que j'ai mis dans mon planning suit bien un odre chronologique

c'est a dire que je dois verifier la case actuelle avec la case precedente
et ainsi de suite a chaque fois que je retrouve le produit

mais je pense que je dois avoir pas mal d'erreur de code

[illight]

c'est quoi que tu appelle ligne de condition ? tu peux nous mettre la ligne sur laquelle ta macro s'arrete ?
Met aussi des msgbox aussi ici et la pour avoir la valeurs de tes différentes variables pour voir si ça prend les bonnes

De plus, si tu fais :

Code :

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

If ActiveCell.Text = ";MF 135 U;" then

C'est quoi que tu veux faire la ? t'a une cellule d'activée au moins ?

Essaye de mettre un truc du genre :

Code :

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

range("A1").value = ";MF 135 U;"

plutot je pense qu eça marchera mieux

Est-ce vraiment un "=" que tu veux faire ?

[Thomas69]

Code :

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

If Cells(i, 3).Value = ";MF 135 U;" Then

j'ai modifié le code en mettant ceci a la place
mais rien ce passe


tu as raison pour mon activatecells il ne sert a rien du tout une erreur de ma part
je veux mettre un " = " car j'ai plusieurs produits a verifier selon un ordre bien particulier a chaqu'un

mais mon erreur ne peut venir que de la condition je ne vois rien d'autres
je ne suis pas un expert non plus

[ilcocodrillo]

tu es sur d'être sur la bonne feuille ?

Code :

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

If ActiveCell.Text = ";MF 135 U;" Then

perso une condition je la ferai plutôt comme ça pour être sur d'être au bon endroit :

Code :

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

1
2
Sheets("Feuil1").Select
If ActiveCell.Value = ";MF 135 U;" Then

[Thomas69]

non ce n'est pas un probleme de feuille où de localisation

[ilcocodrillo]

alors je ne sais pas mais ce code là passe chez moi, la condition fonctionne, ça je le sais !

[peaceandloveman01]

tu es sur d'être sur la bonne feuille ?

Code :

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

If ActiveCell.Text = ";MF 135 U;" Then

perso une condition je la ferai plutôt comme ça pour être sur d'être au bon endroit :

Code :

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

1
2
Sheets("Feuil1").Select
If ActiveCell.Value = ";MF 135 U;" Then

As tu essayé un truc du genre:

Code :

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

If WorkSheets("Feuil1").Cells(i,3) =";MF 135 U;" then

???
Tu devrais peut-être vérifié aussi la condition après le =

[Thomas69]

Code :

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

If Worksheets("PLANFAB").Cells(i, 3) = ";MF 135 U;" Then

erreur defenie par l'application ou par l'objet


voila ce que j'ai maintenant

[tonton fred]

Bonjour a tous, bonjour Thomas,

Je ne comprends pas trop ce que tu cherches a faire, si je me souvient bien tes cases contiennent seulement "MF 135 U", pas ";MF 135 U;" donc c'est normal que ca passe pas (ou alors tu as modifie ton projet depuis la derniere fois).

Mais normalement le If qui pose probleme est inutile puisqu'il fait double emploi avec le Like. Je te conseillerais de modifier la chaine "chrono" plutot que de rajouter des conditions (encore une fois, si tes besoins n'ont pas change depuis la derniere fois)

[Thomas69]

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 135 U" Then
Chrono = ";MF 135 U;MM 71135 U;MM 31762/40;MF 345 U;MM 71791/40;MM 71791/50;MPA 1;PA 71155;MF 50 U;MM 71150 U;MF 160 U;MM RH 71160 U;MM 71160 U;MM 71718/60;MF 360 U;MM 71791/60;MF 370 U;MM 71791/70;MF 175 U;MF 180 U;MF 135 1U;MF 31787;MM 1732 P45;MF 40 U;MF 8150 U;MF 60 U;MF 8160 U;MF 8160 USP;MF 8360 U;MF 8170 U;MF 8370 U;MF 940 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

Salut tonton


C'est bon j'ai trouvé avec ton explication tonton
une erreur d'ecriture de la condition
maintenant ce bout de code me permet de verifier dans tout mon tableau l'ordre du produit MF 135 et pas les autres
car comme je dit chaque produit a un odre bien particulier a lui meme

il me reste a faire des conditions pour chacun de mes produits et c'est bon