Discussion :

[Ultradoux]

Bonjour !

Je me creuse la tête depuis plusieurs heures sur ce problème :

J'ai un formulaire dont j'aimerais reporter les champs dans une ligne de tableau. A chaque ajout, le formulaire s'efface et on peut commencer une nouvelle saisie qui sera ensuite ajouter au tableau.

Pour l'instant j'ai codé ça :

Code :

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

1
2
3
4
5
6
Private Sub CommandButton4_Click()
    i = 11
    Range("Facture!B" & i).Value = Me.TextBox1.Value
    TextBox1.Value = ""
    i = i + 1
End Sub

L'erreur est que i est systématiquement remis à 11 à chaque fois que le bouton est activé. Mais je ne sais pas quelle est la ruse à utiliser pour pouvoir incrémenter le numéro de ligne...

Merci !

[BENNASR]

bonjour
on cherchant la dernière ligne non vide et ajouter 1

Code :

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

j = Sheets("NONDETONONGLET").Range("B" & Rows.Count).End(xlUp).Row+1

Pour le cas d'un tableau structuré tu peux procéder ainsi

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
Dim TB As Range
Dim j As Long
Set TB = Range("Tableau2")
j = TB.Rows.Count + 1
TB.Cells(j, 1) = TextBox1.Value
TB.Cells(j, 2) = TextBox2.Value
TextBox1.Value = ""
TextBox2.Value = ""
End Sub

[Ultradoux]

Merci beaucoup BENNASR !

Cependant, comme j'ai réalisé un tableau de données nommé "Facture", il me renvoie la première ligne vide située sous ce tableau, alors que la ligne au-dessus (donc faisant partie du tableau) est vide également.

As-tu une idée pour contourner ce problème ?

J'ai tenté ça :

Code :

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

1
2
3
    Dim ligne As Integer
    ligne = Worksheet("Facture!Tableau1").Range("B" & Rows.Count).End(xlUp).Row + 1
    MsgBox ligne

Mais ça ne lui a pas plu...

[Franc]

Salut, pour un tableau structuré il n'y a pas lieu de chercher la dernière ligne, mais de l'ajouter directement, voici comment:

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
22
23
Sub AjouterContenuTextBoxALaDerniereLigne()
    Dim ws As Worksheet
    Dim Facture As ListObject
    Dim DerniereLigne As ListRow
 
 
    ' Assurez-vous de remplacer "Feuil1" par le nom de votre feuille de calcul
    Set ws = ThisWorkbook.Sheets("Feuil1")
 
    ' Assurez-vous de remplacer "Facture" par le nom de votre tableau structuré
    Set Facture = ws.ListObjects("Facture")
 
    ' Assurez-vous que TextBox1 est une référence valide à votre TextBox
     Set TextBox1 = UserForm1.TextBox1
 
    ' Ajouter une nouvelle ligne à la fin du tableau
    Set DerniereLigne = Facture.ListRows.Add
 
    ' Insérer le contenu de TextBox1 dans la première colonne de la dernière ligne
    DerniereLigne.Range(1, 1).Value = TextBox1.Value
 
    ' Vous pouvez également ajuster les colonnes pour d'autres valeurs TextBox si nécessaire
End Sub

[Ultradoux]

Merci beaucoup Franc !!