userform - formulaire de suppresssion

[Antho35]

Bonjour,

j'ai créer un formulaire de suppression, mais je ne sais pas quoi mettre comme code dedan. Pour l'instant c'est le code de modif, je veux le remplacer par de la suppression. Le but est que ça le supprime de la listebox, mais aussi du tableau. Est il possbile de le faire déplacer dans un autres tableaux par exemple un onglet "demande supprimé" ,

Merci pour votre aide.

 

[CBernardT]

Re : userform - formulaire de suppresssion

Bonjour à tous,

Un essai de code :

Private Sub CommandButton1_Click() 'bonton "OK
Dim li As Integer, i As Integer, Derlig As Integer 'déclare la variable li (LIgne)

li = Me.ListBox1.ListIndex + 2 'définit la ligne li
With Sheets("Feuil2") 'prend en compte l'onglet "Feuil2"
For i = 2 To 7
.Cells(li, i) = ""
Next i
' Tri par ordre alphabétique des noms
Derlig = .Range("B65536").End(xlUp).Row
If Derlig > 1 Then
.Range("A2:G" & Derlig).Sort Key1:=.Range("B2"), Order1:=xlAscending
End If
End With
Unload Me 'vide et ferme l'UserForm1
UserForm1.Show 'affiche l'UserForm1
End Sub

 

[Antho35]

Re : userform - formulaire de suppresssion

Bonjour Bernard, Bonjour le fil, Bonjour le fourl,

Merci beaucoup.

Voila mon projet d'application est pratiquement finit. Reste plus car tout tester, et relire pour voir si il ne reste pas des coquilles.

Merci à vous tous pour votre aide au fils des posts