Tableau Excel vers formulaire
Bonjour,
Je suis un novice en programmation VBA su Excel. Et j'ai crée un formulaire de saisie pour apprendre et par la suite l'utiliser dans une petite association.
Mon problème est de pouvoir à l'aide d'un bouton de commande "Modifier", "reprendre" les données enregistrées dans le tableau Excel de les "remettre" dans le Formulaire afin de pouvoir les modifier.
Pouvez-vous, vous les professionnels me donner un "coup de main" ?
Merci à l'avance.
C'est un formulaire comprenant :
- 5 Labels
- 5 Texts box
- 1 Bouton "Valider" (Qui fonctionne bien)
- 1 Bouton "Modifier" (que je n’arrive pas à coder)
- 1 Bouton "Quitter" (Qui fonctionne bien)
Voici ci-dessous les codes que j'ai écris:
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
31
32
33
34
35
36
37
38
39
40
41
42
| Option Explicit
Dim Ws As Worksheet
Private Sub cmdnouveau_Click()
Dim L As Integer
If MsgBox("Confirmez-vous l'insertion de cette nouvelle saisie ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
'Pour placer le nouvel enregistrement à la premiere ligne du tableau, non vide
L = Sheets("ESSAI 1").Range("A100").End(xlUp).Row + 1
Range("A" & L).Value = txtacte
Range("B" & L).Value = txtdaterencontre
Range("C" & L).Value = txtdatebapteme
Range("D" & L).Value = txtnom
Range("E" & L).Value = txtprenom
End If
Unload Me
UserForm1.Show
End Sub
Private Sub cmdmodifier_Click()
Dim Ligne As Long
Dim I As Integer
If MsgBox("Confirmez-vous la modification de cette saisie ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
If txtacte = -1 Then Exit Sub
Ligne = txtacte + 2
Ws.Cells(Ligne, "B") = "txtdaterencontre"
For I = 1 To 5
If txtacte("txtacte" & I).Visible = True Then
Ws.Cells(Ligne, I + 2) = ("txtacte" & I)
End If
Next I
End If
Unload Me
UserForm1.Show
End Sub
Private Sub cmdquitter_Click()
Unload Me
End Sub |
