XL 2010 recherche intuitive et supprimer la saisie

[arvin]

bonjour à tous

grâce à tous le collaborateurs , trop forts !, je peux faire une recherche intuitive dans le tableau suivant (cf userform)
ce que je voudrais c'est
1. supprimer le nom trouver
2. et/ou alors me positionner dans le tableau et nom indiqué

pouvez vous m'aider ?

spéciale dédicace à Mr BOISGONTIER pour son travail

 

[BOISGONTIER]

Bonjour,

Dim f, rng, choix1()

Private Sub UserForm_Initialize()
  Set f = Sheets(1)
  Set rng = f.Range("A1:A" & f.[A65000].End(xlUp).Row)
  choix1 = Application.Transpose(rng)
  Me.ComboBox1.List = choix1
End Sub

Private Sub ComboBox1_Change()
 If Me.ComboBox1.ListIndex = -1 And IsError(Application.Match(Me.ComboBox1, choix1, 0)) Then
   Me.ComboBox1.List = Filter(choix1, Me.ComboBox1.Text, True, vbTextCompare)
   Me.ComboBox1.DropDown
   Me.TextBox2 = ""
  Else
    Position = Application.Match(Me.ComboBox1, rng, 0)
    Me.TextBox2 = rng.Cells(Position, 1)
    Me.TextBox3 = rng.Cells(Position, 1).Offset(, 1)
    f.Cells(Position, 1).Select
  End If
End Sub

Private Sub btnsupprimer_Click()
'procédure permettant de supprimer un enregistrement
 If Me.ComboBox1 = "" Then
    MsgBox "Il faut choisir un nom"
  Else
    If MsgBox("Voulez vraiment supprimer cet enregistrement ? " & Me.ComboBox1, vbCritical + vbYesNo + vbDefaultbtnsupprimer, "Suppression") <> vbYes Then Exit Sub
    Position = Application.Match(Me.ComboBox1, rng, 0)
    f.Cells(Position, 1).Resize(, 3).Delete
    UserForm_Initialize
  End If
End Sub

Boisgontier

 

[arvin]

merci beaucoup ! j'ai essayé de placer le code dans mon fichier : cela a bien fonctionné mais il me dit que "position" est une variable non définie...je ne comprends pas pourquoi
tout marchait bien

 

[arvin]

PFFF dsl de t'avoir embêté pour 1 truc aussi bête : j'avais rajouté option explicit et bien entendu, la macro voulait que je déclare la variable...
tout est résolu : un grand merciiiiiii