Bonjour ! debutant VBA ici,
J'ai le code ci-dessous :
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
Private Sub CommandButton2_Click()
Dim modif As Integer
If Not ComboBox1.Value = "" Then
Sheets("source").Select
modif = ComboBox1.ListIndex + 1
Cells(modif, 10) = TextBox1.Value
Cells(modif, 1) = ComboBox1.Value
Cells(modif, 12) = TextBox2.Value
Cells(modif, 13) = TextBox3.Value
Cells(modif, 14) = TextBox4.Value
Cells(modif, 15) = TextBox5.Value
Cells(modif, 16) = TextBox6.Value
MsgBox ("Modification effectuer")
Else
MsgBox ("Veuillez sélectionné le Nom/Prénom de la personne a modifier")
Exit Sub
End If
Unload UserForm1
UserForm1.Show 0
End Sub
Le formulaire marche a perfection,les modifications sont effectue,mais apres ca fait une erreur d'execution 424 ?! quand j'appuie sur debodage ca met "unload userform1" en jaune.
quand je le supprime ca marche plus...comment fixer ça et pourquoi ça donne cette erreur ?
merci !