MESSAGE BOX VBA EXCEL

Signaler
Messages postés
31
Date d'inscription
vendredi 7 juin 2002
Statut
Membre
Dernière intervention
1 septembre 2002
-
Messages postés
31
Date d'inscription
vendredi 7 juin 2002
Statut
Membre
Dernière intervention
1 septembre 2002
-
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

10 réponses

Messages postés
194
Date d'inscription
dimanche 3 mars 2002
Statut
Membre
Dernière intervention
19 décembre 2005
3
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.
0
Messages postés
31
Date d'inscription
vendredi 7 juin 2002
Statut
Membre
Dernière intervention
1 septembre 2002

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
0
Messages postés
31
Date d'inscription
vendredi 7 juin 2002
Statut
Membre
Dernière intervention
1 septembre 2002

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
0
Messages postés
31
Date d'inscription
vendredi 7 juin 2002
Statut
Membre
Dernière intervention
1 septembre 2002

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
0
Messages postés
31
Date d'inscription
vendredi 7 juin 2002
Statut
Membre
Dernière intervention
1 septembre 2002

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
0
Messages postés
31
Date d'inscription
vendredi 7 juin 2002
Statut
Membre
Dernière intervention
1 septembre 2002

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
0
Messages postés
194
Date d'inscription
dimanche 3 mars 2002
Statut
Membre
Dernière intervention
19 décembre 2005
3
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
0
Messages postés
31
Date d'inscription
vendredi 7 juin 2002
Statut
Membre
Dernière intervention
1 septembre 2002

Oui, peut être le mieux serait que nous nous écrivions ;

mon e-mail est: thierrypp@hotmail.com

Merci,

Salutations

thierrypp
THIERRYPP
0
Messages postés
31
Date d'inscription
vendredi 7 juin 2002
Statut
Membre
Dernière intervention
1 septembre 2002

Oui, peut être le mieux serait que nous nous écrivions ;

mon e-mail est: thierrypp@hotmail.com

Merci,

Salutations

thierrypp
THIERRYPP
0
Messages postés
31
Date d'inscription
vendredi 7 juin 2002
Statut
Membre
Dernière intervention
1 septembre 2002

Oui, peut être le mieux serait que nous nous écrivions ;

mon e-mail est: thierrypp@hotmail.com

Merci,

Salutations

thierrypp
THIERRYPP
0