Doublons dans un userform

[ciree]

Bonjour,
J'ai besoin de créer un petit fichier sérothèque. Je passe par un userform pour remplir mon tableau excel (Numéro de sérothèque, Date ,etc..). Je dois bloquer l'enregistrement de doublon (même boite, même position) à la validation de mon userform.
Merci pour votre aide.
cirée

 

[Dranreb]

Re : Doublons dans un userform

Oui, mais il ne sert à rien pour la bonne marche de la mise à jour: il est fait en interne par PaquetSsDbl qui utilise pour cela la classe TableIndex.
Vous pourriez aussi bien prévoir un tri de convenance sur sélection d'un titre de colonne comme je le fais parfois pour qu'on puisse classer sur tout ce qu'on veut pour examiner la liste.
Si vous décidez malgré cela d'en figer un dans l'UF sans quitter celui ci, il faut réexécuter Empaqueter derrière.

 

[ciree]

Re : Doublons dans un userform

Un très grand merci pour votre travail,mais le tri est hors de ma portée.
bien cordialement.

 

[ciree]

Re : Doublons dans un userform

Puis-je abuser de votre compétence et vous demander comment créer un bouton Supprimer dans le Userform?
Bien cordialement.

 

[Dranreb]

Re : Doublons dans un userform

Bonjour.
Ce n'est pas très compliqué. Essayez de le faire vous même. Je vais le faire de mon coté pour qu'il en soit muni si je dois le ré-joindre pour une autre raison. Je vais probablement "trainer" le bouton Quitter en appuyant sur Ctrl, et renommer ce nouveau bouton Supprimer. Dans Habiliter, il doit être Enabled si L>0. La Supprimer_Click devrait faire un Delete de la ligne entière de la L ième cellule de la plage Numéro, puis Empaqueter (toujours exécuter Empaqueter après tout changement de position des lignes sinon leurs numéros ne correspondent plus à la réalité dans PaqBoîte).
Autre chose: Ne devrait-on pas agrandir la police des contrôles ?
Je vais l'ouvrir maintenant pour faire tout ça.

Voilà, ça ne m'a pris que quelques minutes.
À +

 

[ciree]

Re : Doublons dans un userform

Je vais essayer mais je n'ai malheureusement pas vos compétences !!!

 

[ciree]

Re : Doublons dans un userform

Je dois avouer que je patauge

 

[Dranreb]

Re : Doublons dans un userform

Bonjour.
Ça me déçoit un peu, je ne vous le cache pas.
Dans le Sub Habiliter ajouter:

Supprimer.Enabled = L > 0

Et la procédure du bouton est vraiment simple :

Private Sub Supprimer_Click()
FSéroth.[Numéro].Rows(L).EntireRow.Delete
Empaqueter ' Parce que les numéros de lignes ont changé
End Sub

Qu'est ce qui vous empêchait de trouver ça ?
À +

 

[Fo_rum]

Re : Doublons dans un userform

Bonsoir,

Bonjour.
Ça me déçoit un peu, je ne vous le cache pas.
...
Qu'est ce qui vous empêchait de trouver ça ?
À +

désolé Dranreb si je te déçois aussi mais je dois avouer que je ne domine pas ces codes* donc que j'ai du mal à les appliquer.
Je m'étais penché un peu sur ce problème et cirée, dans son style, n'était pas loin de la solution.
Je lui propose un seul USF d'inventaire, de suppressions, d'ajout ou de modification.

*Je te promets que je vais les étudier en détails.

 

[Dranreb]

Re : Doublons dans un userform

et cirée, dans son style, n'était pas loin de la solution.

Je peux voir ? je peux voir ?! Si !... Devrais-je regretter d'avoir donné la solution, ou m'en vouloir d'avoir pris sa modestie pour de l'incapacité...
Cordialement.

 

[ciree]

Re : Doublons dans un userform

Je me permets d'intervenir dans votre discussion. Avec la solution devant les yeux, ça parait toujours évident. Je suis admiratif devant votre travail. Un très grand merci.

 

[Fo_rum]

Re : Doublons dans un userform

Bonjour,

je n'aime pas fournir des exemples avec des erreurs donc je joins un fichier corrigé (manquait le point, pas final mais initial) dans

Dl = .Range("A65536").End(xlUp).Row

Désolé pour ceux qui ont déjà ouvert le fichier précédent.

 

[ciree]

Re : Doublons dans un userform

Merci beaucoup.