Bonjour ,

j'ai un grand tableau dans une feuille excel ("suivi")ou je dois insérer des données automatiquement , donc pour cela un bouton chercher m'aide à faire ça (il m'affiche un userform qui appartient une listbox ou les données que j'aimerais sélectionnés sont affichés).
dans la listbox je sélectionne les données que je veux et après je clique sur un bouton ok qui enregistre ma sélection dans le tableau de la feuille("suivi").
pour cela j'ai le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton1_Click()
Dim element_select As Boolean
Dim nb_element, i As Integer
element_select = False
nb_element = Chercher.ListBox1.ListCount
With Worksheets("Suivi OS")
Range("a5").Select
For i = 0 To nb_element - 1
If Chercher.ListBox1.Selected(i) = True Then
MsgBox "Bien selectionné"
element_select = True
'ActiveCell.Value = ListBox1.List(i, 0)
ActiveCell.Offset(0, 3) = ListBox1.List(i, 2)
ActiveCell.Offset(0, 4) = ListBox1.List(i, 3)
ActiveCell.Offset(0, 5) = ListBox1.List(i, 4)
ActiveCell.Offset(1, 0).Select
End If
Next
If element_select = False Then
MsgBox "vous n'avez rien selectionné"
End If
End With
End Sub
le problème c'est : quand il veut faire une autre insertion de données , il écrase les données existant .
P.S ( je sais que le problème est dans ActiveCell.offset(0,3) tant qu'il est mentionnée 0 il va toujours insérer dans la première ligne ).

et donc ce que j'aimerai faire et je ne sais pas comment , c'est une boucle qui cherche dans le tableau la dernière ligne enregistrer et il enregistre les nouvelles données juste après
Merci d'avance.