XL 2016 Remplir un tableau avec un userform.

Staple1600

XLDnaute Barbatruc

• 22 Mars 2018

• #2

Bonsoir le fil, le forum

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

Yusufu ibn Anurahi à dit:

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Joseph Haroun

XLDnaute Junior

• 22 Mars 2018

• #3

Bon

Staple1600 à dit:

Bonsoir le fil, le forum

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Joseph Haroun

XLDnaute Junior

• 22 Mars 2018

• #4

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Mars 2018

• #5

Re

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

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

 

Vote positif 0 Vote négatif

Joseph Haroun

XLDnaute Junior

• 22 Mars 2018

• #6

Staple1600 à dit:

Re

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

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

Cliquez pour agrandir...

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

 

Pièces jointes

• Yusufu ibn Anurahi.xlsm

  21 KB · Affichages: 64

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Mars 2018

• #7

Re

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

Code:

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Mars 2018

• #8

Bonsoir Yusufu, Jean Marie, le Forum 🙂

Ton fichier en retour.

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

 

Pièces jointes

• Yusufu ibn Anurahi.xlsm

  22.8 KB · Affichages: 122

Vote positif 0 Vote négatif

Joseph Haroun

XLDnaute Junior

• 22 Mars 2018

• #9

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Mars 2018

• #10

Bonsoir Lone-Wolf

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Mars 2018

• #11

Re

Pour vider tiens! 😛😀

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Mars 2018

• #12

Re

Unload fait cela très bien la vidange 😉

Yusufu
Cette macro fait mieux le job 😉

VB:

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

 

Dernière édition: 22 Mars 2018

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Mars 2018

• #13

Re

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Mars 2018

• #14

Re

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

 

Vote positif 0 Vote négatif

Joseph Haroun

XLDnaute Junior

• 22 Mars 2018

• #15

Lone-wolf à dit:

Re

Pour vider tiens! 😛😀

Cliquez pour agrandir...

Mer

Lone-wolf à dit:

Bonsoir Yusufu, Jean Marie, le Forum 🙂

Ton fichier en retour.

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif