mise à jour dynamique userform--> base de données

Bonjour Oriop,


voici le code pour un combobox dans un formulaire. Évidemment, il y a plusieurs façons de faire ...

'Déclaration de la variable dans le haut du formulaire
Dim Rg As Range

'Bouton de commande pour supprimer une entrée et du combobox
'et de la plage source de la feuille de calcul
'---------------------
Private Sub CommandButton1_Click()

Rg(Me.ComboBox1.ListIndex + 1).EntireRow.Delete
SaisirValeurCombobox

End Sub
'---------------------

'Renseigner le combobox à l'ouverture de ce dernier
'------------------
Private Sub UserForm_Initialize()

SaisirValeurCombobox

End Sub
'--------------------

'Procédure qui renseignera le combobox.
'--------------------
Sub SaisirValeurCombobox()
Dim Tblo As Variant
With Worksheets("Feuil1")
Set Rg = .Range("A1:C" & .Range("C65536").End(xlUp).Row)
Tblo = Rg
End With
With Me.ComboBox1
.ColumnCount = Rg.Columns.Count
.ColumnWidths = "30;30;30"
.List = Tblo
End With
End Sub
'--------------------


Salutations!




"oriop" <oriop@discussions.microsoft.com> a écrit dans le message de news: 2F6B08D4-7A7F-4603-B5C7-FA86B099A067@microsoft.com...
bonjour,

voici mon probleme:

j'ai crée une listbox avec plusieurs colonnes qui reprend des éléments de
mon tableau excel.

A coté de cet listbox j'ai crée un bouton supprimer pour que l'utilisateur
puisse effacer la ligne qu'il a selectionné.

En cliquant sur un bouton de validation il faudrait que la ligne supprimée
dans la listbox(grace a la fonction removeitem) soit égalment supprimée dans
ma base de donnée.

merci d'avance pour vos réponses