Copie de ligne selectionné d'une texbox et les copier dans u
Bonjour , je suis très novice en vba et je suis bloqué sur un probleme.je sélectionne 1 ou plusieurs ligne dans une texbox et je les copies a l'aide d'un bouton dans une autre page .mais a chaque fois sa m'efface les ligne déjà mise .je voudrais q'u elles se mette a la suite.
Merci a tous
Private Sub CommandButton5_Click()
Dim LigneDestination As Integer
Dim DernLigne As Long
LigneDestination = 2
For i = 0 To ListBox3.ListCount - 1
If ListBox3.Selected(i) = True Then
With Sheets("Feuil2")
.Cells(LigneDestination, 1) = ListBox3.List(i)
.Cells(LigneDestination, 2) = ListBox3.List(i, 1)
.Cells(LigneDestination, 3) = ListBox3.List(i, 2)
.Cells(LigneDestination, 4) = ListBox3.List(i, 3)
.Cells(LigneDestination, 5) = ListBox3.List(i, 4)
.Cells(LigneDestination, 6) = ListBox3.List(i, 5)
.Cells(LigneDestination, 7) = ListBox3.List(i, 6)
.Cells(LigneDestination, 8) = ListBox3.List(i, 7)
.Cells(LigneDestination, 9) = ListBox3.List(i, 8)
.Cells(LigneDestination, 10) = ListBox3.List(i, 9)
End With
LigneDestination = LigneDestination + 1
End If
Next i
End Sub
Bonjour et bienvenue sur le forum
Il serait plus facile de corriger ton code si tu joignais le fichier qui va avec.
Bye !
Bonjour,
En VBA, il est requis que la précision ne soit pas aléatoire !
En commençant par confondre ListBox et TextBox tu ne mets pas tous les atouts de ton côté...
et tu poursuis avec une variable DernLigne que tu omets d'initialiser... puis d'utiliser !
Tu initialises en contrepartie LigneDestination à 2 ! au lieu de DernLigne+1 !
Tu mets donc toutes les chances de ton côté de supprimer tes données existantes...
Ce n'est pas tout (tant qu'on y est !
Et à l'intérieur de cette boucle, une autre boucle t'éviterait une énumération fastidieuse de 10 lignes...
A toi de rectifier tout cela !
Note aussi pour la prochaine fois que l'on apprécie que le code cité dans un post soit mis sous balises Code !
Cordialement.