Problème de conversion entre VBA et VB6

Question

Slt,







Dans un tableau Excel, je recherche la valeur 2 (qui sera &#233;gale
a combo1 en vb6) dans la colonne (A :A) , en vba cela donne :






    Columns("A:A").Select




    Selection.Find(What:="2",
After:=ActiveCell, LookIn:=xlFormulas, LookAt _




        :=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, MatchCase:= _




        False,
SearchFormat:=False).Activate






     




Je voudrais la transformer et la mettre en vb6.




Voici comment je le transforme avec l&#8217;ouverture du
document Excel :








Private Sub
Command6_Click() 




Dim
AppExcel                    As Object




Dim
horaire2005                 As Object




Dim a                                   As Object




Dim
FichierXls                   As String




Dim
Worksheets                 As String




Dim Columns




  FichierXls =
"c:\horaires2005.xls"




  Worksheets = "a"






  Set AppExcel =
CreateObject("Excel.Application")






  Set ClasseurExcel =
AppExcel.Workbooks.Open(FichierXls)






Columns("A:A").Select




    Selection.Find(What:= combo1,
After:=ActiveCell, LookIn:=xlFormulas, LookAt _




        :=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, MatchCase:= _




        False,
SearchFormat:=False).Activate




 




&#8216;Une fois que la recherche est faite. Je veux aller dans la
m&#234;me lignes 2 cases plus loin que le r&#233;sultat de ma recherche. Comment faire ?
Apr&#232;s je mets la valeur contenue dans une textbox.




 




Merci,




Nico

jpleroisse · Answer

Essaie cette m&#233;thode, sans oublier R&#233;ferences Microsoft Execl  x Object Lybrari
Si tu veux ensuite copier une valeur dans un TextBox:
Private Sub Combo1_Click()
Text1 = Combo1.Text
End Sub

Option Explicit
Dim wkbObj As WorkBook ' D&#233;clare un objet variable.

Private Sub Form_Load()
' D&#233;finit ensuite la variable avec la m&#233;thode GetObject.
Set wkbObj = GetObject _
("C:\Documents and settings\Administrateur\Mes documents\Athl&#233;tisme.xls")


Dim arrPrices(1 To 7)  'Nbre de lignes 
Dim i As Integer
For i = 1 To 7
   ' Remplit le tableau avec sept valeurs issues
   ' de la colonne B de la feuille.
   arrPrices(i) = wkbObj.Worksheets("Liste") _
   .Range("A" & i + 1).Value
 Combo1.AddItem arrPrices(i)
Next i
End Sub

Problème de conversion entre VBA et VB6

1 réponse

Discussions similaires