Modification ligne via formulaire
Bonjour à tous,
j'ai créé un bouton macro via vba pour la saisie de données via un formulaire. Je souhaite maintenant créé un bouton pour la modification d'une ligne spécifique. En effet, ce bouton lancera le même formulaire sauf qu'il remplira automatiquement les données dans les textbox/combobox correspondants. Voici le code auquel j'avais pensé mais cela ne fonctionne, je tiens à précisé que j'ai suivi des cours vba il y a 6 ans et que je le pratique occasionnellement dans le cadre de mon travail.
Merci d'avance pour votre aide.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| Sub Bouton5_Clic()
'lancement du formulaire
Frmsaisie.Show
Dim numLigneAModif As Integer
Worksheets("Investissement").Activate
'Recherche de la ligne de la cellule active
numLigneAModif = ActiveCells.Row
If numLigneAModif < 3 Or ActiveCells = "" Then
MsgBox "Veuillez selectionner une cellule valide ", vbCritical, "Mauvaise sélection"
Else
Frmsaisie.TbxEts.Text = Cells(numLigneAModif, 1)
Frmsaisie.TbxDate.Text = Cells(numLigneAModif, 2)
Frmsaisie.TbxInv.Text = Cells(numLigneAModif, 3)
Frmsaisie.ComboBox1.Text = Cells(numLigneAModif, 4)
Frmsaisie.TbxDuree.Text = Cells(numLigneAModif, 5)
Frmsaisie.TbxRemb = Cells(numLigneAModif, 6)
Frmsaisie.TbxDate2 = Cells(numLigneAModif, 7)
End If
End Sub |
