Rajout d'une ligne dans tableau en fonction d'une textbox

Le 30/03/2019 à 10:43

Bonjour,

Je voudrais quand j'ouvre l'Userform1 et que j'insert du texte dans les textbox1 et 2 et la combobox1, ceci créer une nouvelle ligne dans le tableau n°2 de la feuille Test 1

Je vous laisse mon tableau en PJ :

7test1.xlsm (68.53 Ko)

Merci d'avance pour votre aide

Le 30/03/2019 à 11:03

Bonjour quentinmgt, le forum,

Pour le principe....

Private Sub CommandButton1_Click()
 Dim dl As Integer
  With Sheets("TEST 1")
    dl = .Range("A" & Rows.Count).End(xlUp).Row + 1
     .Range("A" & dl) = UserForm1.TextBox1
     .Range("B" & dl) = UserForm1.ComboBox1
     .Range("C" & dl) = UserForm1.TextBox2
  End With
     Unload UserForm1
End Sub

7test1.xlsm (59.86 Ko)

Cordialement,

Le 30/03/2019 à 12:02

Bonjour xorsankukai,

Merci pour la réponse, en effet la macro fonctionne !

Mais si le tableau est vide (A2:D2) , la macro saisie la donnée en dehors (A3:D3) et donc n'est pas prise en compte par le tableau et il ne s'étire pas tout seul, je voulais savoir si c'était possible d'écrire la macro en fonction d'un tableau nommé (tableau 2) ?

De plus, comme vous avez pu le voir, j'ai un userform nommé description que dépend d'une combobox, elle me sert de saisie intuitive en fonction d'une cellule ou j'appuie pour faire de la saisie, et j'aimerai savoir si c'était possible que cette macro soit incorporé dans la combobox de mon userform afin de me facilité la tache lors de la saisie ?

merci d'avance

Le 30/03/2019 à 12:23

Re,

Mais si le tableau est vide (A2:D2) , la macro saisie la donnée en dehors (A3:D3) et donc n'est pas prise en compte par le tableau et il ne s'étire pas tout seul, je voulais savoir si c'était possible d'écrire la macro en fonction d'un tableau nommé (tableau 2) ?

Private Sub CommandButton1_Click()

   Dim ListObj As ListObject, Sh As Worksheet, i As Long

    Set Sh = Sheets("TEST 1")
    Set ListObj = Sh.ListObjects("Tableau2")
      i = Sh.Cells(Rows.Count, 1).End(xlUp).Row

    With ListObj
        Sh.Cells(i, 1) = TextBox1
        Sh.Cells(i, 2) = ComboBox1
        Sh.Cells(i, 3) = TextBox2
    End With
        ListObj.ListRows.Add

     Unload UserForm1
End Sub

7test2.xlsm (58.28 Ko)

Cordialement,

Le 30/03/2019 à 14:35

En effet, la macro fonctionne! merci beaucoup!

Et donc, est-ce que c'est possible de rendre la macro de l'userform "Description" fonctionnelle sur la combobox de l'userform 1 ?

Merci encore xorsankukai !

Le 31/03/2019 à 10:39

Bonjour quentinmgt,

Je vois que tu as obtenu une réponse ici:

https://forum.excel-pratique.com/viewtopic.php?f=2&t=122602

8test3.xlsm (59.82 Ko)

Penses à clôturer le sujet,