XL 2010 Bug sur tri d'une selection

Laosurlamontagne · 13 Avril 2017

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

Roland_M · 13 Avril 2017

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

Roland_M · 13 Avril 2017

re

peut on savoir si c'est OK ?

et as-tu repris le code après l'édit ?

Laosurlamontagne · 14 Avril 2017

Pardon pour l'inertie de ma réponse. Oui, je viens de tester, ça marche. Merci !!!

XL 2010 Bug sur tri d'une selection

Laosurlamontagne

XLDnaute Occasionnel

Pièces jointes

Roland_M

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

Laosurlamontagne

XLDnaute Occasionnel

Discussions similaires

XL 2010 Bug sur tri d'une selection

Laosurlamontagne

XLDnaute Occasionnel

Pièces jointes

Roland_M

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

Laosurlamontagne

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency