begin process at 2012 02 16 05:30:03
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Divers

 > GRAFCET SUR EXCEL

GRAFCET SUR EXCEL


 Information sur la source

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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é :16 995 / 1 262

Auteur : yohan210

Ecrire un message privé
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

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources de la même categorie

Source avec Zip TEXTBOX EN NUMÉRIQUE par 320C
Source avec Zip DÉCIMAL TO HEXDECIMAL par loulou27200
SOUS-TITRES : INCRÉMENTATION DE TOUTES LES CHAÎNES DE CARACT... par ALMIRA
Source avec Zip Source avec une capture EVALUER UN NOMBRE D'OBJETS AVEC UNE BALANCE ET DEUX ÉCHANTIL... par lexsty
Source avec Zip Source avec une capture PETIT LOGICIEL DE DEVIS SANS BD par lololilizozo

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture TOURS DE HANOI (JEU) SOUS EXCEL (VBA) par rtoukkys
METTRE EN FORME DU TEXTE WORD DEPUIS EXCEL EN VBA par phanoulevoyou
Source avec Zip Source avec une capture [VBA VB6] FORCER L'OUVERTURE D'UN COMBOBOX par lermite222
Source avec Zip Source avec une capture [VBA] EXCEL - DÉMO - TIRER 1, 2 OU 3 DÉS + APIS par lermite222
Source avec Zip Source avec une capture DEMINEUR SOUS EXCEL par rtoukkys

Commentaires et avis

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 ...

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

Commentaire de matrey le 11/01/2003 15:48:10

moi j'aime bien...

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...

Commentaire de Fornikator le 18/01/2003 21:34:07

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

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

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

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

[VBA EXCEL] Exécution automatique d'une macro [ par harelde78 ] Bonjour à tous,Sous EXCEL (qui est toujours ouvert), je voudrais lancer une macro (qui se trouve dans un module) tous les jours à 19h00. Je voudrais q propriétés des controles entre vba excel et access [ par elfifie ] Est-ce que les propriétés des controles ActiveX sont differentes entre Access et Excel? J'arrive parfaitement à écrire mon programme sur Excel, mais q Personnaliser la barre d'état d'Excel 2007 en VBA [ par jybse ] Jybse Bonjour, Est-il possible de personnaliser la barre d'état d'Excel 2007 par du code VBA ? Merci. problème Date Picker avec excel VBA [ par blafchris ] Bonjour...Je ne sais pas si je suis au bon endroit pour poser ma question mais je le fais quand même :Je travaille avec Win XP SP3 et J'ai une applica Mot de passe oublié... [ par MIXBACARDI ] Bonjour,Je vous explique mon problème:Il y a un an j'ai fait un petit programme avec excel et un tout petit peu de vba ( je suis débutant et pas du to VBA Excel / Plage données graph Excel [ par yoarf ] Dans la plage de données de mon graphique j'ai ceci comme données :=LDD!$A$5:$A$1000;LDD!$E$5:$E$1000Or dans me feuille Excel "LDD", lorsque j'insère VBA Excel / Tableaux [ par yoarf ] Bonjour,Soit la variable "nomtab", chaine de caractère concaténée :Puis ensuite je voudrais que ce "nomtab" corresponde aux différents tableaux que j'


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), 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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,404 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales