Discussion :

[Klode784]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Docmarti]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = 0 To 9

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = 0 To 8

[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

[el_slapper]

pour être tranquille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.