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