Discussion :

[Mr l'Ashanti]

Bjr. Suis un débutant en VBA. Je souhaiterais aider mes collègues enseignants pour leur faciliter l'enregistrement des élèves dans leurs établissements.
Voici mon problème : j'ai créé un commandbutton qui a deux fonctions enregistrer et modifier. Mais la deuxième fonction ''modifier'' je ne sais comment faire . J'ai mis plusieurs codes mais rien au niveau des cellules. En fait après recherche dans la combo box, les références de l'élève s'affiche dans les différentes textbox et là je porte des modifications mais hélas cela ne marche pas.
Si quelqu'un pouvait m'aider ça sera un plaisir énorme pour moi. Merci.

[Thautheme]

Bonjour Niamké, bonjour le forum,

Donne-nous au moins ton code pour que nous puissions t'aider !...

[Mr l'Ashanti]

Ok. Mais comment faire pour mettre mon fichier ici.

[Thautheme]

Re,

Le code pour le moment... Sinon juste en dessous il y a un bouton Gérer les pièces jointes...

[Mr l'Ashanti]

bonjour thautheme.voici mon fichier. excuse moi du retard car j avais un probleme avec ma connection
APPLICATION D' ENREGISTREMENT DES ELEVES.xlsm

[Thautheme]

Re,

Que de complications !...

Les modifs :
• Au début :

Code :

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

1
2
Option Explicit
Private LI As Integer

• au changement dans la ComboBox de recherche par nom

Code :

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

1
2
3
4
5
Private Sub Cbo_search_Change()
'...
cherche = Cbo_search.Value
z = Sheets("source").Cells.Find(what:=cherche, LookIn:=xlValues, lookat:=xlWhole, SearchOrder:=xlNext).Row
LI = z

• Au changement dans la ComboBox de recherche par matricule

Code :

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

1
2
3
4
5
Private Sub Cbo_mat_Change()
'...
cherche = Cbo_mat.Value
z = Sheets("source").Cells.Find(what:=cherche, LookIn:=xlValues, lookat:=xlWhole, SearchOrder:=xlNext).Row 'afficher les données dans les
LI = z

• au bouton Enregistrer/Modifier

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
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub Bt1_Click()
 
Dim ligne As Long
Dim derniereligne As String
 
'With Sheets("source")
'.Unprotect Password:=5470
 
If LI <> 0 Then
    If msgbox("Voulez vous modifier ces données ?", vbYesNo + vbQuestion, "CONFIMARTION") = vbYes Then
        derniereligne = LI 'commmencer a compter de la derniere ligne vers le bas pour aller
        Sheets("source").Range("c" & derniereligne) = Me.T_nom
        Sheets("source").Range("d" & derniereligne) = Me.Cbo_sexe
        Sheets("source").Range("e" & derniereligne) = Me.T_date
        Sheets("source").Range("f" & derniereligne) = Me.T_extrait
        Sheets("source").Range("g" & derniereligne) = Me.Cbo_classe
        Sheets("source").Range("h" & derniereligne) = Me.Cbo_statut
        GoTo suite
    End If
End If
 
'enregistrer les données des textbox et combos box dans les cellules de la feuille active
If T_nom <> "" Or T_date <> "" Or T_extrait <> "" Or Cbo_sexe <> "" Or Cbo_classe <> "" Or Cbo_statut <> "" Then
If msgbox("Voulez vous ajouter ces données ?", vbYesNo + vbQuestion, "CONFIMARTION") = vbYes Then
 
 
        Sheets("source").ListObjects(1).ListRows.Add
 
        derniereligne = Sheets("source").Range("C1500").End(xlUp).Row 'commmencer a compter de la derniere ligne vers le bas pour aller
        'à la derniere ligne non vide
 
        Sheets("source").Range("c" & derniereligne) = Me.T_nom
        Sheets("source").Range("d" & derniereligne) = Me.Cbo_sexe
        Sheets("source").Range("e" & derniereligne) = Me.T_date
        Sheets("source").Range("f" & derniereligne) = Me.T_extrait
        Sheets("source").Range("g" & derniereligne) = Me.Cbo_classe
        Sheets("source").Range("h" & derniereligne) = Me.Cbo_statut
 
 
  End If
End If
suite:
'effacer tous les champs apres enregistrement ou modification des données