erreur

[jece]

bonjour à tous
Je viens de faire un petit prog vba et j'ai un message d'erreur 9 :
l'indice n'appartient pas à la sélection mais je ne comprend pas pourquoi.
Quelqu'un pourrait-il m'aider?
merci d'avance
jece

 

[ROGER2327]

Re : erreur

Bonjour jece

Il faut dimensionner votre tableau :

[COLOR="DarkSlateGray"]Sub AffecterValeursTableau(DerniereLigneTableau)
    Dim CompteurLignes As Byte
    Dim CompteurColonnes As Byte
    [COLOR="Red"]ReDim Montableau(1 To DerniereLigneTableau, 1 To 6)[/COLOR]
    For CompteurLignes = 1 To DerniereLigneTableau
        For CompteurColonnes = 1 To 6
        Montableau(CompteurLignes, CompteurColonnes) = Cells(CompteurLignes + 3, CompteurColonnes)
        MsgBox "cellule" & Montableau(CompteurLignes, CompteurColonnes), vbOKOnly
        Next CompteurColonnes
    Next CompteurLignes
End Sub[/COLOR]

ROGER2327
#3149

 

[jece]

Re : erreur

Merci beaucoup
Mes débuts sont difficiles mais je persévère....
encore merci de ton aide
jece