Améliorer une macro

Version imprimable

Améliorer une macro

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
Sub nouveau()

    Sheets("interface").Select
    Range("A1").Select
End Sub
Sub produit() 'bouton VALIDER


    Sheets("interface").Select
    'test Additif 744-940U
    Range("f26").Select
    If Trim(UCase(ActiveCell)) = "ATTENTION" Then
    Dim TExte As String
        TExte = "NE PAS PROGRAMMER A LA SUITE :" & Chr$(13)
        TExte = TExte & "MF 135-1 U" & Chr$(13)
         TExte = TExte & "MF 40 U" & Chr$(13)
         TExte = TExte & "MF 60 U" & Chr$(13)
         TExte = TExte & "MF 8160 U" & Chr$(13)
         TExte = TExte & "MF 8160 USP" & Chr$(13)
         TExte = TExte & "MF 8360 U" & Chr$(13)
          TExte = TExte & "1732 P45" & Chr$(13)
           TExte = TExte & "MF 8170 U" & Chr$(13)
            TExte = TExte & "MF 8370 u" & Chr$(13)
        reponse = MsgBox(TExte, vbCritical + vbOKOnly, "ATTENTION AU PROGRAMME")
    End If
    
    Range("F25:G25").Copy

    Sheets("PLANFAB").Select
    If ActiveCell.Column = 3 Or ActiveCell.Column = 9 Then
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    End If
    
For l = 4 To 58

    If Cells(l, 3).Value <> "" Then
        j = l - 1
        While j >= 4 And Cells(j, 3).Value <> Cells(l, 3).Value
            j = j - 1
        Wend
    
        If j = 3 Then
            Cells(l, 5).Value = 1
            Cells(l, 6).Value = Cells(1, 14).Value & Cells(1, 6).Value & " 2001"
            
        Else
            Cells(l, 5).Value = Cells(j, 5).Value + 1
            If Cells(l, 5).Value <= 9 Then
                Cells(l, 6).Value = Cells(1, 14).Value & Cells(1, 6).Value & " 200" & Cells(l, 5).Value
            Else: Cells(l, 6).Value = Cells(1, 14).Value & Cells(1, 6).Value & " 20" & Cells(l, 5).Value
            End If
        End If
    End If

Next
For l = 4 To 58

    If Cells(l, 9).Value <> "" Then
        j = l - 1
        While j >= 4 And Cells(j, 9).Value <> Cells(l, 9).Value
            j = j - 1
        Wend
    
        If j = 3 Then
            Cells(l, 11).Value = 1
            Cells(l, 12).Value = Cells(1, 14).Value & Cells(1, 6).Value & " 3001"
        Else
            Cells(l, 11).Value = Cells(j, 11).Value + 1
            If Cells(l, 11).Value <= 9 Then
                Cells(l, 12).Value = Cells(1, 14).Value & Cells(1, 6).Value & " 300" & Cells(l, 11).Value
            Else: Cells(l, 12).Value = Cells(1, 14).Value & Cells(1, 6).Value & " 30" & Cells(l, 11).Value
            End If
        End If
    End If

Next
End Sub
Sub retour()
    Sheets("PLANFAB").Select
End Sub

Voici mon code
le soucis que j'ai c'est que je voudrais empecher un enchainement de produit (voir en rouge ce sont des contraintes)
Je voudrais verifier la case d'avant de les comparer a mes contraintes et si c'est pas bon je dois verouiller la possibiliter a l'utilisateur d'effectuer l'enchainement

par exemple

j'ai un produit X je peux pas enchainer X et Y a la suite
donc comment je peut faire pour empecher que l'utilisateur ne puisse pas enchainer cette operation

Merci pour votre aide

30/05/2007, 11h39
tonton fred
Bonjour,
Je ne suis pas trop sur d'avoir compris ce que tu veux faire mais peut etre que
Code:

1 2 reponse = MsgBox(TExte, vbCritical + vbOKOnly, "ATTENTION AU PROGRAMME") exit sub
marcherait ? Exit Sub permet de quitter la procedure une fois que la boite de dialogue a ete fermee.
30/05/2007, 11h45
Thomas69

oui je comprends que tu es mal compris

j'ai oublier un truc dans mon code justement
je voudrais verifier la case precedente pour voir si l'enchainement est correcte
et si il n'est pas correcte ca refuse a l'utilisateur de mettre cette enchainement

moi le seul truc que j'ai fait en rouge c'est de prevenir l'utilisateur

ce que je dois faire et de verifier la case d'avant voir si cette case peut enchainer avec la case suivant si c'est pas possible elle ne fait pas l'enchainement

desoler de pas l'avoir dis avant
30/05/2007, 11h56
Thomas69

merci pour l'astuce #
tu aurais une idée pour mon probleme

c'est a dire verifier la case d'avant et la comparer a mes contraintes
30/05/2007, 13h11
ouskel'n'or

Difficile à comprendre... C'est quoi cette "case d'avant" ? Quelle sont tes contraintes
If quoi ? then exit sub ?
A+
30/05/2007, 13h54
Thomas69

j'ai un programme qui gere un planning de fabrication
sur un tableau excel
j'utilise une macro pour ecrire les produits les lots les numero d'ordre et les numeros de produits
par exemple

Mardi je fait 5 produits differents
mf 100
mf250
mf 654
mf456
mf987

le probleme c'est que je dois respecter un odre de fabrication

et pour respecte cette ordre je voudrais rajouter dans ma macro
1er idée

une fonction qui verifie la case au dessus et la case que je vient de faire
pour savoir si l'ordre est correcte selon mes contraintes d'enchainement
(EX:interdit d'enchainer le mf654 apres un mf100 ou un mf987)

si ce n'est pas bon je ne peux pas mettre le produit

ou 2eme idée

je fais une fonction qui verifie le produit que je viens de mettre et qui m'interdit d'enchainer avec d'autres produits c'est a dire ca verrouille mes choix quand je fais le planning

ou 3eme idée

je lance une fonction qui verifie que mes enchainements sont bon
si c'est pas bon ca me colorie la case en rouge par exemple

dans tous les cas il faut que je trouve une fonction qui verifie l'ordre des enchainements des produits
30/05/2007, 14h15
ouskel'n'or

Deux questions :

Citation:

Envoyé par Tu

une fonction qui verifie la case au dessus et la case que je viens de faire pour savoir si l'ordre est correcte selon mes contraintes d'enchainement

(en rouge) 1 - Il est fait, le produit, ou c'est une proposition que tu veux refuser si l'enchaînement de produit n'est pas bon ?

2 - Que veux-tu faire si l'enchaînement n'est pas bon ?
A+
30/05/2007, 14h23
tonton fred

Petite question sur tes contraintes:
Appellons les produits 1,2,3,4,5
Est ce que tu dois obligatoirement les fabriquer dans l'ordre 1,2,3,4,5 ou bien est ce que les contraintes sont plus complexes ? Par exemple 1 doit etre suivi de 2 mais 2 peut etre suivi de 3 ou 4, avec 3 qui peut etre suivi de 4 ou 5 et 4 uniquement de 5 ?

Passque dans le premier cas c'est facile, il suffit d'affecter un index dans l'ordre croissant de fabrication et de verifier que index(i + 1)=index(i) + 1, dans le deuxieme c'est d'autant plus complique que tes contraintes seront nombreuses et a l'arrivee ca risque d'aller plus vite a la main...
30/05/2007, 14h27
Thomas69

Citation:

Envoyé par ouskel'n'or

Deux questions :
(en rouge) 1 - Il est fait, le produit, ou c'est une proposition que tu veux refuser si l'enchaînement de produit n'est pas bon ?

2 - Que veux-tu faire si l'enchaînement n'est pas bon ?
A+

1-c'est une proposition que je veux refuser si l'enchainement est pas bon

2-si l'enchainement est pas bon je voudrais soit colorier la case pour dire que l'enchainement n'est pas bon soit interdire de mettre cette enchainement lors de la création du planning
30/05/2007, 14h32
Thomas69

Citation:

Envoyé par tonton fred

Petite question sur tes contraintes:
Appellons les produits 1,2,3,4,5
Est ce que tu dois obligatoirement les fabriquer dans l'ordre 1,2,3,4,5 ou bien est ce que les contraintes sont plus complexes ? Par exemple 1 doit etre suivi de 2 mais 2 peut etre suivi de 3 ou 4, avec 3 qui peut etre suivi de 4 ou 5 et 4 uniquement de 5 ?

oui ce sont des contraintes complexes
mais je voudrais les simplifer car lors de ma fabrication je dois pas pouvoir enchainer tels produits avec un autre produits

mais dans mon idée de macro c'est de verifier la case d'avant mais pas celle d'apres ce qui simplifie nettement la macro

Citation:

Passque dans le premier cas c'est facile, il suffit d'affecter un index dans l'ordre croissant de fabrication et de verifier que index(i + 1)=index(i) + 1, dans le deuxieme c'est d'autant plus complique que tes contraintes seront nombreuses et a l'arrivee ca risque d'aller plus vite a la main...

la dessus tu as raison mais le soucis je suis apprentis et mon tuteur exige donc je dois faire au sinon adieux mon BTS

mais si je rajoute une fonction qui verifie la case d'avant et que j'interdis de mettre tel produits
ca va permettre a des personnes qui si connaisse pas trop de pouvoir faire la planning

pour ton info j'ai 50 produits environ
30/05/2007, 14h57
tonton fred
Citation:

Envoyé par Thomas69

pour ton info j'ai 50 produits environ

Ah ouai quand meme...
Bon alors comment je ferais a priori (pas forcement le mieux mais c'est deja un debut de reflexion):

Premiere etape:
Creation d'une "feuille des relations possibles" sous la forme d'un tableau a double entree
..........peut etre suivi par 1...2...3...4
Produit
1..................................N..O...O...O
2..................................N..N...O...N
3..................................N..N...N...O

Deuxieme etape:
Lors de la saisie d'un produit, tu cherches dans la ligne 1 le produit et tu en extrait le numero de colonne (Col)
Tu cherches dans la colonne 1 tu cherches le produit precedent et tu en extrait la ligne (Lg)
Et apres, un ptit
Code:

1 2 If Sheets("Relations").Cells(Lg,Col).value="N" Then 'quitter, mettre message, colorier....
30/05/2007, 14h58
Thomas69

ben meme si ton idée est longue je la trouve interessante tout de meme je vais essayer de l'appliquer
par contre si tu pouvais me donner un exemple de code pour allez lire la colone et lire la ligne

je t'en remercie d'avance

(je retrouve des relents d'automatisme, tonton fred ;) )
J'ai une autre solution, moins "gestion d'automatismes" mais VBA quand même
Je crée une chaine de caractères contenant toutes les opérations dans l'ordre chronologique à respecter, séparées d'un... séparateur. Je nomme cette chaîne Chrono.
Ensuite, j'utilise Like
Code:

1 2 3 4 5 Chrono = ";1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16;17;18;19;20;21;22;23;24;25;26;27;28;29;30;31;32;33;34;35;36;37;38;39;40;41;42;43;44;45;46;47;48;49;50;" ValPréc = Cells(i - 1, NoCol).Value ValSaisie = Cells(i, NoCol).Value CompareVals = ";" & ValPréc & ";" & ValSaisie & ";" If Chrono Like "*" & CompreVals & "*" Then MsgBox "C'est ok"
pour tester
Code:

1 2 3 Chrono = ";1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16;17;18;19;20;21;22;23;24;25;26;27;28;29;30;31;32;33;34;35;36;37;38;39;40;41;42;43;44;45;46;47;48;49;50;" CompareVals = ";16;17;" If Chrono Like "*" & CompreVals & "*" Then MsgBox "C'est ok"
Tu as une autre possibilité avec les binaires et and mais là, à expliquer, ça devient tout de suite plus compliqué.
A+

30/05/2007, 15h57
Thomas69

je ne pense pas utiliser ta methode ouskel car je ne comprend pas
alors que celle de tonton je comprend

le seul bemol je sais pas comment ecrire le code de lecture et extraction de la ligne et colone lors de la saisie

si on pouvais me montrer un exemple s'il vous plait

je vous en remercie d'avance
30/05/2007, 16h23
ouskel'n'or

Dommage parce que plus simple, j'ai pas :cry:
Mais la solution de tonton fred devrait convenir.
Juste pour le fun.
Like permet de vérifier si, dans une chaîne de caractères (Chaîne1) se trouve un bout de chaîne de caractères (chaîne2) d'égale longueur ou plus petite.

Dans la chaîne1 tu mets dans le bon ordre la succession des produits que tu peux fabriquer à la suite
Dans chaîne2 la suite que tu as en Ligne et Ligne-1
Si Chaîne2 se trouve dans Chaîne1, c'est que Chaîne2 respecte cette chronologie
Sinon, cépabon
C'est ce que fait like
Condition = Vraie si Chaîne2 like Chaîne1
Ce qui s'écrit

Code:

ok = Chaîne2 like Chaîne1

Ma succession 1;2;3.4... etc n'était là que pour ne pas avoir à remplir ";MF 40 U;MF 60 U;MF 8160 U;MF 8160 USP;MF 8360 U;1732 P45;MF 8170 U;MF 8370 u;" dans le bon ordre ;)
Bon programmation
30/05/2007, 16h23
tonton fred
Citation:

Envoyé par ouskel'n'or

(je retrouve des relents d'automatisme, tonton fred ;) )

J'avoue :oops: Mais ca va ca sent pas trop mauvais l'automatisme

Citation:

Envoyé par Thomas69

je ne pense pas utiliser ta methode ouskel car je ne comprend pas

Moi non plus :koi: , je relirai plus tard...
@Thomas69, je vais repondre a ton pm ici, c'est un peu le principe d'un forum d'avoir des discussions publiques ;)

Donc un exemple:
Pour parcourir la premiere colonne (et donc extraire la ligne), en partant du principe que la premiere reference est a la ligne 2 et la derniere a la 51
Code:

1 2 3 4 5 6 For i = 2 to 51 If sheets("relation").cells(i,1).value = RefPrecedente then Lg = i Exit For End if Next i
Pour la premiere ligne, meme principe:
Code:

1 2 3 4 5 6 For j = 2 to 51 If sheets("relation").cells(1,j).value = RefActuelle then Col = j Exit For End If Next j
Et voila, sheets("relation").cells(i,j).value contient un texte que tu auras mis qui indique si oui ou non RefPrecedente et RefActuelle peuvent se suivre.
Bien sur, ceci doit faire partie d'un module plus large, avec une macro qui affecte RefPrecedente et RefActuelle, colorie les cases...

EDIT
@ouskel'n'or: Merci pour l'explication j'ai compris maintenant, c'est chouette Like dis donc :king:

Citation:

Envoyé par tonton fred

EDIT
@ouskel'n'or: Merci pour l'explication j'ai compris maintenant, c'est chouette Like dis donc :king:

C'est ce que je dis toujours mais on veut pas me croire :cry:
A+ ;)

Ceci dit, on peut faire plus court
Code:

1 2 Chrono = ";MF 40 U;MF 60 U;MF 8160 U;MF 8160 USP;MF 8360 U;1732 P45;MF 8170 U;MF 8370 u;" 'ou le contraire If Chrono Like "*" & ";" & Cells(i-1, NoCol).Value & ";" & Cells(i, NoCol).Value & ";" & "*" Then MsgBox "C'est ok"
Si je l'avais fait "long", c'était pour être plus didactique :mouarf:

30/05/2007, 22h33
Thomas69

Je tiens à vous remercier tous les 2 mon probleme est resolus
merci a ouskel pour avoir eclaircis ta methode