Discussion :

[leo071]

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.

[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.

[jfontaine]

Bonjour,

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

Code :

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

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

[gFZT82]

Bonjour,

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

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
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.