bonjour à tous
dans ce bout de code (petit extrait d'un programme)
Sub compare_3 appelle Sub BubbleSortND_Flexible
je n'arrive pas à comprendre pourque VB me refuse la compilation à la ligne "BubbleSortND_Flexible(tablo1, 0, False)"
pourquoi ?
c'est sans doute évident pour un plus expérimenté que moi
merci...!
dans ce bout de code (petit extrait d'un programme)
Sub compare_3 appelle Sub BubbleSortND_Flexible
je n'arrive pas à comprendre pourque VB me refuse la compilation à la ligne "BubbleSortND_Flexible(tablo1, 0, False)"
pourquoi ?
c'est sans doute évident pour un plus expérimenté que moi
merci...!
VB:
Sub BubbleSortND_Flexible(arr() As Variant, colIndex As Integer, ascending As Boolean)
End Sub
Sub compare_3()
Dim ncol%, wb1 As Workbook
Dim tablo1 As Variant
Dim ws1 As Worksheet
Dim Fichier1 As Variant
Fichier1 = Application.GetOpenFilename("CSV Files (*.CSV), *.csv")
If Fichier1 = False Then MsgBox "Ouvrez '" & Fichier1 & "'...": Exit Sub ' pas de fichier on quitte
On Error Resume Next
Set wb1 = Workbooks.Open(Filename:=Fichier1, Local:=True)
If wb1 Is Nothing Then MsgBox "Ouvrez '" & Fichier1 & "'...": Exit Sub
tablo1 = wb1.Sheets(1).[A1].CurrentRegion.Resize(, ncol) 'matrice, plus rapide
BubbleSortND_Flexible(tablo1, 0, False)
End Sub