Discussion :

[Mr l'Ashanti]

Bonjour à tous.
je m'initie maintenant aux variables tableaux. j'ai essayé de travailler en ressource avant de reproduire ce travail sur la feuille Excel comportant un tableau. je voudrais savoir s'il n'y a pas plus optimal que ce que j'ai écrit?
le but de mon code est de faire un enregistrement .

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton1_Click()
Dim i As Integer: Dim Tablo(): Dim x As Integer
With Sheets(1)
    Tablo = .Range("Tabl").Value
 
    For x = LBound(Tablo) To UBound(Tablo)
    Tablo(x, 1) = TextBox3
    Tablo(x, 2) = TextBox2
    Tablo(x, 3) = TextBox4
 
    .ListObjects(1).ListRows.Add
    i = .Range("b" & Rows.Count).End(xlUp).Row   
    .Range("b" & i) = Tablo(x, 1)
    .Range("c" & i) = Tablo(x, 2)
    .Range("d" & i) = Tablo(x, 3)
    Exit For
    Next
 
End With
 
End Sub

merci de votre attention.

[Jean-Philippe André]

Bonjour,

sans savoir l'objectif exact de ton code, ce qui m'interpelle ici est ton Exit For, qui te fait sortir de ta boucle et donc ne parcourt pas ton tableau, se limitant au premier élément de celui-ci...


Est-ce voulu ?

[Mr l'Ashanti]

merci pour la réponse.
la sortie de la boucle prématurément a été faite sciemment. si je laisse la boucle l'ajout d'une nouvelle ligne se fait mal et ce n'est pas le but de mon code. en ajoutant " exit for " j'obtiens l'enregistrement voulu après la ligne non vide. en fait il ajoute une seule ligne après chaque click alors que sans "exit for", il ajoute à chaque fois à la ligne précédente deux nouvelles lignes.

[Mr l'Ashanti]

Bonjour,

sans savoir l'objectif exact de ton code...


Est-ce voulu ?

j'enregistre des données dans un tableau sur une feuille excel. le but est d'ajouter un nouveau client à la suite de l'ancien. après plusieurs conseils de vos collègues j'ai préféré comprendre les variables tableaux et essayé de les utiliser. j'espère que vous m'avez compris. merci