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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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