Discussion :

[Thomas69]

si tu veux le hic
c'est que ce programme marchait tres bien
mais la direction ont change le personnel et ils ne savent pas trop bien faire un planning
donc on m'as ordoner de faire un programme qui va leurs faciliter la vie

j'ai amiliorer le 1er programme
et je voudrais mettre en place un pti bouton pas un truc automatique
qui verifie l'ordre du planing rien de plus
juste mettre un message erreur si c'est pas bon

mais je vais voir si ce week je trouve une facon de trouver une solution


Ps:je pense pas mettre delestage finalement

[tonton fred]

D'apres la fichier que tu as mis, c'est la colonne 3 qu'il faut tester.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub verification()
Dim ValPrec As String, ValSuivante As String, CompareVals as string
Dim i as integer
 
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 sub

Par contre verifie les enchainement dans chrono parce d'apres ca, tout le planning est faux (J'ai fait le test en autorisant certaines parties du planning et c'est bon)

[Thomas69]

oui c'est normal car on enchaine une serie de MF 160 U
ce qui est pas conforme a la chronologie
et que j'ai pas mis tous les produits

en fait je créer une cellule test dans la partie du programme comme ca l'utilisateur iras verifier l'enchainement des produits a coter

j'ai juste a adapter ton programme mtn en verifiant la fameuse cellule test dans la colone de mon choix voila


Merci de ton aide precieuse

Merci a toi aussi ouskel'or



Enfin projet resolu

[ouskel'n'or]

Pour la cellule vide, tu peux faire ça
Je reprends le code de notre tonton

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
21
22
23
Sub verification()
Dim ValPrec As String, ValSuivante As String, CompareVals as string
Dim i as integer, n as integer
 
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;"
Dim n
n = 1
For i = 5 to 58 
    'Recherche de la valeur précédente
    Do While Cells(i, 3).offset(-n,0).Value = "" or i - n <= 5
        n = n + 1
    loop
    if not i - n < 5 then 'une donnée a été trouvée avant la ligne 4
        ValPrec = Cells(i, 3).offset(n,0).Value
        Do While Cells(i, 3).Value = "" or i <= 58
            i = i + 1
        loop
        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)
    endif
next i
End sub

Tu peux déjà tester ça. Comme ça si tes gars partent en congés plusieurs jours, il reviennent et savent tout de suite ce qu'ils ne peuvent pas faire
Edit
J'ai vu Résolu quelque part... Et les cas de figures dont tu parlais ? Des lignes vides, tu peux en avoir plusieurs, non ?

[Thomas69]

Ouskel j'ai teste ton code il ne marche pas du tout
il ne fait rien tout simplement

désolée

mais le programme de tonton
je vais l'adpater
en gros je vais créer une partie sur le planning ou il pouras tester les enchainements comme ca j'ai plus besoin de gerer le nombre de produits qui peuvent s'enchainer plusieurs fois ou le probleme des cases vises

de plus c'est pour des nouveaux ce programme d'ici quelques mois il utiliseront plus la verification