Modification de Cellule avec UserForm
Bonjour à vous,
J'ai un soucis avec mon Excel. Tous mes menus sont fonctionnel à l'eception de la modification de mon carnet d'adresse. J'ai tenté de reprnedr ele code utilisé pour modifier mes commandes mais cela ne fonction pas. J'ai toujorus le message d'erreur 1004.
Mon code dois modifier les données dans la feuille ''CA'', et après l'opération, le menu de la base de données principale est resélectionné (à des fins pratiques mais non en lien avec ce code).
Est-ce que l'un de vous est en mesure de m'aider ?
Merci énormément à l'avance.
Private Sub ModifierCon_Click()
'ont s'assure d'ouvrir le menu CA
answer = MsgBox("Êtes-vous certains de vouloir mettre à jour ce contact?", vbYesNo + vbQuestion, "Modification de contact")
If answer = vbYes Then
Sheets("CA").Select
Range("A2").Select
Cells(currentrow, 2) = TextBox2.Text
Cells(currentrow, 3) = TextBox3.Text
Cells(currentrow, 4) = TextBox4.Text
Cells(currentrow, 5) = TextBox5.Text
Cells(currentrow, 6) = TextBox6.Text
Cells(currentrow, 14) = TextBox7.Text
Cells(currentrow, 13) = TextBox8.Text
Cells(currentrow, 12) = TextBox9.Text
Cells(currentrow, 7) = TextBox10.Text
Cells(currentrow, 8) = TextBox11.Text
Cells(currentrow, 9) = TextBox12.Text
Cells(currentrow, 10) = TextBox13.Text
Cells(currentrow, 11) = TextBox14.Text
Selection.ClearContents
ActiveWorkbook.Save
MsgBox "Modification complété."
End If
'ont réouvre la base de données principal.
Sheets("Bd").Select
End Sub
j'ai opublié de mentionner que le USER Form en question et nomé Contact
Pour ceux que ça pourrait aider, j'ai trouver la solution avec une autre demande posée par un autre utilisateur sur le fourm ::
Private Sub ModifierCon_Click()
'ont s'assure d'ouvrir le menu CA
Dim lig As Integer
With Sheets("CA") ' feuille ou sont mes infos d'avance
answer = MsgBox("Êtes-vous certains de vouloir mettre à jour ce contact?", vbYesNo + vbQuestion, "Modification de contact")
If answer = vbYes Then
lig = .Columns("A").Find(What:=TextBox1, after:=Range("A2"), Lookat:=xlWhole).Row ' chercher dans la colonne a , mon élément de référence
.Cells(lig, "B") = TextBox2 ' va porter les infos sur la bonne ligne
.Cells(lig, "C") = TextBox3
.Cells(lig, "D") = TextBox4
.Cells(lig, "E") = TextBox5
.Cells(lig, "F") = TextBox6
.Cells(lig, "G") = TextBox14
.Cells(lig, "H") = TextBox13
.Cells(lig, "I") = TextBox12
.Cells(lig, "J") = TextBox7
.Cells(lig, "k") = TextBox8
.Cells(lig, "l") = TextBox9
.Cells(lig, "m") = TextBox10
.Cells(lig, "N") = TextBox11
.Cells(lig, "o") = TextBox15
End If
ActiveWorkbook.Save
End With
MsgBox "Modification complété."
'ont réouvre la base de données principal.
Sheets("Bd").Select
End Sub