Mettre à jour un tableau

[sebgo]

Bonsoir le forum

Je travaille sur un formulaire de saisie données alimenté à partir d'un tableau qui doit être mis à jour à chaque saisie. Dans le fichier joint je souhaite que lorsque le choix de l'utilisateur est validé, la ligne qui a servi à alimenter la combobox soit supprimée de la feuille Kits.
Merci par avance.

 

[jp14]

Re : Mettre à jour un tableau

Bonsoir

Il suffit de modifier la macro

Private Sub CommandButton1_Click()
Dim L As Integer
Dim ligneaeffacer As Integer
....
' on efface la ligne

ligneaeffacer = ChoixSim.ListIndex + 2
Rows(ligneaeffacer & ":" & ligneaeffacer).Delete Shift:=xlUp

End Sub
A tester

JP

 

[pierrejean]

Re : Mettre à jour un tableau

bonsoir sebgo

vois si cela te convient

oups jp14
désolé de la collision

 

[Hervé]

Re : Mettre à jour un tableau

bonsoir sebgo, jp14, pierrejean 🙂

on doit pouvoir se passer de la variable ligneaeffacer :

Rows(ChoixSim.ListIndex + 2).Delete

salut

 

[pierrejean]

Re : Mettre à jour un tableau

bonsoir à tous

dans le cadre des macros en place on s'en sort avec

Rows(Selection.Row).Delete

ce que je n'avais d'ailleurs pas vu au premier abord

 

[sebgo]

Re : Mettre à jour un tableau

Bonsoir JP14, PierreJean, Hervé

J'adapte vos solutions à ma situation. Elles devront marcher. Merci à vous tous et bonne fin de journée.