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
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