XL 2019 Doublons dans combobox - aide

thespeedy20

XLDnaute Occasionnel
Bonjour à tous

J'ai repris un exemple de Jacques Boisgontier (merci à lui) pour créer une fiche client......
j'ai un petit soucis avec mon combobox, dès que j'ai plusieurs nom de famille les mêmes avec des prénoms différents, il n'affiche pas les renseignements...j'ai beau cherché l"erreur....je ne vois pas
Pouvez-vous m'aider...

Merci

Oli
 

Pièces jointes

  • thespeedy20 Fiche Client_ebb.xlsm
    539.6 KB · Affichages: 15

sousou

XLDnaute Barbatruc
Bonjour
tu as sans doute modifié le code de jacques Boisgontier;) sinon cela fonctionnerai!
Ou son code ne comportait que sur les noms?
Essai comme ceci. la colonne 1 est une concaténation du nom et du prénom
 

Pièces jointes

  • thespeedy20 Fiche Client_ebb.xlsm
    539.5 KB · Affichages: 8
Dernière édition:

thespeedy20

XLDnaute Occasionnel
Bonjour Sousou,

Son code ne portait que sur les noms...
Ta solution fonctionne à merveille, merci beaucoup....

Une petite chose à te demander, quand je supprime un nom, j'aimerais créer une feuille avec les clients supprimés et pouvoir les reprendre via le formulaire si il revienne....

Encore merci pour ton aide....

Oli
 

sousou

XLDnaute Barbatruc
Tu ajoutes une feuille ("sup")
et dans tu modifies ton code de suppression
Private Sub B_sup_Click()
If MsgBox("Etes vous sûr de suppimer " & f.Cells(Enreg, 1) & "?", vbYesNo) = vbYes Then
Enreg = Me.Enreg
Sheets("sup").Rows(1).Insert
f.Rows(Enreg).Copy Sheets("sup").Range("a1")
f.Cells(Enreg, 1).Resize(, UBound(TblBD, 2)).Delete Shift:=xlUp

raz
Me.Enreg = ""
UserForm_Initialize
End If

End Sub
 

sousou

XLDnaute Barbatruc
Voilà ce que je te proposais,(je ne sais pas trop ce qui c'est passé)
Dans la feuille sup doubleclick sur la ligne pour réincorporé le client.
Voir si ce fonctionnement te convient sinon explique les conditions
 

Pièces jointes

  • thespeedy20 Fiche Client_ebb.xlsm
    544.2 KB · Affichages: 7

thespeedy20

XLDnaute Occasionnel
re,

J'ai testé ... après la suppression de deux clients, j'ai un message d'erreur : erreur exécution 13 , incompatibilité de type

Débogage, me renvois vers Choix1 = Application.Transpose(Application.Index(RngBDs, , 1)).... et je ne sais plus ouvrir le formulaire une fois le débogage fini....
 

thespeedy20

XLDnaute Occasionnel
re,

Cela semble fonctionner correctement, je teste plus en profondeur....
Juste une petite chose au niveau des bordures, quand on ajoute ou on supprime un membre, j'aimerais que les bordures soient faites pour l'ensemble du tableau principale et le tableau des supprimés....

Encore merci pour ton aide précieuse...

Oli
 

sousou

XLDnaute Barbatruc
Bonjour
A la réflexion, et au vue de tes besoins, j'ai remanié entièrement ton fichier en utilisant pour la base de données des objet listsoblect(tableaux)
Ca simplifie le code, et la présentation t'offre beaucoup plus de liberté
A voir ce que tu en penses
 

Pièces jointes

  • Fiche Client_test.xlsm
    544.5 KB · Affichages: 3

Discussions similaires

Statistiques des forums

Discussions
311 734
Messages
2 082 020
Membres
101 872
dernier inscrit
Colin T