XL 2010 Bug sur tri d'une selection

Laosurlamontagne

XLDnaute Occasionnel
Bonjour à tous,

J'ai un bug sur une macro fantastique trouvée ici que j'adapte pour mes besoins. Il s'agit d'une macro permettant de compléter/modifier une liste via un formulaire.

Cependant, il semblerait qu'il y ait un bug si la liste ne contient qu'une seule entrée. Dans l'exemple, tout marche à merveille mais si nous décidons de partir d'une liste où il y aurait une seul entrée: la macro plante (l'exercice est simple: liste vide, ça marche mais si je supprime toutes les entrées sauf une: ça plante).

Je crois comprendre le problème viendrait de la fonction tri des noms qui se perds si le nombre de machin à trier est égale à 1...

Sauriez-vous m'aider à résoudre ce problème? En vous remerciant
 

Pièces jointes

  • FOrmModifCreation.xls
    107.5 KB · Affichages: 27

Roland_M

XLDnaute Barbatruc
Bonjour,

voir ceci à remplacer !

EDIT: j'ai modifié TotLig !

Code:
Private Sub UserForm_Initialize()
   Dim Clé As Variant, TotLig&
   Set f = Sheets("bd")
   TotLig = f.[B65000].End(xlUp).Row - 1 '-1 départ 2'ligne
   Clé = f.Range("B2:B" & f.[B65000].End(xlUp).Row)
   Me.Service.List = Array("Etudes", "Informatique", "Marketing", "Production")
   Me.Loisirs.List = Array("Lecture", "Cinéma", "Vélo", "Natation", "Internet")
  '-------------avec tri---------------
  If TotLig > 1 Then
     Call Tri(Clé, LBound(Clé), UBound(Clé))
     Me.ChoixNom.List = Clé
  Else
     Me.ChoixNom = Clé
  End If
  Me.ChoixNom.ListIndex = -1
  B_ajout_Click
End Sub
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof