code pour modification d'une base de données

bjr a vous forum
j'ai ecris ce code par moi même pour pouvoir modifier ma base de données.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Dim DLS As Long, DL As Long   With Sheets("source") DL = Sheets("source").Range("b6500").End(xlUp).Row - 1 If T_prenoms1.Value <> "" Then DLS = DL + 1 Sheets("source").Range("c" & DLS) = Me.T_prenoms1 Sheets("source").Range("d" & DLS) = Me.T_sexe1 Sheets("source").Range("e" & DLS) = Me.T_niveauC Sheets("source").Range("f" & DLS) = Me.T_ecoleC Sheets("source").Range("g" & DLS) = Me.T_nationalite1 Sheets("source").Range("h" & DLS) = Me.T_date1 Sheets("source").Range("i" & DLS) = Me.T_lieu1 Sheets("source").Range("j" & DLS) = Me.T_localite1 Sheets("source").Range("k" & DLS) = Me.T_extrait1 Sheets("source").Range("l" & DLS) = Me.T_lieu_etabli1 Sheets("source").Range("m" & DLS) = Me.T_date_etabli1 Sheets("source").Range("n" & DLS) = Me.T_sp1 Sheets("source").Range("o" & DLS) = Me.T_niveauA Sheets("source").Range("p" & DLS) = Me.T_ecoleA Sheets("source").Range("q" & DLS) = Me.T_dfaA Sheets("source").Range("r" & DLS) = Me.T_niveauB Sheets("source").Range("s" & DLS) = Me.T_ecoleB Sheets("source").Range("t" & DLS) = Me.T_dfaB Sheets("source").Range("u" & DLS) = Me.T_dfaC Sheets("source").Range("ac" & DLS) = Me.T_photo2     End If End With

---

mais apparemment son fonctionnement est fait en sorte qu'on doit cliquer deux fois sur le bouton valider (bizarre) . en plus lorsqu'il y a une case vide que je n'ai pas rempli lors de l'enregistrement pour manque d'informations, je ne peux pas compléter la cellule lors d'une modification. j'ai essayé avec offset mais je n'ai pas trouver bien de cause.
je note que mes textbox pour la modification sont en relation avec la listbox. pour que j'apporte une modification sur les références d'un élève il faut que je sélectionne dans la listbox et ensuite ils sont chargés pour les modifications.

je laisse mon fichier beta pour plus de compréhension

Bonjour

Demain je reprends le boulot donc je ne pourrais plus t'aider, mais un dernier conseil pour plus de lisibilité, de flexibilité et de vérification
Tu peux remplacer

Code:

---

1 2	Sheets("source").Range("c" & DL) = Me.T_prenoms Sheets("source").Range("d" & DL) = Me.T_sexe

---

par

Code:

---

1 2 3 4

With Sheets("source") .Cells(DL, .Rows(1).Find("NOM & PRENOMS").Column).Value = Me.T_prenoms .Cells(DL, .Rows(1).Find("SEXE").Column).Value = Me.T_sexe End With

---

sinon ta demande n'est pas assez précise : quel formulaire ? quel onglet du formulaire, quel champ … ?? Je n'ai pas vu de bouton "valider" ?

merci sogedic pour ton aide.vraiment encore merci
le bouton valider modification se trouve dans la troisieme page du formulaire userform_enreg

je voudrais présenter ce projet à mon inspecteur pour faciliter l'enregistrement des élèves des différents établissements dès la rentrer scolaire prochaine. ce pourquoi je passe souvent des heures à travailler et améliorer l'application. donc avec votre appui je souhaiterais que vous m'aidiez vraiment. je suis déjà au 3/4 de la fin. il ne me reste que la partie recherche(page 3 et page 1 du formulaire), la modification des références ( page 3 du formulaire).

merci poor tout