Accueil > Forum > > > > MESSAGE BOX VBA EXCEL
 MESSAGE BOX VBA EXCEL
mercredi 28 août 2002 à 16:03:27 |
MESSAGE BOX VBA EXCEL
thierrypp
|
THIERRYPP BONJOUR, ESt-il vraiment possible de lancer une macro Excel VBA proposant immédiatement: -chercher (browse) un fichier format .dat ( wordpad) composö de deux colonnes, -limiter l'enregistrement de la rangée à la première, seconde ou troisième jusqu'à un nombre demandé àl'utilisateur, -entrer deux valeurs demandées ä l'utilisateur et les placer en cellule J1 et J2? Merci! Bonne Journeé! Thierrypp |
|
mardi 3 septembre 2002 à 00:03:06 |
Re : MESSAGE BOX VBA EXCEL
TFlorian
|
Bonjour,
je suis desole je ne comprand pas bien la question...
perso j'ais reussi a implanter tout un projet VB4 en VBA et quand je dis tout c'est tout , de la boite de dialogue ouverture de fichier aux timer en passans par les boutons et images !
je pence donc que c'est possible sans bien connaitre VBA et l'application que tu veux fair ...
Je veux bien essayer de t'aider si tu veux ...
TFlorian.
|
|
mardi 3 septembre 2002 à 15:57:28 |
Re : MESSAGE BOX VBA EXCEL MERCI FLORIAN!
thierrypp
|
OUI, MERCI BEAUCOUP,
un fichier se présente sous forme
colonne1 colonne2 text= 25.58
0.00 25.56
0.150 27.85
0.300 28.12
0.450 28.36
.
.
.
.
.
etc...
1- acquerir le nom du fichier filexx.dat ou filexx.txt
reconnaître la première rangée commençant par 0.00
et inscrire sur un fichier Excel le tableau sur les colonnes A et B en commençaunt à la rangée numéro 2,
A1 ( temps)
B1( valeurs)
en cellule J1: on place la valeur de B2
en J2 la valeur numrique détectée après Text="ww.ww" ici par exemple 25.58
est-ce possible?
Merci,
Cordialement, Thierry
THIERRYPP
-------------------------------
Réponse au message :
-------------------------------
Bonjour,
je suis desole je ne comprand pas bien la question...
perso j'ais reussi a implanter tout un projet VB4 en VBA et quand je dis tout c'est tout , de la boite de dialogue ouverture de fichier aux timer en passans par les boutons et images !
je pence donc que c'est possible sans bien connaitre VBA et l'application que tu veux fair ...
Je veux bien essayer de t'aider si tu veux ...
TFlorian.
|
|
mardi 3 septembre 2002 à 15:58:15 |
Re : MESSAGE BOX VBA EXCEL MERCI FLORIAN!
thierrypp
|
OUI, MERCI BEAUCOUP,
un fichier se présente sous forme
colonne1 colonne2 text= 25.58
0.00 25.56
0.150 27.85
0.300 28.12
0.450 28.36
.
.
.
.
.
etc...
1- acquerir le nom du fichier filexx.dat ou filexx.txt
reconnaître la première rangée commençant par 0.00
et inscrire sur un fichier Excel le tableau sur les colonnes A et B en commençaunt à la rangée numéro 2,
A1 ( temps)
B1( valeurs)
en cellule J1: on place la valeur de B2
en J2 la valeur numrique détectée après Text="ww.ww" ici par exemple 25.58
est-ce possible?
Merci,
Cordialement, Thierry
THIERRYPP
-------------------------------
Réponse au message :
-------------------------------
Bonjour,
je suis desole je ne comprand pas bien la question...
perso j'ais reussi a implanter tout un projet VB4 en VBA et quand je dis tout c'est tout , de la boite de dialogue ouverture de fichier aux timer en passans par les boutons et images !
je pence donc que c'est possible sans bien connaitre VBA et l'application que tu veux fair ...
Je veux bien essayer de t'aider si tu veux ...
TFlorian.
|
|
mardi 3 septembre 2002 à 15:58:26 |
Re : MESSAGE BOX VBA EXCEL MERCI FLORIAN!
thierrypp
|
OUI, MERCI BEAUCOUP,
un fichier se présente sous forme
colonne1 colonne2 text= 25.58
0.00 25.56
0.150 27.85
0.300 28.12
0.450 28.36
.
.
.
.
.
etc...
1- acquerir le nom du fichier filexx.dat ou filexx.txt
reconnaître la première rangée commençant par 0.00
et inscrire sur un fichier Excel le tableau sur les colonnes A et B en commençaunt à la rangée numéro 2,
A1 ( temps)
B1( valeurs)
en cellule J1: on place la valeur de B2
en J2 la valeur numrique détectée après Text="ww.ww" ici par exemple 25.58
est-ce possible?
Merci,
Cordialement, Thierry
THIERRYPP
-------------------------------
Réponse au message :
-------------------------------
Bonjour,
je suis desole je ne comprand pas bien la question...
perso j'ais reussi a implanter tout un projet VB4 en VBA et quand je dis tout c'est tout , de la boite de dialogue ouverture de fichier aux timer en passans par les boutons et images !
je pence donc que c'est possible sans bien connaitre VBA et l'application que tu veux fair ...
Je veux bien essayer de t'aider si tu veux ...
TFlorian.
|
|
mardi 3 septembre 2002 à 15:59:00 |
Re : MESSAGE BOX VBA EXCEL MERCI FLORIAN!
thierrypp
|
OUI, MERCI BEAUCOUP,
un fichier se présente sous forme
colonne1 colonne2 text= 25.58
0.00 25.56
0.150 27.85
0.300 28.12
0.450 28.36
.
.
.
.
.
etc...
1- acquerir le nom du fichier filexx.dat ou filexx.txt
reconnaître la première rangée commençant par 0.00
et inscrire sur un fichier Excel le tableau sur les colonnes A et B en commençaunt à la rangée numéro 2,
A1 ( temps)
B1( valeurs)
en cellule J1: on place la valeur de B2
en J2 la valeur numrique détectée après Text="ww.ww" ici par exemple 25.58
est-ce possible?
Merci,
Cordialement, Thierry
THIERRYPP
-------------------------------
Réponse au message :
-------------------------------
Bonjour,
je suis desole je ne comprand pas bien la question...
perso j'ais reussi a implanter tout un projet VB4 en VBA et quand je dis tout c'est tout , de la boite de dialogue ouverture de fichier aux timer en passans par les boutons et images !
je pence donc que c'est possible sans bien connaitre VBA et l'application que tu veux fair ...
Je veux bien essayer de t'aider si tu veux ...
TFlorian.
|
|
mardi 3 septembre 2002 à 15:59:42 |
Re : MESSAGE BOX VBA EXCEL MERCI FLORIAN!
thierrypp
|
OUI, MERCI BEAUCOUP,
un fichier se présente sous forme
colonne1 colonne2 text= 25.58
0.00 25.56
0.150 27.85
0.300 28.12
0.450 28.36
.
.
.
.
.
etc...
1- acquerir le nom du fichier filexx.dat ou filexx.txt
reconnaître la première rangée commençant par 0.00
et inscrire sur un fichier Excel le tableau sur les colonnes A et B en commençaunt à la rangée numéro 2,
A1 ( temps)
B1( valeurs)
en cellule J1: on place la valeur de B2
en J2 la valeur numrique détectée après Text="ww.ww" ici par exemple 25.58
est-ce possible?
Merci,
Cordialement, Thierry
THIERRYPP
-------------------------------
Réponse au message :
-------------------------------
Bonjour,
je suis desole je ne comprand pas bien la question...
perso j'ais reussi a implanter tout un projet VB4 en VBA et quand je dis tout c'est tout , de la boite de dialogue ouverture de fichier aux timer en passans par les boutons et images !
je pence donc que c'est possible sans bien connaitre VBA et l'application que tu veux fair ...
Je veux bien essayer de t'aider si tu veux ...
TFlorian.
|
|
mardi 3 septembre 2002 à 20:06:50 |
Re : MESSAGE BOX VBA EXCEL MERCI FLORIAN!
TFlorian
|
Bonjour....
possible... imposible... quelle bonne question !
A) premiere etape, l'obtention du fichier ...
tu a plusieur posibilitee :
-demander le chemain comple:
Fichier_rep = InputBox("Entree le nom du fichier", "Fichier a ouvrir", "c:\")
-plus compliquer afficher la boite de dialog ouvrir :
1) il faut cree une form dans VBA et y ajouter le controle "Microsoft common dialog control...."
2) ajouter le code suivant dans la macro :
CommonDialog1.ShowOpen
Fichier_rep = CommonDialog1.filename
Bon voila ... tu peut selectionner un fichier par boite de dialog ...
tu peut aussi fair referance a un fichier en utilisant une celule dans excel !
__________________________________
Reconnaissance de la 1er rangee ...
perso moi c'est VB que je connais donc je te ferais passer par la voie VB ...
on vas donc rechercher la chaine 0.00 (puisque tu dis qu'elle determine la 1er ligne...
Dim Donnee1 As String
Dim Donnee2 As String
Dim Donnee3 As String
'On ouvre le fichier qui a ete selectionner ..
Open Fichier_rep For Input As #1
Do While Not EOF(1) ' Vérifie si la fin du fichier
Input #1, Donnee1
If Donnee1 = "0.00" Then
'alors on tien l'entret des collones
GoTo Suite
End If
Loop
Close #1 ' Ferme le fichier.
Suite:
'tu connais le nombre de collones donc:
Input #1, Donnee2, Donnee3
'tu a actuellement la per ligne dans les vadiables Donnee1,Donnee2,Donnee3
'tu les stoques dans ta feuille excel (ou tu veux ...)
Do While Not EOF(1) ' Vérifie si la fin du fichier
Input #1, Donnee1, Donnee2, Donnee3
'tu stoque a nouveau les valleures dans les cellules
'Utilise un systeme incremental pour ne pas ecraser les celules deja ecrites
Indice = Indice + 1
Loop
Close #1
'________________________________________________________
'traitement pour donnee3 (elle contien text="ww.ww" si je ne me trompe pas )
'en fait on vas realise le test suivant :
'Text=12.32 est il seulemant un chiffre . ->non, continue !
' ext=12.32 est il seulemant un chiffre . ->non, continue !
' xt=12.32 est il seulemant un chiffre . ->non, continue !
' t=12.32 est il seulemant un chiffre . ->non, continue !
' =12.32 est il seulemant un chiffre . ->non, continue !
' 12.32 est il seulemant un chiffre . ->Oui STOP !!! vas a suite2
For scan1 = Len(Donnee3) To 0 Step -1
If IsNumeric(Right(Donnee3, scan1)) Then
'ce qui reste est un chiffre ...
'on le stoque dans donnee3 affin d'avoire la bonne valeure !
Donnee3 = Right(Donnee3, scan1)
GoTo Suite2
End If
Next
Suite2:
'_______________________________________
'Bon voila pour ce que j'ais compris ....
'j'espaire que tu vas pouvoire avencer ;-)
'desole pour les fautes :-(
'TFlorian
|
|
mardi 3 septembre 2002 à 21:04:46 |
suiteMERCI FLORIAN!
thierrypp
|
Oui, peut être le mieux serait que nous nous écrivions ;
mon e-mail est: thierrypp@hotmail.com
Merci,
Salutations
thierrypp
THIERRYPP
-------------------------------
Réponse au message :
-------------------------------
OUI, MERCI BEAUCOUP,
un fichier se présente sous forme
colonne1 colonne2 text= 25.58
0.00 25.56
0.150 27.85
0.300 28.12
0.450 28.36
.
.
.
.
.
etc...
1- acquerir le nom du fichier filexx.dat ou filexx.txt
reconnaître la première rangée commençant par 0.00
et inscrire sur un fichier Excel le tableau sur les colonnes A et B en commençaunt à la rangée numéro 2,
A1 ( temps)
B1( valeurs)
en cellule J1: on place la valeur de B2
en J2 la valeur numrique détectée après Text="ww.ww" ici par exemple 25.58
est-ce possible?
Merci,
Cordialement, Thierry
THIERRYPP
-------------------------------
Réponse au message :
-------------------------------
Bonjour,
je suis desole je ne comprand pas bien la question...
perso j'ais reussi a implanter tout un projet VB4 en VBA et quand je dis tout c'est tout , de la boite de dialogue ouverture de fichier aux timer en passans par les boutons et images !
je pence donc que c'est possible sans bien connaitre VBA et l'application que tu veux fair ...
Je veux bien essayer de t'aider si tu veux ...
TFlorian.
|
|
mardi 3 septembre 2002 à 21:06:36 |
suite MERCI TF FLORIAN!
thierrypp
|
Oui, peut être le mieux serait que nous nous écrivions ;
mon e-mail est: thierrypp@hotmail.com
Merci,
Salutations
thierrypp
THIERRYPP
-------------------------------
Réponse au message :
-------------------------------
OUI, MERCI BEAUCOUP,
un fichier se présente sous forme
colonne1 colonne2 text= 25.58
0.00 25.56
0.150 27.85
0.300 28.12
0.450 28.36
.
.
.
.
.
etc...
1- acquerir le nom du fichier filexx.dat ou filexx.txt
reconnaître la première rangée commençant par 0.00
et inscrire sur un fichier Excel le tableau sur les colonnes A et B en commençaunt à la rangée numéro 2,
A1 ( temps)
B1( valeurs)
en cellule J1: on place la valeur de B2
en J2 la valeur numrique détectée après Text="ww.ww" ici par exemple 25.58
est-ce possible?
Merci,
Cordialement, Thierry
THIERRYPP
-------------------------------
Réponse au message :
-------------------------------
Bonjour,
je suis desole je ne comprand pas bien la question...
perso j'ais reussi a implanter tout un projet VB4 en VBA et quand je dis tout c'est tout , de la boite de dialogue ouverture de fichier aux timer en passans par les boutons et images !
je pence donc que c'est possible sans bien connaitre VBA et l'application que tu veux fair ...
Je veux bien essayer de t'aider si tu veux ...
TFlorian.
|
|
Cette discussion est classée dans : message, vba, excel, box, utilisateur
 Répondre à ce message
 Sujets en rapport avec ce message
