Grafcet sur excel

Télécharger le projet
Commenter

Description

grafcet simple (pas de boucle OR et AND) realiser avec excel

Source / Exemple : 


'1 coltrole ole -> OLE2
'2 textbox  -> txtorg et txt_ligne_cmd
'1 bouton ->cmd_valide_ligne

Private Sub cmd_valide_ligne_Click()
Dim Excel As Excel.Application
Dim str3, str4  As String
Dim col1, col2 As String
Dim cpt, cpt2 As String
    mvt1 = False
    cpt = "1"
    cpt2 = "2"
    Set Excel = CreateObject("excel.application")
    
    Excel.Workbooks.Add
 
    Me.txtorg = Me.txtorg + Me.txt_ligne_cmd + Chr(13) 'met un caractere de fin  d'activite
    str3 = Me.txtorg
    Do
        'increment de la colone ax
        col1 = "A" & cpt
        col2 = "A" & cpt2
        
        
        str4 = Mid(str3, 1, InStr(1, str3, Chr(13)))
        str4 = Left(str4, Len(str4) - 1)
       
        Excel.Range(col1).Value = str4
        Excel.Range(col2).Rows.RowHeight = 8
        Excel.Range(col2).Value = "|"
        Excel.Range(col1).Borders.Weight = xlMedium
        Excel.Range(col1).Interior.ColorIndex = 44
        str3 = Mid(str3, Len(str4) + 2)
        
        cpt = Str((CInt(cpt) + 2))
        cpt = Right(cpt, Len(cpt) - 1)
        cpt2 = Str((CInt(cpt2) + 2))
        cpt2 = Right(cpt2, Len(cpt2) - 1)
    Loop Until Len(str3) = 0
    
    'formatage de la colone A
    With Excel.Range("a1:a10")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlVAlignCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    'copy du fichier dans excel
    Excel.Worksheets(1).Range("a1:a" + cpt2).Copy
    OLE2.OLETypeAllowed = 1
    OLE2.Action = 5
  
    'ferme l'applique excel
    Excel.DisplayAlerts = False ' mettre a true pour mettre la msgbox de sauvegarde d'excel
    Excel.Application.Quit 'quitte excel
    Set Excel = Nothing

End Sub

Private Sub Form_Load()

End Sub

Conclusion :


si vous voyez une autre solution plus simple je suis preneur.
Pour les commentair ne soyer pas trop dur je ne suis pas informaticien mais automaticien.
merci d'avance
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.