Grafcet sur excel

Soyez le premier à donner votre avis sur cette source.

Vue 23 946 fois - Téléchargée 1 645 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
mardi 15 novembre 2005
Statut
Membre
Dernière intervention
8 mars 2008

bonjour,
j'arrive pas à faire bouger un objet ou une figure sous vb
Messages postés
1
Date d'inscription
samedi 15 décembre 2007
Statut
Membre
Dernière intervention
15 décembre 2007

Bonsoir yohan210,
peux tu me dire comment ta source fonctionne?
Je ne connais pas encore assez le vba
Quelle est la marche à suivre pour que cela fonctionne?
Cordialement
Messages postés
42
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
1 juin 2006

petit mesage pour FORNIKATOR
ca marche pas???
as-tu excel sur ton pc??
si t'as pas excel c'est normal par ce que t'utilise excel en fond de tache
je dis pas ce que j'ai fait fait est un super code , mais c'est deja mieux que d'ecrire dans un label. le but de VB-France est de mettre des sources utile qui peuvent servir a quelq'un et pas de pouver autre autre son niveau de competence (pour toi c'est plutot d'incompetence)


à bon entendeur salut
Messages postés
43
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
8 juin 2004

wark et tu rie de ma source sa marche meme pas ta merde
Messages postés
2865
Date d'inscription
samedi 2 novembre 2002
Statut
Membre
Dernière intervention
11 mai 2009
10
ca pourrait etre utile pour moi c ce ke je suis en train de faire en cour en plus...
Afficher les 8 commentaires

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.