Impossible de valider des données dans un userform

Question

Je n'arrive pas à comprendre pourquoi, il m'est impossible de valider les données saisies dans mon formulaire. J'ai tenté de réutiliser le code qui m'a été donnée hier sur ce forum mais je ne parviens pas à le faire fonctionner. Merci pour votre aide Cordialement...

Ausecour · Answer

A première vue, pourtant ça arrive bien à exporter les données du formulaire dans ta base de données, si ça ne fonctionne pas car tu renseignes un nom, c'est car tu cherches un nom qui n'est pas encore renseigné, pourrais-tu donner plus d'informations sur ce qui ne marche pas dans ton formulaire? Parce qu'à première vue tout fonctionne.....

Ausecour · Answer

En effet c'est bizarre, si j'essaye juste d'exporter enseignante ça marche, mais ça écrit par dessus l'autre ligne, pour moi le premier soucis c'est que ton bouton validation devrait être séparé en deux boutons, un bouton ajouter, un bouton modifier, dans un cas tu cherches un enregistrement qui est déjà dans la base de données, dans l'autre cas tu te contentes juste d'aller à la première ligne vide, et toi tu as une fonction de modification qui te permet d'exporter et de modifier... Sinon je ne vois pas de soucis sur l'écriture de l'export de la liste enseignante, pour moi ça marche, mais ça efface ta ligne... Je te donne des pistes de résolution mais... Première chose que tu dois faire c'est séparer modification/ajout, dans un cas la ligne d'écriture est celle qui contient la donnée souhaitée (avec un find), dans l'autre cas, la première ligne vide (on fait du range.end(xlup).row). Commence par là et tu commenceras à debuguer ton fichier...

MFerrand · Answer

Ligne = Sheets("BD").&#91;B:B&#93;.Find(ChoixNom, LookIn:=xlValues).Row Cette ligne-là pose certainement problème... Je dirais sur le principe que la validation d'un ajout ou d'une modification d'enregistrement dans une base de données est identique, à un seul élément près, la ligne d'insertion : en cas d'ajout, c'est la première ligne vide... en cas de modification, c'est la ligne origine. Cette ligne on en dispose au choix de l'enregistrement à modifier : il suffit de la conserver pour assurer ultérieurement la validation sur cette ligne ! Plus, de cette façon on n'a plus besoin de se soucier de savoir s'il s'agit d'un ajout ou d'une modif., on a un critère significatif : on dispose d'une ligne, c'est une modif., on n'en dispose pas, c'est un ajout, et on la calcule... Autre aspect : quelle base de calcul d'une ligne d'insertion ? Tu disposes déjà d'une plage nommée élèves , nommée (bien qu'un peu bizarrement de façon dynamique, elle constitue donc une référence te permettant d'intervenir sur ta base de façon sûre à tout moment. Une plage nommée te permet d'y accéder directement sans passer par un autre objet, tu peux donc oublier la feuille et utiliser la plage nommée de ta base pour y accéder directement... Cette plage alimente déjà ta Combo de choix. Lors d'un choix, le .Listindex + 1 de la Combo est le numéro de ligne dans &#91;élèves&#93; (pas dans la feuille, mais tu affectes tes données modifiées à : &#91;élèves&#93;.Cells(ligne, colonne) , ligne étant la ligne que tu as conservé depuis le choix dans la Combo. Et s'il s'agit d'un ajout, ligne n'étant pas définie, tu la définis par : &#91;élèves&#93;.Rows.Count + 1 . Si on récapitule : tu déclares ta variable ligne (qui n'est d'ailleurs pas déclarée) au niveau Module. Dim ligne As Integer Dans ta proc. ChoixNom : ligne = ChoixNom.ListIndex + 1 Mais tu poursuis par : With &#91;élèves&#93; nom = .Cells(ligne, 1) 'etc. C'est quasiment la même chose que ce que tu fais, mais tu cibles directement la base et non la feuille sur laquelle elle se trouve, et tu es en adressage non sur la feuille mais relatif à ta plage nommée de la base. Et validation : Private Sub B_validation_Click() With &#91;élèves&#93; If ligne = 0 Then ligne = .Rows.Count + 1 .Cells(ligne, 1) = nom.Value 'etc. Si ligne n'est pas définie, c'est que tu es en ajout, tu affectes donc le nombre de lignes de ta plage nommée +1. Et tout se déroule pareil, mais l'adressage est plus simple et plus sûr. Il ne faudra pas non plus oublier dans ta proc. d'effacement, lorsque tu réinitialises tes contrôles, de rejouter : ligne = 0 NB- Et tu as encore une bonne marge d'amélioration de ton code si tu te mets en mesure de travailler avec des boucles au lieu de procéder cellule par cellule... Cordialement...

Ausecour · Answer

C'est normal que tu n'arrives pas à lancer ton formulaire, l'erreur te dit que tu as des lignes d'instructions qui se trouvent en dehors du sub, quand on revoit à quoi ça nous ramène on voit tout de suite le soucis : Sub ouvreform() UserForm.Show End Sub Dim ligne As Integer Dim ligne As Integer s'est invité en dehors du Sub et VBA t'empêche de lancer le formulaire car il aperçoit une erreur dans ton Module 1... Si tu passes cette ligne en commentaire ou que tu la supprime, ça t'affichera le formulaire, une des premières choses à faire quand tu es autodidacte en VBA, c'est de comprendre ce que t'affiche le débogage, crois moi, ça permet de mieux orienter la résolution des bugs...

MFerrand · Answer

Re,

Lorsque j'ai conseillé de déclarer une variable niveau Module, il s'agissait du module du Userform, c'est là que tu t'en sers, et tu l'initialises à partir de ce Module...

NB- Les déclarations de niveau Module sont toujours placées en tête de module, de façon qu'elles aient déjà été prises en compte par VBA lors de l'exécution.

Cordialement.

thev · Answer

J'ai procédé à quelques corrections : 1- au niveau syntaxe des "End With" et des "End If" étaient manquants 2- mis en commentaire une ligne posant problème 3- comme expliqué plus haut par M.Ferrand, la variable "ligne" doit être placée en début du module UserForm afin que sa valeur soit disponible dans toutes les procédures du module 4- votre combobox "choixnom" ne doit pas être chargée par la propriété "RowSouce " car son contenu est modifié à l'exécution, ce qui introduit des dysfonctionnements. Il faut la charger par la propriété "List". 5- vous avez introduit dans votre BD une numérotation des colonnes qui me parait superflue. Vous pouvez parfaitement identifier vos colonnes via ce type d'instruction : nom = .Cells(ligne, "A") plutôt que nom = .Cells(ligne,1) NB : Si vous supprimez votre ligne de numérotation des colonnes dans votre BD, il faudra alors mettre à jour la référence de plage ayant pour nom "élèves", comme ceci : =DECALER(BD!$A:$AM;1;;NBVAL(BD!$A:$A)-1) Dernière remarque : utiliser le débogage soit via une exécution pas à pas (touche F8), soit en collant des points d'arrêt (clic gauche sur la bande grise à gauche des instructions ou touche F9)...