supprimer ligne par rapport a un combobox

**sebing** · 29/01/2011, 09h15

Bonjour,

J'ai un tableau qui contient une colonne "nom".
Je cherche à l'aide d'une combobox de supprimer la ligne correspondante au nom de la personne qui aura été sélectionnée.
Mais je ne sais pas comment faire pour que la donnée se trouvant dans Rows soit renseignée par rapport au choix.
(Rows("18:18").Select Selection.Delete Shift:=xlUp)
Exemple: j'ai 50 noms d'inscrits dans mon tableau, je veux supprimer la ligne de Monsieut X (la 18). Je sélectionne X dans ma combobox et la ligne 18 se supprime.

Merci pour votre aide

Bonne journée

Seb

**Theze** · 29/01/2011, 13h31

Bonjour sebing,

Teste ce qui suit si ça convient et adapte :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Dim Plage As Range 'à déclarée en tête de module
 
Private Sub ComboBox1_Click()
 
    Dim Cel As Range
 
    'suprime la ligne correspondante dans la feuille
    Set Cel = Plage.Find(ComboBox1.Text)
    Cel.EntireRow.Delete
 
    'supprime l'entrée dans le combobox
    ComboBox1.RemoveItem ComboBox1.ListIndex
    ComboBox1.Text = ""
 
    'redéfini la plage
    Set Plage = Range([A1], [A65536].End(xlUp))
 
End Sub
 
Private Sub UserForm_Activate()
 
    Dim I As Integer
 
    'commence à partir de A2 pour éviter la ligne des titres
    Set Plage = Range([A2], [A65536].End(xlUp))
 
    'rempli le combobox
    For I = 1 To Plage.Count
 
        ComboBox1.AddItem Plage(I)
 
    Next I
 
End Sub

Hervé.

**sebing** · 29/01/2011, 18h22

Merci Hervé pour le morceau de code

Mais un message d'erreur arrive:

erreur de compilation instruction incorrecte à l'extérieur d'une procédure

, c'est à la ligne

Code :

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

 Set Cel = Plage.Find(ComboBox1.Text)

Merci encore

seb

**Theze** · 29/01/2011, 19h00

Bonsoir sebing,

As tu collé le code comme il faut ? Car à la vue de l'erreur c'est assez explicite.

Hervé.

Oups

Je suis parti du principe que le combo était sur une Form, est-ce le cas ou est il sur la feuille ?

Hervé.