Microsoft 365 problème syntaxe

[thenesol]

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...!

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

 

[mapomme]

Bonsoir @thenesol 🙂,

BubbleSortND_Flexible(tablo1, 0, False)

BubbleSortND_Flexible est une procédure (Sub) et pas une fonction (Function) => les parenthèses sont "en trop" autour des arguments.

Écrire : BubbleSortND_Flexible tablo1, 0, False

 

[Dranreb]

Bonsoir.
Et telle que vous l'avez écrite elle attend un tableau de Variant, pas un Variant contenant un tableau de Variant.

 

[thenesol]

merci à vous 2 !
les 2 remarques étaient bonnes, j'ai corrigé
à bientôt (peut être),
Raphaël