Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

GRAFCET SUR EXCEL


Information sur la source

Catégorie :Divers Classé sous : grafcet, excel, vba Niveau : Débutant Date de création : 10/01/2003 Date de mise à jour : 10/01/2003 13:47:52 Vu / téléchargé: 12 481 / 1 131

Note :
4 / 10 - par 1 personne
4,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (8)
Ajouter un commentaire et/ou une note

Description

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

Source

  • '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
'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
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de Dino le 10/01/2003 18:42:31

C'est un début, mais il faudrait aumoins rajouter les transitions ... Je ne vois pas bien l'interet de le faire avec excel ... Au fond, ce ne sont que des labels et des lignes ...

signaler à un administrateur
Commentaire de akzo le 10/01/2003 21:33:43

oui peut etre mais je trouve qu'il faut tout mettre car ca aide a trouver des astuces pour tous le monde meme si a premiere vu ca sert a rien

signaler à un administrateur
Commentaire de matrey le 11/01/2003 15:48:10

moi j'aime bien...

signaler à un administrateur
Commentaire de LordBob le 12/01/2003 11:49:38

ca pourrait etre utile pour moi c ce ke je suis en train de faire en cour en plus...

signaler à un administrateur
Commentaire de Fornikator le 18/01/2003 21:34:07

wark et tu rie de ma source sa marche meme pas ta merde

signaler à un administrateur
Commentaire de yohan210 le 20/01/2003 11:21:42

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

signaler à un administrateur
Commentaire de gilou56 le 15/12/2007 19:21:24

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

signaler à un administrateur
Commentaire de lhout0303 le 08/03/2008 15:54:41

bonjour,
j'arrive pas à faire bouger un objet ou une figure sous vb

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Info sur coordonnées en VBA dans une feuille Excel [ par dzeuz ] Recherche d'info en VisualBasicApplicationActuellement je suis à la recherche du code afin de tracer une ligne dans une feuille graphique d'Excel.Cett Ouverture d'un classeur Excel en VBA pour Excel 95 : URGENT [ par Jean-Luc ] J'aimerai ouvrir des fichiers Excel en forçant la mise à jour des liaisons, et ce dans un programme en VBA pourExcel 95 (VBA en français).J'ai essayé boite de dialogue excel et vba [ par cldvax ] je suis nouveau sur ce forum et je vous prie de m'excuser si ma question a deja ete posee.je fais un petit programme de numerologie (juste la decompos vba -> excel [ par jraynald ] depuis vba je réussi à accéder à une feuille excel, mais après je bloque.Je voudrai à partir de vba recherché sur une feuille excel une cellulecontena Activation du code VBA dans Excel [ par yorrick ] J'aimerai pouvoir lancer (ou activer )automatiquement à l'ouverture de monfichier Excel les codes VBA qui se trouvent dans mes feuilles ...Ce sont pou VBA Excel Confirmation automatique de l'ecrasement de fichier [ par JJD ] Lors d'une application VBA, j'enregistre un workbook mais le système me demande de confirmer (manuellement) l'ecrasement du fichier déjà existant sur Fenêtre non modale en VBA / Excel [ par oniros ] Bonjour à tous, Sous Excel 97, je voudrais, lors de l'affichage d'une fenêtre (UserForm), que l'utilisateur ait accès à la feuille se trouvant derrièr Comment démarrer un formulaire avec VBA pour EXCEL? [ par Sylvain ] Est-il possible de démarrer un formulaire de VBA pour EXCEL dès l'ouverture du fichier avec EXCEL 97? Et, si oui, comment SVP. (Une sorte d'autorun po lancer une appli vba excel depuis vb? [ par canto11 ] si quelqu'un pouvais m'aider, si jamais vous avez une solution merci de me la faire parvenir.donc je disais peut-on lancer un programme vba excel qui VBA et Excel [ par Fred ] Comment empecher l'apparition du menu contextuel en cours d'execution d'excel ; de même comment désactiver "CTRL + Pause" pour qu'une macro ne soit pa


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,390 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.