X
xpugnere
Guest
Bonjour à tous et à toutes!
J'explique mon problème:
Je suis en train de créer une liste sous la forme d'un tableau tout simple à 3 colonnes (producteur, type de déchet, date d'expédition).
Ce tableau doit être créé à partir du contenu de 2 listbox (1 précisant le type de déchet et l'autre le producteur), la date d'expédition fait référence au contenu d'une cellule.
J'aimerais que lorsque je clique sur le bouton "ajouter à la liste", le contenu des 2 listbox et de la cellule précisant la date se mettent dans mon tableau pour remplir la première ligne. Puis une fois la première ligne remplie, je dois pouvoir remplir la prochaine ligne de mon tableau en changeant le contenu des 2 listbox et de la cellule "date d'expédition" et en cliquant sur le bouton "ajouter à la liste" etc...
Le problème dans mon code c'est qu'il remplit toutes les lignes de mon tableau lorsque je clique sur le bouton "ajouter à la liste" (et non la première ligne comme je voudrais).
Voilà mon code:
Merci beaucoup si vous pouvez m'aider parce que la je sèche!!!!
MERCI 😉
J'explique mon problème:
Je suis en train de créer une liste sous la forme d'un tableau tout simple à 3 colonnes (producteur, type de déchet, date d'expédition).
Ce tableau doit être créé à partir du contenu de 2 listbox (1 précisant le type de déchet et l'autre le producteur), la date d'expédition fait référence au contenu d'une cellule.
J'aimerais que lorsque je clique sur le bouton "ajouter à la liste", le contenu des 2 listbox et de la cellule précisant la date se mettent dans mon tableau pour remplir la première ligne. Puis une fois la première ligne remplie, je dois pouvoir remplir la prochaine ligne de mon tableau en changeant le contenu des 2 listbox et de la cellule "date d'expédition" et en cliquant sur le bouton "ajouter à la liste" etc...
Le problème dans mon code c'est qu'il remplit toutes les lignes de mon tableau lorsque je clique sur le bouton "ajouter à la liste" (et non la première ligne comme je voudrais).
Voilà mon code:
Code:
Private Sub CommandButton2_Click()
Call lister
End Sub
Private Sub lister()
Dim I As Integer
I = 15
If Cells(8, 4).Value >= Cells(7, 10).Value And Cells(8, 4).Value <= Cells(8, 10).Value Then
While Cells(I, 2).Value <> "" And Cells(I, 3).Value <> "" And Cells(I, 1).Value <> "" Or I < 50
If Cells(I, 2).Value = "" And Cells(I, 3).Value = "" And Cells(I, 1).Value = "" Then
Cells(I, 3).Value = Cells(8, 4).Value
Cells(I, 2).Value = ComboBox1.Text
Cells(I, 1).Value = ComboBox2.Text
End If
I = I + 1
Wend
Else: MsgBox ("Veuillez entrer une date d'expédition comprise entre la date de début et la date de fin du planning OU changer la date de début du planning.")
End If
End SubMerci beaucoup si vous pouvez m'aider parce que la je sèche!!!!
MERCI 😉