MESSAGE BOX VBA EXCEL [ par thierrypp ]
THIERRYPP BONJOUR,ESt-il vraiment possible de lancer une macro Excel VBA proposant immédiatement:-chercher (browse) un fichier format .dat ( wordpad)
message Type Incompatible dans Appli VBA [ par cyriaque ]
bonjour à tous,j'ai développé une appli pour le suivi de temps passés sur des projets dans Excel 2000.LE PRINCIPE :les collaborateurs disposent d'une
Envoi d'un message à partir d'un code en VBA sur excel [ par jmq ]
Existe -t-il une fonction en VBA sur excel permettant d'envoyer un message via outlook ? merci
VBA Text Box Word Excel [ par kombakom ]
Bonjour, à partir d'Excel je voudrais remplacer du texte qui se trouve dans des text box dans un document Word.Avez-vous des idées de code?Merci beuco
VBA Excel : message d'alerte lors d'un copier coller [ par Cybertat ]
Bonjour à tous, Dans mon programme en vba je fait un copier coller de plusieurs lignes juste un peu plus haut sur la meme feuille. Le problème, c'est
programmation VBA [ par pierreroux ]
Bonjour,Je suis quasiment débutant sur Visual Basic Application Excel . Je suis en train d'essayer de faire des interfaces conviviales et claires pour
Message de confirmation dans VBA Excel [ par Maxou le petit ]
Bonjour; J'écrit une certains nombre d'instructios dans VBA du style de celle-ci dessous, lorsque le code est exécuté des messages de confirmation s
sécurisation source VBA/excel + code d'utilisation [ par Pat_TOTO ]
Bonjour,J'ai une petite appli en excel (1 fichier Bdd, 1 fichier de formules, 1 fichier appli purement en excel, le tout en VBA) que je souhaite sécur
graph et msgbox avec excel vba [ par kenn5423 ]
Bonjour, Je souhaite créer une boite de dialogue ou l'utilisateur doit rentrer des valeurs numeriques du type : dim E as double msg1 = " Enter a value
Message VBA sur 2 onglets fichier excel [ par avyrex1926 ]
Bonjour à tous, Je voudrais éffectuer sur mon projet une liste de personnes qui n'ont pas eu de formation. Je vous explique comment je vois ça. Dans m
 Livres en rapport
|
Derniers Blogs
 TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Arnault Nouvel et Antoine Dongois Le processus à prendre : Apprendre (découvrir la plateforme) Préparer (documenter l'historique et choisir la méthode de MAJ) Test (Test de MAJ) Implémenter (Effectuer la MAJ) Valid...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
 DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|