Effacer une ligne selon une recherche

[dy0n1s0s]

Bonjour à tous,

J'ai cherché un peu sur le forum, je n'ai pas trouvé de réponse (peut etre que j'ai pas utilisé les bon mots clefs, mais bon mon problème est un peu compliqué).

J'ai un tableau, chaque ligne correspond à un numéro de facture. Je voudrais pouvoir, à partir d'un userform, rentrer le numéro de facture et que la ligne correspondant à cette facture se supprime, le numéro de facture se trouvant dans la colonne A.

Si vous avez besoin d'un exemple de fichier n'hésitez pas!

Merci

 

[laetitia90]

Re : Effacer une ligne selon une recherche

bonjour dy0n1s0s , Jean-Marcel

un exemple basique avec userform attention au nom de la sheet

 

[dy0n1s0s]

Re : Effacer une ligne selon une recherche

Je teste jean-marcel, je vois laetitia après, merci à tous les deux!

 

[phlaurent55]

Re : Effacer une ligne selon une recherche

Bonjour,

un essai en pièce jointe

à+
Philippe

Edit: Battu au sprint par Jean-Marcel et Laetitia

 

[dy0n1s0s]

Re : Effacer une ligne selon une recherche

Bon j'ai opté pour la version de laetitia90 qui m'avais l'ai plus simple à adapter, mais la j'ai un problème assez emebettant, il ne veut plus m'afficher mon userform, je l'ai nommé "supprimer_facture" et donc mon sub est le suivant :
Sub supprimeracture()
supprimer_facture.Show
End Sub

il me met cette erreur lorsque je lance la macro :
Erreur d'execution '9' :
l'indice n'appartient pas à la selection.

Ca doit etre un tout petit truc tout con mais je trouve pas^^

 

[dy0n1s0s]

Re : Effacer une ligne selon une recherche

Bon pour l'erreur d'execution 9, le problème est résolu, j'ai maintenant un autre problème :
lorque mon formulaire s'affiche, je clique sur la combobox "num_fact" dan laquelle je selectionne le numéro de facture et aucune liste n'apparait voici mon code (petite rectification, mon numéro de facture est en B en A c'est la date je n'avais pas fait attention).
Et la feuille s'appelle bilan

Private Sub supprimer_Click()
Cells(num_fact.ListIndex + 2, 1).EntireRow.Delete
num_fact.Clear
With Sheets("bilan"): num_fact.List = Range(.[B2], .[b65536].End(xlUp)).Value
End With

Unload Me
End Sub

Private Sub suppressionInitialize()
With Sheets("bilan"): num_fact.List = Range(.[B2], .[b65536].End(xlUp)).Value
End With
End Sub

 

[dy0n1s0s]

[REGLE] Effacer une ligne selon une recherche

J'ai finalement réussi à régler mon problème, merci à tous!