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
 

Fichiers joints

sousou

XLDnaute Accro
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
 

Fichiers joints

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 Accro
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
 

thespeedy20

XLDnaute Occasionnel
re,

Merci , c'est impeccable.....jusque maintenant

Et pour reprendre éventuellement les supprimés via le formulaire ? pour qu'ils réintègrent la base de donnée.... tu as une idée....


Oli
 
Dernière édition:

sousou

XLDnaute Accro
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
 

Fichiers joints

thespeedy20

XLDnaute Occasionnel
re,

j'aurais aimé récupérer le client par un combobox ( car je peux avoir plusieurs clients dans les supprimés, et donc choisir ) sur le formulaire afin de pas quitter et revenir ... j'espère que cela est possible...

Merci d'avance
 

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 Accro
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
 

Fichiers joints

thespeedy20

XLDnaute Occasionnel
Bonjour Sousou,

Merci, pour cette nouvelle version.....

Au niveau de l'assurance, c'est un checkbox, il indique vrai ou faux, est il possible qu'il indique dans la cellule en ordre ou en attente....
Pour le reste , cela me convient parfaitement....les tableaux sont très bien réalisés....c'était une très bonne idée....

Merci Sousou
 

sousou

XLDnaute Accro
Re
Une chexbox renvoi false ou true.
Tu peux toujours ajouter une colonne qui teste avec une formule si faux, attente sinon en ordre, et tu masque la colonne assurance??...:confused:
Voir fichier joint
 

Fichiers joints

thespeedy20

XLDnaute Occasionnel
Bonsoir,

@ Jacques Boisgontier, merci pour cette très bonne idée.....
@sousou, c'est très bien, il manque juste la recherche en frappant les premières lettres dans combobox aussi bien dans la base que pour les supprimés, et je pense que tout sera opérationnel

Merci pour votre aide

Oli
 

Discussions similaires


Haut Bas