Discussion :

[flofun]

Bonjour,

je souhaiterais supprimer une ligne d'un tableau d'une feuille à partir d'une liste déroulante intégrée dans un userform qui reprend les données du tableaux.
le fichier est joint

Par exemple lorsque dans le userform, je sélectionne le nom d'un salarié, j'aimerais que la ligne du salarié correspondant dans la base de données soit supprimée.

Merci d'avance

[ouskel'n'or]

Tout dépend de la méthode utilisée pour obtenir ta liste : RowSource, list() ou Additem ?
Il est préférable de donner le code utilisé plutôt que joindre un fichier afin que tous puisse profiter de la réponse. Un fichier est volatile, une réponse sur le forum demeure
A+

[flofun]

Pour obtenir la liste, j'utilise la fonction RowSource

Pour le moment je n'ai pas de code, je ne sais pas comment faire ...

[peaceandloveman01]

Bonjour,

essaie avec ça dans le code de ton userform "suppressionsalariés"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
Dim debut, fin As Byte
 
Private Sub CommandButton1_Click()
Rows(ComboBox1.ListIndex + debut).Select
Selection.Delete Shift:=xlUp
Unload suppressionsalariés
End Sub
 
Private Sub UserForm_Initialize()
debut = 2 'ligne de début de la liste des noms
fin = 13 'ligne de fin de la liste des noms
Sheets("données").Select
ComboBox1.RowSource = "b" & debut & ":b" & fin
End Sub

Cependant je serais toi je n'utiliserais pas la fonction rowsource pour remplir ma liste déroulante mais plutôt une boucle du type:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
dim i as byte
i=2 'ligne de début de la liste des noms
Do Until Cells(i,2)=""
        ComboBox1.AddItem Cells(i,2)
        i = i + 1
loop

Mais ceci n'engage que moi ! Bon courage

Lyonel

[flofun]

Salut Lyonel !

Cela fonctionne parfaitement, merci !

Par contre, j'ai du mal à comprendre le code, pourrais-tu m'éclairer ?

Bonne soirée

[peaceandloveman01]

Est ce que tu pourrais me dire ou ça bloque précisemment stp ??