XL 2019 Doublons dans combobox - aide

[thespeedy20]

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

 

[sousou]

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

 

[thespeedy20]

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]

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]

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

 

[thespeedy20]

Bonjour Sousou,

as tu eu le temps de regarder une petite solution pour moi...

Merci d'avance

Oli

 

[sousou]

je croyais t'avoir renvoyé quelque chose!
je regarde

 

[sousou]

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

 

[thespeedy20]

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

 

[sousou]

Comme je ne veux pas trop toucher à l'appli originale,
J'ai ajouter un combobox

 

[thespeedy20]

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

 

[sousou]

Comme il y a des chose sur le travail de Boisgontier que je ne suis pas très bien.
j'ai bidouiller un peu

 

[thespeedy20]

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]

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

 

[sousou]

Remplacement d'un bouton par un toogleboutton