Discussion :

[vinvinsylvain]

Bonjour,

Quelqu'un peu m'aider a réaliser un userForm pour modifier des cellules.




Mon but est quand on tape le numéro ID (colonne A de la feuille "Donnée Saisie") le reste ce remplis automatiquement pour faire une modification puis validé les modification.

Merci d'avance

[Philippe Tulliez]

Bonjour,
Je te conseille avant tout la lecture de ces tutoriels de Silkyroad :
Utiliser les UserForm en VBA Excel
Utiliser les contrôles dans un UserForm, en VBA Excel

[vinvinsylvain]

Merci, ceci m'aide a comprendre un peu le VBA, mais j'arrive pas a faire mon formulaire de modication mais j'y travail !!

[keygen08]

Bonjour, voici un debut de reponse.

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
Private Sub rechercher_Click()
Dim Saisie As Range
Dim r As Integer
'recherche la valeur de textbox9 dans la colonne A
Set Saisie = Columns(1).Find(textbox9.Value, LookIn:=xlValues)
'si une valeur equivalente est trouvée, on note la reference de la ligne(r)
    If Not Saisie Is Nothing Then r = Saisie.Row
'puis on charge les différents contrôle dans le userform
    combobox1.Value = Range("b" & r).Value
    combobox2.Value = Range("c" & r).Value
    'etc...
    Else
    'traitement si la valeur saisie n'ait as trouvé
    End If
 
End Sub

[vinvinsylvain]

Grand merci Keygen08

Voici mon code fini:

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
Private Sub CommandButton5_Click()
 On Error GoTo ErrorHandler
Dim Saisie As Range
Dim r As Integer
'recherche la valeur de textbox9 dans la colonne A
Set Saisie = Columns(1).Find(TextBox9.Value, LookIn:=xlValues)
'si une valeur equivalente est trouvée, on note la reference de la ligne(r)
    If Not Saisie Is Nothing Then r = Saisie.Row
'puis on charge les différents contrôle dans le userform
    ComboBox1.Value = Range("b" & r).Value
    ComboBox2.Value = Range("c" & r).Value
  CheckBox1.Value = Range("d" & r).Value
CheckBox2.Value = Range("e" & r).Value
CheckBox3.Value = Range("f" & r).Value
CheckBox4.Value = Range("g" & r).Value
CheckBox5.Value = Range("h" & r).Value
CheckBox6.Value = Range("i" & r).Value
CheckBox7.Value = Range("j" & r).Value
CheckBox8.Value = Range("k" & r).Value
CheckBox9.Value = Range("l" & r).Value
CheckBox10.Value = Range("m" & r).Value
TextBox3.Value = Range("n" & r).Value
CheckBox11.Value = Range("o" & r).Value
CheckBox12.Value = Range("p" & r).Value
CheckBox13.Value = Range("q" & r).Value
TextBox8.Value = Range("r" & r).Value
CheckBox14.Value = Range("s" & r).Value
CheckBox15.Value = Range("t" & r).Value
TextBox4.Value = Range("u" & r).Value
TextBox5.Value = Range("v" & r).Value
TextBox6.Value = Range("w" & r).Value
TextBox7.Value = Range("x" & r).Value
 
 
Exit Sub
ErrorHandler:
   MsgBox ("Attention! Saisie non trouvé !!")
 
End Sub