Tout d'abord bonjour,
Je suis nouveau sur le forum et mes notions de vba remontent à loin dans le temps... Mais j'ai de nouveau besoin de cet outil et surtout de votre aide. Je n'ai pas trouvé de discussion sur ce sujet, ma question est peut-être idiote.

J'ai crée un UserForm avec plusieurs commandbutton "Nouveau contact" "Modifier contact" et "Supprimer contact". Pour l'instant, je sais faire.
Pour modifier un contact, je souhaite appuyer une 1ère fois sur "Modifier contact". Là, je récupère les infos du contact à modifier dans mon formulaire. Là encore ça fonctionne. Je veux ensuite modifier les infos du contact directement dans mon formulaire... Et là comment valider les infos ??? En rappuyant sur "Modifier contact"!!! oui mais si je fais cela, je repars pour re-sélectionner un contact. Je voudrais donc savoir si je peux attribuer une 2ème action (au second clic) à mon bouton "modifier contact". Est-ce la logique qui ne va pas ? Je demande à Excel de faire qqc impossible ou faut-il tout simplement créer un autre bouton "modifier contact" invisible au début ?

Merci d'avance pour votre aide.

Je mets mon code :

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
'Pour le bouton Modifier
Private Sub CommandButton2_Click()
'L'idée est de REMPLIR LE FORMULAIRE DEPUIS LA BASE DE DONNEES
Dim ma_cellule As Range
Dim code As Range
Dim code_test As String
Dim Adresse_ma_celule As String
Dim nb_clic As Integer
 
Set code = Range("a3:a65000")
 
'Sélection de la cellule du client auquel on souhaite apporter des modifications
 
code_test = Application.InputBox("Veuillez inscrire le code du client à modifier.", "Sélection du client à modifier", Type:=2)
 
Set ma_cellule = code.Cells.Find(What:=code_test, LookAt:=xlWhole, SearchOrder:=xlByRows)
If ma_cellule Is Nothing Then
    MsgBox "Entrer un code existant SVP"
Else
 
' remplir le formulaire
TextBox1.Value = ma_cellule
TextBox2.Value = ma_cellule.Offset(0, 1)
TextBox3.Value = ma_cellule.Offset(0, 2)
TextBox4.Value = ma_cellule.Offset(0, 3)
TextBox5.Value = ma_cellule.Offset(0, 4)
TextBox6.Value = ma_cellule.Offset(0, 5)
TextBox7.Value = ma_cellule.Offset(0, 6)
TextBox8.Value = ma_cellule.Offset(0, 7)
TextBox9.Value = ma_cellule.Offset(0, 8)
TextBox10.Value = ma_cellule.Offset(0, 9)
TextBox11.Value = ma_cellule.Offset(0, 10)
TextBox12.Value = ma_cellule.Offset(0, 11)
nb_clic = 1
'Apporter les modifs
MsgBox ("Veuillez apporter les modifications nécessaires SVP")
'exécuter les modifs
 
If MsgBox("Confirmez-vous les modifications du contact ? ", vbYesNo, " Demande de confirmation") = vbYes Then
ma_cellule.Value = TextBox1
ma_cellule.Offset(0, 1).Value = TextBox2
ma_cellule.Offset(0, 2).Value = TextBox3
ma_cellule.Offset(0, 3).Value = TextBox4
ma_cellule.Offset(0, 4).Value = TextBox5
ma_cellule.Offset(0, 5).Value = TextBox6
ma_cellule.Offset(0, 6).Value = TextBox7
ma_cellule.Offset(0, 7).Value = TextBox8
ma_cellule.Offset(0, 8).Value = TextBox9
ma_cellule.Offset(0, 9).Value = TextBox10
ma_cellule.Offset(0, 10).Value = TextBox11
ma_cellule.Offset(0, 11).Value = TextBox12
End If
End If
End Sub