• Initiateur de la discussion Initiateur de la discussion BRUNO62
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

BRUNO62

XLDnaute Occasionnel
Bonsoir,

J'ai besoin d'aide, je souhaite alimenter une liste view ligne après ligne à chaque nouvelle saisie à partir de textboxs. Cela ne fonctionne pas car un groupe de lignes est repris et envoyé dans la liste view depuis la dernière saisie.


Avez vous une idée ?

Private Sub CommandButton2_Click()

Dim DL As Long
With Sheets("Feuil1")
DL = .[A65536].End(xlUp).Row + 1
.Range("A" & DL) = ComboBox1
If IsNumeric(TextBox20) Then .Range("B" & DL) = CDbl(TextBox20)
Range("C" & DL) = Me.TextBox21
Range("D" & DL) = Me.TextBox1

End With
With ListView1
DLig = Range("A" & Rows.Count).End(xlUp).Row
For li = 2 To DLig
.ListItems.Add , , Range("A" & li).Value
For k = 2 To 9
.ListItems(.ListItems.Count).ListSubItems.Add , , Cells(li, k).Value
Next
Next
.ListItems.Add , , ""
.ListItems.Item(.ListItems.Count).Selected = True

End With



Merci
A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
177
Réponses
4
Affichages
461
Réponses
10
Affichages
281
Réponses
2
Affichages
404
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
5
Affichages
232
Retour