MESSAGE BOX VBA EXCEL

Question

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

TFlorian · Answer

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.

thierrypp · Answer

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

thierrypp · Answer

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

thierrypp · Answer

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

thierrypp · Answer

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

thierrypp · Answer

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

TFlorian · Answer

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

thierrypp · Answer

Oui, peut être le mieux serait que nous nous écrivions ;

mon e-mail est:  thierrypp@hotmail.com

Merci, 

Salutations

thierrypp
THIERRYPP

thierrypp · Answer

Oui, peut être le mieux serait que nous nous écrivions ;

mon e-mail est:  thierrypp@hotmail.com

Merci, 

Salutations

thierrypp
THIERRYPP

thierrypp · Answer

Oui, peut être le mieux serait que nous nous écrivions ;

mon e-mail est:  thierrypp@hotmail.com

Merci, 

Salutations

thierrypp
THIERRYPP

MESSAGE BOX VBA EXCEL

10 réponses

Discussions similaires