Remplir une liste

Version imprimable

21/10/2011, 10h30
leo071

Remplir une liste

Bonjour à tous,

Je souhaite rempli un tableau excel à partir de champs d'écriture que je rempli sur une UserForm.

Mon souci:
- je lance l'UserForm
- je rentre mes données dans les champs
- je clique sur un bouton pour insérer mes données
- les données sont rentrée sur le tableur excel sur la ligne 1 et les champs se vident
- ensuite je veux continuer à remplir mon tableur excel avec d'autres données mais sur la ligne suivante (la ligne 2)
- et ainsi de suite...

Donc je voudrais que mon code fasse le passage de ligne en ligne.
21/10/2011, 11h02
aereno

Bonjour,

Est-ce que le mode 'Formulaire' d'Excel ne répond pas à tes besoins (alimentation d'un tableau Excel via un formulaire)?

Tu peux ajouter le raccourci 'Formulaire' dans ta barre d'accès rapide.

Bonjour,

une méthode pour insérer sur la prochaine ligne vide de la feuille 1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim sh As Worksheet
Dim Ligne As Long
 
Set sh = Sheets("Feuil1")
 
'Recherce la prochaine ligne vide (A devant être une colonne a saisie oligatoire)
Ligne = sh.Range("A" & sh.Rows.Count).End(xlUp).Rows + 1
 
'Ajout d'une ligne de donnée
sh.Range("A" & Ligne).Value = Textbox1.Text
sh.Range("B" & Ligne).Value = Textbox2.Text
sh.Range("C" & Ligne).Value = Textbox3.Text

Bonjour,

Voici une variante pour écrire à partir de la ligne 1.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
Private Sub CommandButton1_Click()
Dim Ligne As Long, i As Integer
    With ThisWorkbook.Worksheets("Feuil1")
        'Recherche la première ligne renseignée dans la colonne A
        Ligne = .Range("A" & .Rows.Count).End(xlUp).Row
        'Détermination de la première ligne vide
        If .Range("A" & Ligne) <> "" Then Ligne = Ligne + 1
        'Ajout d'une ligne de donnée
        .Cells(Ligne, 1) = Me.TextBox1.Text
        .Cells(Ligne, 2) = Me.TextBox2.Text
        .Cells(Ligne, 3) = Me.TextBox3.Text
        'Effacement des TextBox
        For i = 1 To 3
            Me.Controls("Textbox" & i) = ""
        Next i
    End With
End Sub

Cordialement.