Discussion :

[Mr l'Ashanti]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sogedic]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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" ?

[Mr l'Ashanti]

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

[Mr l'Ashanti]

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