Combobox et textbox

[P@tric€73]

Bonjour tout le monde.

Ci dessous mon fil qui j'espère, trouvera une âme charitable. Apparemment c'est les vacances pour beaucoup de monde... Bande de veinards! Mais c'est bientôt mon cas.

<http://www.excel-downloads.com/html/French/forum/messages/1_100297_100297.htm>

@ +

Patrice

 

[Arnaud]

salut,

un truc un peu comme ça ???

 

[Celeda]

Bonjour,

Pardon Arnaud pour ma question, mais on traduit comment dans excel et en vba:

projet1.vbp
projet1.vbw

svp

merci

Celeda

 

[salim]

Bonsoir Celeda, Arnaud,P@tric€73, et le Forum

Alors un peu comme Celeda,moi aussi je reste perplexe et je sent bien que je vais apprendre encore quelque chôse aujourd'hui sur ce superbe Forum.

Les gars, auriez l'extrême amabilité de me dire pourquoi il met impossible d'ouvrir vos fichier.

@+ salim

 

[Eric C]

Bonsoir le forum
Bonsoir P@tri€e73, Arnaurd, Celeda & Salim

Je pense ,peut être mal, que l'on ne traduit pas, il s'agit d'une application purement V.B.
Bon Week-end à toute & à tous
@ ++ Eric C

 

[P@tric€73]

Bonsoir Arnaud ainsi que tout le forum.

Je t'adresse un grand merci Arnaud car c'est exactement ce que je voulais !!!!

Quand je dis que ce site est tout simplement Excellent je crois être loin du compte.

@ +

Patrice

 

[Celeda]

Bonjour,


Merci Eric C pour ta réponse, cela conforte mon idée de départ, j'avais bien pensé que c'était du vb mais je suis désolée d'insister,

et ben la tite dame elle a toujours pas compris, même si elle frôle de ridicule,

voilà ce que j'ai dans le Zip, si c'est une application purement vb et si on regarde les codes,
comment fait-on pour pour placer tout cela dans visual basic editor car je vous avoue que bien manipulant les usf et un peu le reste, je reste perplexe,
car je n'avais pas vu encore ce genre de fichiers sur le forum, mais il y a toujours une première fois, alors si vous pouviez m'expliquer, je serais aux anges,

il faut mettre en place une combo et coller le dernier code ?
et les codes précédents ils représentent quoi ?

projet1.vbp
Type=Exe
Form=Form1.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\WINDOWS\System32\stdole2.tlb#OLE Automation
IconForm="Form1"
Startup="Form1"
ExeName32="Projet1.exe"
Command32=""
Name="Projet1"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="HP"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1

[MS Transaction Server]
AutoRefresh=1


projet1.vbw ???? je ne sais pas ce que cela veut dire
Form1 = -1, 207, 590, 509, Z, 1, -1, 466, 206, C

form1.frm ca cela doit etre le USF de la combo
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 1590
ClientLeft = 60
ClientTop = 450
ClientWidth = 6195
LinkTopic = "Form1"
ScaleHeight = 1590
ScaleWidth = 6195
StartUpPosition = 3 'Windows Default
Begin VB.ComboBox CboNom
Height = 315
Left = 120
Style = 2 'Dropdown List
TabIndex = 5
Top = 240
Width = 3615
End
Begin VB.TextBox TxtTel
Height = 285
Left = 4680
TabIndex = 4
Top = 240
Width = 1335
End
Begin VB.TextBox TxtFax
Height = 285
Left = 4680
TabIndex = 3
Top = 720
Width = 1335
End
Begin VB.TextBox TxtMob
Height = 285
Left = 4680
TabIndex = 2
Top = 1200
Width = 1335
End
Begin VB.CommandButton CmdQuit
Caption = "Quitter"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2040
TabIndex = 1
Top = 960
Width = 975
End
Begin VB.CommandButton CmdNouv
Caption = "Nouveau"
Height = 375
Left = 600
TabIndex = 0
Top = 960
Width = 975
End
Begin VB.Label LblTél
Caption = "Tél :"
Height = 255
Left = 4080
TabIndex = 8
Top = 240
Width = 375
End
Begin VB.Label LblFax
Caption = "Fax :"
Height = 255
Left = 4080
TabIndex = 7
Top = 720
Width = 375
End
Begin VB.Label LblMob
Caption = "Mob :"
Height = 255
Left = 4080
TabIndex = 6
Top = 1200
Width = 495
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

(à partir de là je suis plus familière mais avant !!!!!! niet)

Public NumTel As Variant
Public NumFax As Variant
Public NumMobile As Variant


Private Sub CboNom_Click()

TxtTel.Text = NumTel(CboNom.ListIndex)

TxtFax.Text = NumTel(CboNom.ListIndex)

TxtMob.Text = NumMobile(CboNom.ListIndex)
End Sub


Private Sub Form_Load()
NumTel = Array("Tel101010101", "Tel202020202", "Tel303030303", "Tel404040404", "Tel505050505")
NumFax = Array("Fax101010101", "Fax202020202", "Fax303030303", "Fax04040404", "Fax505050505")
NumMobile = Array("Mob101010101", "Mob202020202", "Mob303030303", "Mob404040404", "Mob505050505")
CboNom.AddItem "Thierry"
CboNom.AddItem "Brigitte"
CboNom.AddItem "Laurent"
CboNom.AddItem "Dédé"
CboNom.AddItem "Patrice"
End Sub

Merci beaucoup pour votre aide,

Celeda

 

[Arnaud]

re tout le monde,

Celeda, je ne pense pas que cela soit possible d'ouvrir un projet VB sous VBA.
tu peut regarder ce qu'il y a dedans avec le bloc-note mais je crois que ça se limite a ça.....
et le code que tu ne comprend pas correspond au code généré automatiquement le logiciel de prog VB.