Bonjour a tous,
Je réalise un petit projet sur excel avec VBA et je me trouve confronté a un petit problème.
Explication:
J'ai un userfrom avec 3 multipage.
la première sert a ajouter, la seconde a modifier et la troisième a supprimer.
Mon problème porte sur la lmodification. j'ai une listbox qui m'affiche tou les élément présent dans un tableau, et je souhaierai que l'orque je clique sur une des lifne, les textbox et autre se remplisse automatiquement des information du tabeau. jusqu'a présent je savais faire cette opération avec unecombox mais avec une listbox je bloque.
Code:
Private Sub SélectionVAIModifier_Click()
If SélectionVAIModifier.ListIndex <> -1 Then
SélectionVAIModifier.RemoveItem (SélectionVAIModifier.ListIndex)
NL = Range("PTableauVirementAutoInterne").Rows.Count
For i = 1 To NL
If SélectionVAIModifier.Value = Range("PTableauVirementAutoInterne").Value Then
Range("PTableauVirementAutoInterne").Cells(i, 1).Value = MDVAIDate.Value
'.......
End If
Next i
End If
End Sub
Pourriez vous m'apporter votre aide je vous remercie d'avance.
Mouchty85
Je réalise un petit projet sur excel avec VBA et je me trouve confronté a un petit problème.
Explication:
J'ai un userfrom avec 3 multipage.
la première sert a ajouter, la seconde a modifier et la troisième a supprimer.
Mon problème porte sur la lmodification. j'ai une listbox qui m'affiche tou les élément présent dans un tableau, et je souhaierai que l'orque je clique sur une des lifne, les textbox et autre se remplisse automatiquement des information du tabeau. jusqu'a présent je savais faire cette opération avec unecombox mais avec une listbox je bloque.
Code:
Private Sub SélectionVAIModifier_Click()
If SélectionVAIModifier.ListIndex <> -1 Then
SélectionVAIModifier.RemoveItem (SélectionVAIModifier.ListIndex)
NL = Range("PTableauVirementAutoInterne").Rows.Count
For i = 1 To NL
If SélectionVAIModifier.Value = Range("PTableauVirementAutoInterne").Value Then
Range("PTableauVirementAutoInterne").Cells(i, 1).Value = MDVAIDate.Value
'.......
End If
Next i
End If
End Sub
Pourriez vous m'apporter votre aide je vous remercie d'avance.
Mouchty85