Erreur survient dans VBA

Version imprimable

Bonjour à tous, j'ai parcouru le forum pour trouver du code VBA à insérer dans un userform. Le USF sert à entrer les infos de nouveaux clients. En cliquant sur créer, les renseignements se copient aux endroits pré-établis dans une autre feuille du classeur appelée BDD Clients. Et c'est en cliquant sur créer que l'erreur survient. J'entre alors dans VBA et s'affiche ce qui suit:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub CommandButton1_Click() Dim RNG As Variant Dim i As Byte RNG = Array(TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7, TextBox8, TextBox9) With Sheets("BDD Clients") .Rows(4).Insert For i = 0 To 9 .Cells(4, i + 1).Value = RNG(i).Value Next i End With Unload Me End Sub
L'erreur me montre la ligne 9 que j'ai mis en gras. Malheureusement, je ne sais pas comment corriger l'erreur. Si quelqu'un pourrait m'éclairer en me donnant des explications afin de mieux comprendre. En cliquant pour sortir de VBA, les renseignements inscrits dans le USF se sont quand même copiés aux bons endroits dans la bonne feuille...

Merci de votre aide,

Claude

08/05/2011, 22h11
Docmarti

Bonjour.
Ton tableau RNG() contient 9 éléments numérotés de 0 à 8.
Remplace

Code:

For i = 0 To 9

par

Code:

For i = 0 To 8
08/05/2011, 23h18
Klode784

Merci beaucoup, c'était trop simple. Je n'ai pas encore pris l'habitude de compter à partir de zéro...

Encore merci pour l'aide,

Claude
09/05/2011, 11h38
el_slapper

pour être tranquille :

Code:

For i = LBound(RNG) To UBound(RNG)

(testé et vérifié) ça va chercher automatiquement les limites inférieures et supérieures de ton tableau.

Le jour ou tu rajoutes des choses dans ton tableau, tu n'as alors plus à te poser de questions. Il y a sans doute aussi moyen de faire des choses avec des For Each, mais je maitrise moins.