Discussion :

[Alphadjo]

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

[zandru]

Bonjour,
une remarque et deux question,
tout d'abord,

Code :

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

utilise la balise de code c'est plus clair

http://www.developpez.net/forums/sho...d.php?t=553797

Quel est le message d'erreur ?
et :
Où est ta ligne :

Sheets("Actual").Activate

qui pose problème?

[Alphadjo]

J'utilise deux UserForms pour mes recherches mais mon problèmes est que quand je tape le code dans la zone de recherche du 1er UserForm rien ne s'affiche sur le second UserForm.

[zandru]

Si je comprend bien ce que tu veux faire et le code que tu as donné plus haut,
le value des cellules ne sert à rien :

Code :

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

Sheets("Personnel").Cells(LigneActive, "B")= UserForm13.TextBox1.Value

que je préfère écrire :

Code :

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

personel.Cells(LigneActive,2)=Userform13.TextBox1.Value

En mettant le (Name) de ta feuille à "personel" dans la fenêtre propriétés. D'ailleurs pour plus de clarté, je te conseil de nommer de la même manière Userform13 et TextBox1

et je pense qu'il faudrait rajouter :

Code :

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

Userform13.Show

a la fin du code.

[Alphadjo]

Est ce que je pourrai t'envoyer mon fichier?

[zandru]

Pour que cette discussion puissent servir à d'autres, je préfère que toutes les infos restent sur le forum.
Par contre n'hésite pas à insérer des images ou du code dans tes messages.

ceci étant dit, pourquoi me demande tu ça ?
Si ce que j'ai dit précédemment ne te semble pas clair n'hésite pas à le dire, il m'arrive de ne pas me comprendre moi-même.

[Alphadjo]

Je te comprend très bien. Au fait le code que j'ai mis sur le forum fonctionne très bien avec les deux UserForms mais mon problème c'est quoi au juste maintenant je voudrais appliquer ce code pour un notre fichier , c'est à ce niveau jai deux messages d'erreurs avec tous les mises à jour.Jai du mal à retrouver la source de l'erreur.
Merci d'avance

[zandru]

Pour pouvoir t'aider il faudrait que tu me donne dans ton message :

les parties du code où cela plante et les messages d'erreurs !

que je puisse corriger (si j'y arrive bien sur )