Bonjour,

J'ai un bouton rechercher dont le code est le suivant :

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
Private Sub CommandButton9_Click()
 
Application.ScreenUpdating = False
 
Valeur = TextBox9.Value
Sheets("info").Select
Range("A1").Select
 
On Error GoTo fin
ActiveSheet.Cells.Find(What:=Valeur, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
TextBox10.Text = ActiveCell.Offset(0, -1).Value
TextBox11.Text = ActiveCell.Offset(0, 1).Value
TextBox12.Text = ActiveCell.Offset(0, 2).Value
TextBox13.Text = ActiveCell.Offset(0, 3).Value
TextBox14.Text = ActiveCell.Offset(0, 4).Value
TextBox15.Text = ActiveCell.Offset(0, 5).Value
TextBox16.Text = ActiveCell.Offset(0, 6).Value
TextBox17.Text = ActiveCell.Offset(0, 7).Value
TextBox18.Text = ActiveCell.Offset(0, 8).Value
TextBox19.Text = ActiveCell.Offset(0, 9).Value
TextBox20.Text = ActiveCell.Offset(0, 10).Value
 
Application.ScreenUpdating = True
 
Exit Sub
fin:
MsgBox "l'info recherchée n'existe pas"
Application.ScreenUpdating = True
Ce code me permet à partir de la recherche du nom d'afficher dans plusieurs textbox les informations de la personne.

Je souhaiterais créer un bouton modifier qui me permettrait de modifier les informations contenus dans les textbox après recherche.... En gros qui permettrait de mettre à jour les cellules apres la recherche.

Mais je sais pas vraiment comment démarrer....


Bien à vous