superbe demo de thierry a modifier

J

jack

Guest
Bonjour à tous

J'ai récupéré une magnifique démo de thierry qui convient presque exactement à mon souhait mais il me faut y apporter une modification que pour l'instant je ne sais pas faire

Son usf permet de supprimer ou d'ajouter le nom de personnesdans une seule combobox
le soucis est que si on supprime tous les noms on peut supprimer l'entête de la liste à savoir 'nom' et si on a joute des noms le tri ne se fait pas et l'une des données n'est plus dans la liste déroulante

est que quelqu'un pourrait se pencher sur la question ?
je voudrais pouvoir utiliser cette démo en ayant une liste vierge au départ pour y ajouter des noms puis en supprimer par la suite soit un ou plusieurs voire tous
merci pour votre aide
ci joint la démo de thierry

slts

jack
 
J

jack

Guest
voici en exclu la démo !!!! [file name=USFcomboboxgestionlist.zip size=13579]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/USFcomboboxgestionlist.zip[/file]
 

Pièces jointes

  • USFcomboboxgestionlist.zip
    13.3 KB · Affichages: 52

deudecos

XLDnaute Impliqué
Salut Jack, le forum,

Je ne vois pas ou est ton probleme, ca marche parfaitement bien chez moi (comme tout ce que fait Thierry entre nous soit dit ! :) )

Je crois que de plus amples explications ne seraient pas de trop...

Bonne soiree

Olivier
 
J

jack

Guest
Bonjour à tous

chez moi cela ne fonctionne pas

1 ) j'efface tous les prénoms par l'usf et noms => ok

2) je saisie dans l'ordre noms, andré, celeda => ok

3) dans la liste en A1 j'ai andré, celeda, noms dans cet ordre là et dans la liste déroulante j'ai celeda et noms => donc la liste n'est pas bonne puisqu'il manque andré


Si quelqu'un peut tester et me dire s'il est confronté au même soucis que moi
Quand à remettre en cause l'excellence de Thierry ...... bien loin de moi cette idée, bien au contraire !!!!



Justine merci pour ta réponse mais ou appliquer cette modification ?

bonne journée à tous

slts
jack
 

_Thierry

XLDnaute Barbatruc
Bonjour Jack, Deudecos, Justine, le Forum

Vieux Motard que Jamis !! C'est par hazard que je vois ce Fil...

A première vu Jack, si tu n'as plus d'entêtes 'Noms' alors il faut modifier le code pour élargir la plage couverte sur 'A1'...

Tout d'abord ici :

Private Sub Ini()
Dim L As Integer
Dim Plage As String

L = Sheets('Feuil1').Range('A65536').End(xlUp).Row
Plage = Sheets('Feuil1').Range('A1:A' & L).Address
ComboBox1.RowSource = 'Feuil1!' & Plage

End Sub


et ici aussi

Private Sub CommandButton2_Click()
Dim L As Integer
Dim Plage As Range
Dim Cell As Range
Dim Msg As Integer
Dim Nom As String
L = Sheets('Feuil1').Range('A65536').End(xlUp).Row
Set Plage = Sheets('Feuil1').Range('A1:A' & L)
Nom = ComboBox1.Value
If Nom = '' Then Exit Sub

   
For Each Cell In Plage
       
If Cell.Value = Nom Then
            Msg = MsgBox('Voulez-Vous Supprimer : ' & Nom, vbYesNo, 'Thierry
's Démo')
               
If Msg = 6 Then
                Cell.EntireRow.Delete
                Ini
                Combo
                Else:
Exit Sub
                Combo
               
End If
       
Else
            Combo
       
End If
   
Next Cell
Combo
End Sub


Bon Dimanche
[ol]@+Thierry[/ol]
 

Statistiques des forums

Discussions
300 793
Messages
1 987 236
Membres
209 746
dernier inscrit
mb1982