correction de code

[hicham28]

Bonjour et merci de m’aider a corrigé ce code
J’aimerai a l’aide de ce code, enregistrer les numéro composé de dix chiffres sans doublons sur la colonne A.
je peut composer aussi une serie de dix chiffre separé par un point.(exemple : 2153497281.2143854792.2793485127)
Quand je fais la saisie d’un chiffre qui existe déjà au niveau de la colonne A, je reçois un message, mais a force de cliquer sur « vbyes » plusieurs fois, le numéro fini a s’enregistrer sur la colonne A.
parfois je recois aussi le message meme si il y'as pas de doublons,
Merci de m’avoir aidé, je ne sais pas ou j’ai mis l’erreur, et c’est normal d’en avoir vue que je connais peu de chose sur la vba, merci de votre aide.

 

[soenda]

Re : correction de code

Bonjour le fil, hicham28

Tu peux modifier ton code comme suit :

[B]If UCase(tablo(Compteur)) = UCase(cel.Value) Then[/B]
 [B][COLOR=blue]MsgBox "Ce poste existe déjà.", vbInformation, "Attention !"[/COLOR][/B]
[B][COLOR=blue]TextBox1.Value = ""[/COLOR][/B]
[B][COLOR=blue]Exit Sub[/COLOR][/B]
[B]End If[/B]

A plus

 

[néné06]

Re : correction de code

Bonjour le fil, hicham28,Soenda

J'ai le sub par command Button et le vbYesNo. Cela peut donner une piste,mais il faut y ajouter des corrections.

Cordialement

 

[hicham28]

Re : correction de code

Bonjour le fil, Soenda, néné06 , et merci de votre aide,
je ne sais toujours pas ou sont mes erreurs, si par exemple je fais la saisie de deux ou trois séries de 10 chiffres ( ou plus), j'aimerai que le transfert ne s'effectue pas que après si aucune de ces séries de chiffres n'existent déjà pas sur la colonne A,
d'apres ce que j'ai compris, faut faire le teste de tous les elements de la table(tablo) avec tous les cellules, et apres verification de la non presance d'aucune des elements de la table, le transfert s'effectue, et si un des elements de la table est deja present sur la colonne A aucune transfert ne dois s'effectuer,
Merci de m'aider, je suis vraiment bloké.
bonne soiré

 

[néné06]

Re : correction de code

Regarde ce programme et dis nous?
A+

 

[hicham28]

Re : correction de code

Merci, je pense que c'est correct!!! Merci c'est super gentil,
Une seule remarque, en cas de saisie d'un numéro déjà existant, et que je quitte la userform, deux msgbox s'affiche. d'ou ca viens? merci vraiment!!

 

[néné06]

Re : correction de code

Ce phénomène ne se produit pas chez moi ?
Tout est normal et je ne peux expliquer.
Voir si cela se produit chez les autres ?


Bonne soirée

 

[hicham28]

Re : correction de code

merci pour votre aide, c'est vraiment gentil, je pense que cette nomalie viens du faite que je met le code sur l'evenement Exit(ByVal Cancel As MSForms.ReturnBoolean) attaché a la textbox1.
merci a nouveau