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 :
le problème c'est : quand il veut faire une autre insertion de données , il écrase les données existant .
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
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.
Partager