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+