[VBA Excel] Userform pour supprimer une ligne précise

Bonjour,

Je souhaite faire en sorte qu'en cliquant sur un bouton "supprimer référence" on puisse entrer le numéro de a la référence et que la ligne complète de la référence à supprimer disparaisse, si possible sans faire de trou dans le tableau !
Je pensais à un Userform, voici ce que j'ai deja commencé :

- Dans le module :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

'saisie d'une référence à supprimer Sub suppressionreference() Load userform_reference_a_supprimer userform_reference_a_supprimer.textbox_numero_reference2.Value = "" userform_reference_a_supprimer.Show End Sub   'supprimer une ligne Sub supprimerligne() Sheets("Données").Activate suppressionreference ActiveCell.EntireRow.Select Selection.Delete Range("A1").Select End Sub

---

- Dans l'Userform (boutons ok et annuler)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub commandbutton_annuler_Click() Unload userform_reference_a_supprimer Sheets("Accueil").Activate Range("A1").Select End Sub   Private Sub commandbutton_ok_Click() With userform_reference_a_supprimer Numéro_de_référence2 = .textbox_numero_reference2.Value End With Unload userform_reference_a_supprimer supprimerligne End Sub

---

J'ai un peu du mal , ce serait sympa si quelqun d'expérimenté pouvais m'aider un peu. D'avance merci :roll:

quel est le problème? Y at-il un message d'erreur?

En fait je pense avoir la structure générale de l'userform, mais je n'arrive pas à faire en sorte que le numéro renseigné dans l'userform par l'utilisateur soit recherché dans mon tableau puis que la ligne soit effacée... J'espère etre clair dans mes explications, c'est pas simple a formuler ! Merci en tout cas

Un coup d'oeil ici

il faut rechercher la valeur dans les cellules et supprimer la ligne correspondante:

Code:

---

1 2 3 4 5 6 7

while (cells(x,y).value <> valeur) if cells(x,y).value = valeur then rows(x).delete end if x=x+1 (ou y=y+1) wend

---

inspire toi de ce genre de code pour cibler/supprimer...

il est possible que tu doives rajouter des Worksheets("...").cells(......

Enfin, d'apres ce que j'ai compris, cette solution me parait adaptée...