Bonjour
Jai un userform sur la quelle jaffiche les informations sur les employés de ma base, je voudrais maintenant créer un bouton Modifier pour me permettre de modifier les renseignement des employés.
Quelqu'un pourrai m'aider à trouver le code de ce bouton?
Merci d'avance

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
Private Sub CommandButton8_Click()
Dim LigneActive As String
Dim x As Long
Sheets("Personnel").Activate
' On recherche dans la Ligne 1 colonne B, si la case contient la même valeur que notre champ de recherche
For x = 1 To Range("B65535").End(xlUp).Row
 If UCase(Range("B" & x)) Like "*" & UCase(UserForm13.TextBox1.Value) & "*" Then
' Si on a trouvé on va à "Trouve"
 GoTo Trouve
Exit For
 End If
' Sinon on passe à la ligne suivante
Next x
 
Exit Sub
 
' Recherche trouvée, on retrouve notre programme pour charger le formulaire
 
Trouve: LigneActive = x
 'LigneActive = Selection.Row
 Sheets("Personnel").Cells(LigneActive, "B").Value = UserForm13.TextBox1.Value
 Sheets("Personnel").Cells(LigneActive, "C").Value = UserForm13.TextBox2.Value
 Sheets("Personnel").Cells(LigneActive, "D").Value = UserForm13.TextBox3.Value
 Sheets("Personnel").Cells(LigneActive, "E").Value = UserForm13.TextBox11.Value
 Sheets("Personnel").Cells(LigneActive, "F").Value = UserForm13.TextBox5.Value
 Sheets("Personnel").Cells(LigneActive, "G").Value = UserForm13.TextBox6.Value
 Sheets("Personnel").Cells(LigneActive, "H").Value = UserForm13.TextBox13.Value
 Sheets("Personnel").Cells(LigneActive, "I").Value = UserForm13.TextBox14.Value
 Sheets("Personnel").Cells(LigneActive, "J").Value = UserForm13.TextBox12.Value
 Sheets("Personnel").Cells(LigneActive, "K").Value = UserForm13.TextBox7.Value
 Sheets("Personnel").Cells(LigneActive, "L").Value = UserForm13.TextBox8.Value
 Sheets("Personnel").Cells(LigneActive, "M").Value = UserForm13.TextBox9.Value
 Sheets("Personnel").Cells(LigneActive, "N").Value = UserForm13.TextBox16.Value
 Sheets("Personnel").Cells(LigneActive, "O").Value = UserForm13.TextBox10.Value
 
End Sub
Ce code fonctionne bien sur mon formulaire mais maintenant je voudrais apporter des modifications c'est à dire utiliser deux UserForm un sur lequel je tape le numéro de l'employé et le second affiche ses informations.
Mon problème est que ya message d'erreur sur la partie Sheets("Actual").Activate.
Merci d'avance