correction de code

soenda

XLDnaute Accro

• 18 Septembre 2010

• #2

Re : correction de code

Bonjour le fil, hicham28

Tu peux modifier ton code comme suit :

Code:

[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 🙂

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 18 Septembre 2010

• #3

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

 

Vote positif 0 Vote négatif

H

hicham28

XLDnaute Occasionnel

• 18 Septembre 2010

• #4

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é

 

Dernière édition: 18 Septembre 2010

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 18 Septembre 2010

• #5

Re : correction de code

Regarde ce programme et dis nous?
A+

 

Vote positif 0 Vote négatif

H

hicham28

XLDnaute Occasionnel

• 18 Septembre 2010

• #6

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

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 18 Septembre 2010

• #7

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

 

Vote positif 0 Vote négatif

H

hicham28

XLDnaute Occasionnel

• 18 Septembre 2010

• #8

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

 

Dernière édition: 18 Septembre 2010

Vote positif 0 Vote négatif