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