jean marc1234
XLDnaute Occasionnel
RESOLU
bonjour,
Je précise , je suis ni informaticien ni programmeur.
Je regarde et j'essaye d'appater à mes besoins.
J'ai une userform qui alimente un tableau dans une feuille excel.
Je cherche un code qui me permette par un bouton de supprimer une ligne choisit (par la Textbox Nom par exemple)d'enregistrement dans mon tableau .
J'ai trouver le code ci-dessous, que j'i voulut adapter mais bien sur sa fonctionne pas.
et je ne sais pas à quoi sert InitCbb.
Si quelqu’un peut me m'aider.
Merci d'avance.
Private Sub CommandButton1_Click()
If Me.Tnom = -1 Then
MsgBox "Il faut chosir un nom"
Else
If MsgBox("Voulez vraiment supprimer cet enregistrement ?", vbCritical + vbYesNo + vbDefaultcommandButton1, "Suppression") <> vbYes Then Exit Sub
Ws.Range("A" & Me.Tdate + 2).Resize(1, 11).Delete shift:=xlShiftUp
InitCbb
End If
End Sub
bonjour,
Je précise , je suis ni informaticien ni programmeur.
Je regarde et j'essaye d'appater à mes besoins.
J'ai une userform qui alimente un tableau dans une feuille excel.
Je cherche un code qui me permette par un bouton de supprimer une ligne choisit (par la Textbox Nom par exemple)d'enregistrement dans mon tableau .
J'ai trouver le code ci-dessous, que j'i voulut adapter mais bien sur sa fonctionne pas.
et je ne sais pas à quoi sert InitCbb.
Si quelqu’un peut me m'aider.
Merci d'avance.
Private Sub CommandButton1_Click()
If Me.Tnom = -1 Then
MsgBox "Il faut chosir un nom"
Else
If MsgBox("Voulez vraiment supprimer cet enregistrement ?", vbCritical + vbYesNo + vbDefaultcommandButton1, "Suppression") <> vbYes Then Exit Sub
Ws.Range("A" & Me.Tdate + 2).Resize(1, 11).Delete shift:=xlShiftUp
InitCbb
End If
End Sub
Dernière édition: