Message d'erreur

[apdf1]

Bonjour,

Voila j'ai un message d'erreur quand je veux supprimer une table dans ma listbox
Le message:

Erreur d'exécution "9"
L'indice n'appartient pas à la sélection.

Et la ligne qui surligne

Sheets(ListBox1.List(n)).Delete

Si quelqu'un peut m'aider je le remercie d'avance.

Bon dimanche à tous.

Cordialement
Max

 

[Compte Supprimé 979]

Re : Message d'erreur

Salut Apdf1 😉

Tu boucles sur toutes les valeurs de ta ListBox1 au lieu de ne prendre que la ligne sélectionnée

Essaye ce code

 Dim n As Integer
 For n = ListBox1.ListCount - 1 To 0 Step -1
  If Me.ListBox1.Selected(n) = True Then
    Application.DisplayAlerts = False
    Sheets(ListBox1.List(n)).Delete
    ListBox1.RemoveItem (n)
    Application.DisplayAlerts = True
    ' Effacer la ligne de la base
    Sheets("Base").Rows(3 + n + 1).Delete
  End If
 Next

A+

 

[apdf1]

Re : Message d'erreur

Bonjour Bruno

je te remercie d'avoir répondu mais sa ne marche pas pas ou alors je ne comprend rien ?

@+

Max

 

[stefan373]

Bonjour apdf, bruno et le forum.

Chez moi, cela fonctionne.
Joignez le fichier qui ne fonctionne pas pour jeter un coup d'oeil.

A +

 

[apdf1]

Re : Message d'erreur

Bonjour Stefan

Alors si sa marche chez toi je ne comprend plus rienmoi des que je veux supprimer une table sa me donne un message d'erreur

@+

 

[stefan373]

Re.

Effectivement, après plusieurs essai, cela plante je pense que c'est du fait que en supprimant une feuille, il ne reconnait plus les autres donc comme la feuille n'est reconnue, il dit que celle que vous désirez effacer, n'appartient pas à la liste.
Pour contourner cela, j'ai rajouter deux lignes qui ferme et ré ouvre le userform ainsi la liste est à jour.
Et j'ai également ré ajusté la zone de la listbox car il affichait une ligne vide et qui plantait en essayant de l'effacer.🙂

Je pense que cela devrait fonctionner. A mon avis il devrait y avoir une autre solution que de fermer et ouvrir pour mettre à jour mais là je sèche.😕

A +

Oups oublié le fichier.

 

[apdf1]

Re : Message d'erreur

Re,

Je te remercie baucoup et bonne fin de week end

Max