XL 2019 Doublons dans combobox - aide

sousou

XLDnaute Barbatruc

• 13 Octobre 2019

• #2

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: 13 Octobre 2019

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 13 Octobre 2019

• #3

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 13 Octobre 2019

• #4

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

 

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 13 Octobre 2019

• #5

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: 14 Octobre 2019

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 15 Octobre 2019

• #6

Bonjour Sousou,

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

Merci d'avance

Oli

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 15 Octobre 2019

• #7

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 15 Octobre 2019

• #8

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

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 15 Octobre 2019

• #9

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 15 Octobre 2019

• #10

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

 

Pièces jointes

• thespeedy20 Fiche Client_ebb.xlsm

  546.1 KB · Affichages: 5

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 15 Octobre 2019

• #11

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 15 Octobre 2019

• #12

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

 

Pièces jointes

• thespeedy20 Fiche Client_ebb.xlsm

  549.3 KB · Affichages: 5

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 15 Octobre 2019

• #13

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 17 Octobre 2019

• #14

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

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 17 Octobre 2019

• #15

Remplacement d'un bouton par un toogleboutton

 

Pièces jointes

• Fiche Client_test.xlsm

  545.8 KB · Affichages: 3

Vote positif 0 Vote négatif