XL 2016 Remplir un tableau avec un userform.

[Joseph Haroun]

Bonjour/Bonsoir Forum !
J'ai une difficulté que je tiens à vous exposer sollicitant votre précieuse aide.
En effet je n'arrive pas à remplir les Tableaux excel à l'aide d'un userform. Il y a toujours une ligne vide entre la ligne d'en-tête et la ligne des premières données enregistrées. Comment peut-on corriger cela ? Merci d'avance pour votre aide.
Yussufa

 

[Staple1600]

Bonsoir le fil, le forum

Les bonne habitudes, c'est bien de les préserver

Bonjour !
Je joins un fichier pour illustrer mon besoin. Merci d'avance a tous ceux qui prendront de leur temps pour m'aider.
yusufu

 

[Joseph Haroun]

Bon

Bonsoir le fil, le forum

Les bonne habitudes, c'est bien de les préserver

Bonsoir Staple 1600 !
Je ne suis pas sûr comprendre ce que tu veux dire !

 

[Joseph Haroun]

Salut Staple1600,
Je ne suis pas sûr de comprendre ce que tu veux dire !

 

[Staple1600]

Re

C'est pourtant limpide
J'ai mis les mots en gras

Dans tes précédents fils, tu pensais à joindre un fichier exemple!

 

[Joseph Haroun]

Re

C'est pourtant limpide
J'ai mis les mots en gras

Dans tes précédents fils, tu pensais à joindre un fichier exemple!

Je comprends maintenant. D'accord, voici un des fichiers qui me font voir de toutes les couleurs. Ci-joint !

 

[Staple1600]

Re

Remplaces ton code existant dans l'userform par celui-ci

Private Sub CommandButton1_Click()
Dim oLo As Excel.ListObject, oNLig As ListRow
Set oLo = Sheets("Feuil1").ListObjects(1)
With oLo
    Set oNLig = .ListRows.Add(alwaysinsert:=True)
    oNLig.Range.Cells(1, 1).Resize(, 4) = Array(TextBox1, TextBox2, TextBox3, TextBox4)
End With
End Sub

 

[Lone-wolf]

Bonsoir Yusufu, Jean Marie, le Forum

Ton fichier en retour.

EDIT: dit Jean Marie, on est comme les mots (CROISÉS )

 

[Joseph Haroun]

Merci beaucoup, Staple1600 !
Je vais essayer de les substituer l'un par l'autre et si je suis bloqué, je reviendrai à vous encore. Merci pour pour la rapidité avec laquelle cette solution me parvient.
Yusufu

 

[Staple1600]

Bonsoir Lone-Wolf

Pourquoi la boucle quand on peut s'en passer?
(voir mon précédent message)

 

[Lone-wolf]

Re

Pour vider tiens!

 

[Staple1600]

Re

Unload fait cela très bien la vidange

Yusufu
Cette macro fait mieux le job

Private Sub CommandButton1_Click()
Dim oLo As Excel.ListObject, oNLig As ListRow
Set oLo = Sheets("Feuil1").ListObjects(1)
With oLo
    If IsEmpty(.Range.Cells(2, 1)) Then
    .Range.Cells(2, 1).Resize(, 4) = Array(TextBox1, TextBox2, TextBox3, TextBox4)
    Else
    Set oNLig = .ListRows.Add(alwaysinsert:=True)
    oNLig.Range.Cells(1, 1).Resize(, 4) = Array(TextBox1, TextBox2, TextBox3, TextBox4)
    End If
End With
End Sub

 

[Lone-wolf]

Re

Oui, mais il dois y ajouter me.Chauve , sinon il est obligé de le réafficher.

 

[Staple1600]

Re

Lone-Wolf* et Yusufu
Relire mon précédent message
(*:ton code avait le même problème que le mien)

 

[Joseph Haroun]

Re

Pour vider tiens!

Mer

Bonsoir Yusufu, Jean Marie, le Forum

Ton fichier en retour.

EDIT: dit Jean Marie, on est comme les mots (CROISÉS )

Bonsoir Lone-wolf !
Merci d'avoir réagi à ma préoccupation. Je vais essayer ton code et reviendrai à vous à la moindre difficulté. Encore merci !
Yusufu