Bonjour à tous et meilleurs voeux pour 2005
J'ai fait une macro avec excel que j'ai importé dans vb6, ma macro fait référence à un tableau que bien sur vb ne trouve pas (database) quelle syntaxe dois-je rajouter pour intègre cette feuille de données ou jepeux aussi recréer la feuille sous forme de module ou autre. Désolée je vous colle am syntaxe de mon userform pour mieux comprendre.
 
Option Explicit
 
Private Sub TextBox33_Change()
 
End Sub
 
Private Sub UserForm_Initialize()
Me.TextBox1.MaxLength = 3
Me.TextBox2.MaxLength = 2
Me.TextBox3.MaxLength = 2
End Sub
Private Sub UserForm_Activate()
Me.TextBox1.SetFocus
End Sub
 
Private Sub TextBox1_Change()
If Len(Me.TextBox1) = 3 Then
Me.TextBox2.SetFocus
End If
End Sub
 
Private Sub TextBox2_Change()
If Len(Me.TextBox2) = 2 Then
Me.TextBox3.SetFocus
End If
End Sub
 
Private Sub TextBox3_Change()
Dim Concatenation As String
If Len(Me.TextBox3) = 2 Then
Concatenation = TextBox1 & TextBox2 & TextBox3
Searching Concatenation
End If
End Sub
 
Private Sub Searching(TheString As String)
Dim Plage As Variant
Dim i As Long
 
Me.ListBox1.Clear
Me.ListBox2.Clear
Me.ListBox3.Clear
database est ma feuille de données
Plage = Database.Range("A2:F" & Database.Range("A65536" ).End(xlUp).Row)
 
For i = 1 To UBound(Plage)
If TheString = Plage(i, 1) & Plage(i, 2) & Plage(i, 3) Then
Me.ListBox1.AddItem Plage(i, 4)
Me.ListBox2.AddItem Plage(i, 5)
Me.ListBox3.AddItem Plage(i, 6)
'Exit For '<<<< si on ne veut retourner QU'UNE SEULE occurrence....
End If
Next
End Sub
 
 
Private Sub CommandButton1_Click()
Unload Me
End Sub
 
merci d'avance à tous ceux qui pourront m'aider

Faut ouvrir la feuille sous VB, avec un objet Excel. Regarde du côté de l'automatisation d'Excel

merci de m'avoir répondu mais je n'ai pas vraiment saisi