Grafcet sur excel
Soyez le premier à donner votre avis sur cette source.
Vue 25 271 fois - Téléchargée 1 714 fois
Description
grafcet simple (pas de boucle OR et AND) realiser avec excel
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
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
- Grafcet excel
- Dessiner grafcet excel - Meilleures réponses
- Grafcet workbook - Meilleures réponses
- Dessiner grafcet excel - Guide
- ôter protection feuille excel vba - Guide
- Importer fichier txt dans excel vba ✓ - Forum - Visual Basic 6
- Excel automation - Conseils pratiques - C# / .NET
- Vba excel doevents - Conseils pratiques - Visual Basic / VB.NET
8 mars 2008 à 15:54
j'arrive pas à faire bouger un objet ou une figure sous vb
15 déc. 2007 à 19:21
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
20 janv. 2003 à 11:21
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
18 janv. 2003 à 21:34
- Messages postés
-
2865
- Date d'inscription
- samedi 2 novembre 2002
- Statut
- Membre
- Dernière intervention
- 11 mai 2009
1012 janv. 2003 à 11:49
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.