Discussion :

[justin74]

Bonjour,
Je vais essayé d'être clair pour résumer mon problème.
Tout se passe sur la même feuille.
Après avoir rempli des TextBox et réalisé des sélections au sein des ComboBox, je souhaite qu'en appuyant sur un CommandButton, toutes ces données soient transférées dans un tableau (TextBox1 => A22, TextBox2 => B22, ComboBox1 => C22,....................) situé dessous et débutant ligne 22. Voici, l'ébauche de mon code qui ne fonctionne pas:

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 R As Variant
Dim C As Integer
 
RNG = Array("TextBox3", "Combobox1", "TextBox1", "TextBox2", "Combobox2", "Combobox3", "Combobox4", "Combobox6", "Combobox5", "TextBox4")
C = 22
For Each R In RNG
Sheets("Carnet de Sorties").Cells(65000, C).End(xlUp).Offset(1, 0) = Sheets("Carnet de Sorties").Range(R)
C = C + 1
Next R
 
End Sub

D'autre part, il serait intéressant que chaque nouvel ajout se place à la ligne 22.

En espérant que vous pourrez m'aider.
Cordialement.

[mercatog]

Bonsoir

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim RNG As Variant
Dim i As Byte
 
RNG = Array(TextBox3, ComboBox1, TextBox1, TextBox2, ComboBox2, ComboBox3, ComboBox4, ComboBox6, ComboBox5, TextBox4)
With Sheets("Carnet de Sorties")
    .Rows(22).Insert
    For i = 0 To 9
        .Cells(22, i + 1).Value = RNG(i).Value
    Next i
End With
End Sub