Discussion :

[Ysama]

Bonjour
J'ai créer un formulaire en VBA avec un bouton Ajouter qui me permet de compléter mon tableau en Excel. Je souhaiterais également créer un autre bouton mais cette foi-ci de suppression de ligne dans le tableau excel lorsque celle-ci est sélectionnée tout en me faisant une mise à jour automatique. Malheureusement je ne sais pas trop comment m'y prendre car je suis un peu débutante dans le domaine.
Le début de mon code:

Code :

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

1
2
3
Private Sub CommandButton2_Click()
Rows([A2:A65536].Find(TextBox1.Value).Row).EntireRow.Delete[/COLOR]
End Sub

[Menhir]

tout en me faisant une mise à jour automatique.

En quoi consiste cette "mise à jour" ?

suppression de ligne dans le tableau excel lorsque celle-ci est sélectionnée

Si j'ai compris ta demande, c'est simplement :

Code :

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

Selection.EntireRow.Delete

Si la ligne doit être recherchée, il faut que tu indiques quel est le critère et quelle est la zone de recherche.

[Ysama]

OK. Si je devais indiquer le critère comment devrai-je m'y prendre dans ce cas svp??

[Menhir]

OK. Si je devais indiquer le critère comment devrai-je m'y prendre dans ce cas svp??

Tu n'as pas compris ma question.
Il faudrait que tu nous indiques où se trouve ce critère et où se trouve la zone de recherche.

[patricktoulon]

Code :

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

1
2
3
4
5
Private Sub CommandButton2_Click()
Dim c As Range
Set c = [A2:A65536].Find(TextBox1.Value,LookAt:xlpart)
If Not c Is Nothing Then c.EntireRow.Delete
End Sub

LookAt:=xlpart pour chercher la cellule qui contient dans sa valeur le textbox1
Lookin:=xlvalues pour chercher la cellule qui contient la valeur exacte du textbox1
LookAt:=xlwhole pour chercher la cellule qui a la valeur entiere du textbox1

[BENNASR]

bonjour menhir, patrick, Ysama, la forum et bon début de semaine à vous tous
patrick :

Code :

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

 Set c = [A2:A65536].Find(TextBox1.Value,LookAt:xlpart)

il te manque "=" après les deux points (trop fort comme remarque
un autre userform pour la suppression et avec un combobox sur les nom (avec le risque des doublons à ne pas négliger), rechercher le nom dans la feuil1 et puis supprimer