[RESOLU] : FORMULAIRE lignes a supprimer

[MADAGASCAR]

Bonjour EXCEL DOWNLOADS
Bonjour a tous

Svp .. si vous pouver m'aider a activer le commandbutton1 (supprimer) dans cet userform1..se sera un grand plaisir s'il sera avec un msgbox "voulez vous vraiment supprimer ligne numero 10 ?" par exemple

Mille fois merci d'avance pour l'aide
Cordialement
MADA

 

[job75]

Re : FORMULAIRE lignes a supprimer

Bonjour MADAGASCAR,

Private Sub CommandButton1_Click()
If Me.ComboBox3.ListIndex = -1 Then Exit Sub
Dim lig&, i%
lig = ComboBox3.ListIndex + 2
If MsgBox("Supprimer la ligne " & lig & " '" & ComboBox3 & "' ?", 4) = 7 Then Exit Sub
Ws.Rows(lig).Delete
ComboBox3.Clear 'ce serait mieux dans UserForm_Initialize...
UserForm_Initialize
For i = 1 To 9
  Controls("TextBox" & i) = ""
Next
End Sub

A+

 

[MADAGASCAR]

Re : FORMULAIRE lignes a supprimer

Bonjour Gerard
Merci pour l'aide
Effectivement c'est ce que je veux voir et avoir dans ce fichier
C'est parfaitement resolu
Merci encore
Cordialement
MADA