Contrainte saisie dans combox

[Nyepalo]

Bonjour le forum,

Je souhaite contrôler l'ajout de nom dans une liste en fonction des contraintes suivantes :

1. Tous les champs sont obligatoirement à remplir,
2. Eviter les doublons de matricule,
3. Ajouter le nom suivant à la suite du dernier nom.

Un exemple joint,

Merci d'avance.

 

[CHALET53]

Re : Contrainte saisie dans combox

bonjour

A priori les points 2 et 3 sont réalisés
Pour le point 1 :

For Each ctrl In Controls
If ctrl = "" Then MsgBox ("toutes les zones doivent être remplies"): Exit Sub
Next

Derrière Sheets("Feuil1").Select

a+

 

[Chris24]

Re : Contrainte saisie dans combox

Bonjour,

Au lieu de contrôler s'il y a doublon de matricule lors de la validation, tu peux le faire directement à la frappe dans le champ Matricule.

Déplace le test dans la procédure Matricule_Change()


Cordialement

 

[Nyepalo]

Re : Contrainte saisie dans combox

Merci de vos promptes réactions Chris24 et CHALET53

Chris24, j'accepte ta proposition mais je ne sais l'écrire.
CHALET53, le contrôle marche.

Merci à tous,

 

[Chris24]

Re : Contrainte saisie dans combox

Dans ton formulaire clic droit sur le champ Matricule, clic sur code ce qui t'amène directement dans la procédure Matricule_Change.

Déplace ce code qui est dans ta procédure b_validation_Clik ()

Set result = Range("A3:A1000").Find(What:=Me.Matricule, LookIn:=xlValues, LookAt:=xlWhole)
If Not result Is Nothing Then
MsgBox "Existe déjà"
Exit Sub
End If

Dans la procédure Matricule_Change ()

Bonne journée

 

[Nyepalo]

Re : Contrainte saisie dans combox [RESOLU]

Bonjour le forum,

Merci à tous, mon problème a trouvé solutions.

A+