supprimer une ligne

[chilo]

Bonjour le forum
J'ai encore besoin de vous pour m'en sortir

J'ai ce bout de programme pour supprimer dans une base données
à partir de la 9ème ligne n'importe quelle ligne sélectionnée à partir d'une combobox
Pour l'instant je ne peux supprimer que la ligne 9.
Quand je souhaite supprimer la ligne 12 par exemple
c'est la ligne 9 qui est supprimée et c'est normal
Je ne parviens pas à trouver la formule magique

merci de m'apporter votre terminer ma petite base de données

Je vous remercie par avance

Dim msg As String, title As String, Response As String
Dim style As Integer
Application.ScreenUpdating = False
msg = "Voulez-vous supprimer cet enregistrement ?" & "?"
style = vbYesNo + vbCritical + vbDefaultButton2
title = "Confirmation de Suppression"
Response = MsgBox(msg, style, title)
If Response = vbYes Then
Range("A9:A65536").Select
ActiveCell.EntireRow.Delete
End If
Unload Me
UserFormAjout.Show

 

[youky(BJ)]

Bonsoir Chilo,
Si c'est combobox1 et que les items correspondent à la base
Un truc aussi le listindex commence à 0 donc +1 et si ligne de titre en base encore +1 cela explique mon +2
Dim msg As String, title As String, Reponse As String
Dim style As Integer
msg = "Voulez-vous supprimer cet enregistrement ?" & "?"
style = vbYesNo + vbCritical + vbDefaultButton2
title = "Confirmation de Suppression"
Reponse = MsgBox(msg, style, title)
If Reponse = vbYes Then
Rows(combobox1.listindex+2).Delete
End If
Unload Me
UserFormAjout.Show

Bruno

 

[chilo]

Rebonsoir le forum

Je m'en vais l'essayer
Merci pour l'aide

 

[chilo]

Rebonsoir le forum

j'ai essayé la suggestion de Youky mais sans résultat
Je vous remercie pour votre aide

 

[youky(BJ)]

RE,
Voici , j'ai eu du mal ou se situait le truc mais bon . . .
Et tout fonctionne
Bruno

Private Sub CommandButton5_Click()
If MsgBox("Voulez-vous supprimer cet enregistrement ?", vbExclamation + vbYesNo, "Confirmation de Suppression") = vbNo Then Exit Sub
Rows(C_Selection.ListIndex + 9).Delete
Unload Me
UserFormAjout.Show
End Sub

onglet Acceuil mettre plutôt Accueil

 

[chilo]

If MsgBox("Voulez-vous supprimer cet enregistrement ?", vbExclamation + vbYesNo, "Confirmation de Suppression") = vbNo Then Exit Sub Rows(C_Selection.ListIndex + 9).Delete Unload Me UserFormAjout.Show

Re
Merci Bruno
quand c'est fait on se dit que c'était facile
j'avais essayé mais je n'étais pas arrivé à 9

Un grand merci à toi