BUG sur tutoriel ?

bonjour à tout le monde,

Je suis en train d'étudier les variables tableaux.

Au chapitre: VIII-C-1. Tentative d'alimentation d'une variable tableau à une dimension via une plage

Dans le 2ème encart de code, un bug se produit " Erreur d'exécution 9: L'indice n'appartient pas à la sélection." sur la ligne que j'ai surligné.

Sub lesArrayCestSimple7()

Dim tboArrayOrmonthViaCellEnCol() As Variant

Dim tboPass As Variant

Dim I As Byte

tboArrayOrmonthViaCellEnCol = Range("A1:A5")

Range("C1:C5") = tboArrayOrmonthViaCellEnCol 'on réécrit sur une colonne adjacente

Stop

tboPass = tboArrayOrmonthViaCellEnCol

MsgBox NombreDimensions(tboPass) ' un tboPass permet d'appeller notre fonction

'à partir de divers array sans souci des noms.

Call AffichMessageBox2(tboPass)

End Sub

Function NombreDimensions(tboPass As Variant) As Integer '(code SilkyRoad sur DVP)

Dim Compteur As Integer

If Not IsArray(tboPass) Then Exit Function

On Error GoTo Fin

Do

Compteur = Compteur + 1

Debug.Print UBound(tboPass, Compteur)

Loop

Fin:

NombreDimensions = Compteur - 1

End Function

Sub AffichMessageBox2(ByRef tboPass As Variant)

Dim I As Byte

Dim J As Byte

Dim affich As String

For I = 1 To UBound(tboPass, 1)

For J = 1 To UBound(tboPass, 2)

affich = affich & tboPass(I, J) & " (" & I & "," & J & ")"

Next J

affich = affich & vbCrLf

Next I

MsgBox affich, , "Tutoriels sur DVP"

End Sub

Quelqu'un saurait-il ce qu'il se passe et Saurait me l'expliquer...?

Merci à tous de partager votre savoir.

A+

Rechercher des sujets similaires à "bug tutoriel"