Argument invalide sur ListIndex

Version imprimable

3 pièce(s) jointe(s)

Bonjour,
Je viens demander votre aide pour un soucis de suppression de données dans des tableaux.
Je vous explique mon problème :
Dans un calendrier, par clic sur une date, je peux soit ajouter une tache, ayant eu lieu ce jour ou qui aura lieu ce jour, ou aller voir dans une ListBox l'ensemble des taches que nous avons écrites avant :
Pièce jointe 356566

Une fois que les données sont inscrites dans une textBox, un tableau, sur une autre feuille, est rempli avec la date et la tache.

Pièce jointe 356569

Donc en suivant ce raisonnement, en cliquant de nouveau sur la date souhaitée (dans cet exemple le 15 Novembre) puis sur le bouton de résumé des taches, je vois apparaitre les taches correspondant à cette tache dans le tableau.

Pièce jointe 356570

Mon bouton supprimir, par fonction, doit supprimer la tache sélectionnée dans la ListBox, et aussi retirer la tache correspondante dans le tableau pour eviter qu'elle ne reaparaisse à l'ouverture suivante.

Mon soucis est que cette opération fonctionne à chaque fois, mais j'obtiens un message d'argument invalide. Les données sont bien supprimées mais cette erreur est présente à chaque fois.

Je vous explique en commentaire mon code ci-dessous.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub CommandButton_Supprimir_Click() 'Cette opération a lieu sur click sur le bouton supprimer Data 'Il s'agit de la fonction definissant Dates comme un Worksheet (Entre autres) For i = 1 To Dates.ListObjects("Dates").ListRows.Count ' Dates est le worksheet où est présent le tableau contenant l'ensemble des dates, et "Dates" est le tableau en question If Dates.ListObjects("Dates").Range(i, 4).Text = Resumo.ListBox_Resumo.Text Then 'La colonne 4 est celle contenant la tache qui est également dans la ListBox, Resumo est le userform, où la ListBox contenant la tache est présente Dates.ListObjects("Dates").ListRows.Item(i - 1).Delete 'Je supprime la ligne entière du tableau Dates correspondant à la tache sélectionnée dans la ListBox Resumo.ListBox_Resumo.RemoveItem (Resumo.ListBox_Resumo.ListIndex) ' Je retire la tache sélectionnée dans la ListBox End If Next i
Pour information la valeur de ListIndex au moment de l'erreur est -1.
J'ai la conviction que mon erreur est évidente et facile à corriger mais je ne réussis pas malgré mes modifications à la trouver.
Si l'un de vous peut m'aiguiller ou m'expliquer mon erreur, je suis preneur

Je m'excuse d'avance en cas d'incompréhension et je suis prêt à reexpliquer toute imprécision !
Merci

03/03/2018, 14h41
mjpmjp

bonjour,
le problème est au niveau du code que tu nous montre pas --> comment est alimentée ta listbox ?

par exemple si ta listbox est reliée directement à ton tableau sur la feuille ,
quand tu supprimes une ligne elle n'est donc plus dans la listbox...

Citation:

Resumo.ListBox_Resumo.RemoveItem (Resumo.ListBox_Resumo.ListIndex)

est peut être en trop....

@+JP

Bonjour, merci de ta réponse et désolé du temps d'attente je n'avais pas accès à mes codes ce week end.
Pour résumer les opérations dans l'ordre :
-Je remplis le tableau situé sur une autre feuille en remplissant une textbox puis en cliquant sur valider. Le code est le suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 Private Sub CommandButton_Validar_Click() Data Dim ultimaLinha As Integer ultimaLinha = Dates.ListObjects("Dates").ListRows.Count If ultimaLinha = 0 Then Dates.ListObjects("Dates").ListRows.Add ultimaLinha = Dates.ListObjects("Dates").ListRows.Count End If If ultimaLinha = 1 Then Dates.ListObjects("Dates").ListRows.Add ultimaLinha = Dates.ListObjects("Dates").ListRows.Count End If If ultimaLinha > 1 Then Dates.ListObjects("Dates").ListRows.Add End If Dates.ListObjects("Dates").Range(ultimaLinha, 1) = ActiveCell.Value Dates.ListObjects("Dates").Range(ultimaLinha, 2) = Nom Dates.ListObjects("Dates").Range(ultimaLinha, 3) = "2018" Dates.ListObjects("Dates").Range(ultimaLinha, 4) = TextBox_Tarefa TextBox_Tarefa.Value = "" End Sub
Comme précedement, l'appel de la fonction Data permet la définition de Dates comme d'un Worksheet.

- Une fois le tableau rempli, à l'ouverture de la ListBox résumé, elle se remplit avec les valeurs correspondantes présentes dans le tableau.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub CommandButton_Resumo_Click() Data Set date1 = Dates.ListObjects("Dates") For i = 1 To date1.ListRows.Count If (date1.Range(i, 1) = ActiveCell.Value) Then If (date1.Range(i, 2) = ActiveCell.ListObject.Name) Then Resumo.ListBox_Resumo.AddItem date1.Range(i, 4) End If End If Next i EDT.Hide Resumo.Show End Sub
Dans ce code je compare les valeurs de la première colonne du tableau (Jour) avec celle de la cellule active, donc celle sur laquelle j'ai cliqué. Ensuite je compare le mois présent dans la colonne 2 du tableau avec le nom du tableau correspondant à la cellule active. Cette démarche me permet de placer les taches du tableau dans le jour adéquat.

-La dernière étape est la suppression si besoin, déjà explicitée dans le premier message

Effectivement je comprends ce que tu dis, toute cette opération n'est pas nécessaire vu que ma listBox est reliée à mon tableau. La ligne que tu me montre peut donc être supprimée. Cependant petite question, lorsque je clique sur supprimer, la ligne de la ListBox ne l'est pas, et il faut que je ferme le userform et que je le relance, puis clique sur résumé pour que cette ligne disparaisse, ce qui est logique vu que l'opération de lien entre le tableau est la listbox se fait sur ce click. J'aimerais cependant que lorsque je clique sur supprimer, la ligne en question disparaisse immédiatement. Suffit-il de copier le code faisant le lien et de le coller sur un click "Supprimer" ?
Merci beaucoup de ton aide

05/03/2018, 15h42
mjpmjp

bonjour,
tu fais une mini sub qui remplie la liste uniquement
cette sub tu l’appelles dans le code du bouton resume et aussi dans le code du bouton supprime...

après avoir supprimé la ligne du tableau , tu appelle ta mini sub pour réinitialiser ta liste ... et c'est tout ;)

@+JP

Super, j'ai crée le module suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub LstBx() Data Set date1 = Dates.ListObjects("Dates") For i = 1 To date1.ListRows.Count If (date1.Range(i, 1) = ActiveCell.Value) Then If (date1.Range(i, 2) = ActiveCell.ListObject.Name) Then Resumo.ListBox_Resumo.AddItem date1.Range(i, 4) End If End If Next i End Sub
Je l'appelle lorsque je clique sur résumé, mais aussi à la fin de ma procédure de suppression de données. Je mets au préalable un .Clear puis j'appelle cette procédure, ça marche parfaitement.
La réponse etait une évidence, je te remercie donc de ta patience et de ton aide pour un sujet aussi simple !
Bien cordialement