Scribd
Importer
0 vues2 pages

Code

Le code VBA permet de supprimer un enregistrement d'une feuille de calcul nommée 'Dashboard' en fonction d'un ID saisi dans la cellule D8. Si l'ID est trouvé, l'utilisateur est invité à confirmer la suppression, après quoi la ligne correspondante est supprimée et le formulaire est vidé. Si l'ID n'est pas trouvé, un message d'erreur est affiché.

Transféré par

nziadramanijeanpaul
Copyright
© All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats DOCX, PDF, TXT ou lisez en ligne sur Scribd
0 vues2 pages

Code

Le code VBA permet de supprimer un enregistrement d'une feuille de calcul nommée 'Dashboard' en fonction d'un ID saisi dans la cellule D8. Si l'ID est trouvé, l'utilisateur est invité à confirmer la suppression, après quoi la ligne correspondante est supprimée et le formulaire est vidé. Si l'ID n'est pas trouvé, un message d'erreur est affiché.

Transféré par

nziadramanijeanpaul
Copyright
© All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats DOCX, PDF, TXT ou lisez en ligne sur Scribd

Sub Supprimer()

Dim ws As Worksheet

Dim id As String

Dim found As Range

Dim confirmation As VbMsgBoxResult

Set ws = [Link]("Dashboard") ' <-- CORRIGE : sheetq devient Sheets

id = [Link]("D8").Value

If id = "" Then

MsgBox "Veuillez entrer un ID.", vbExclamation

Exit Sub

End If

Set found = [Link]("B21:B" & [Link]).Find(id, LookIn:=xlValues, LookAt:=xlWhole)

If Not found Is Nothing Then

confirmation = MsgBox("Etes vous sur de vouloir supprimer cet enregistrement?", vbYesNo +


vbQuestion, "Confirmation")

If confirmation = vbYes Then

[Link]([Link]).Delete ' Supprime toute la ligne

MsgBox "L'enregistrement a été supprimé avec succès.", vbInformation

Else

MsgBox "Suppression annulée.", vbInformation

Exit Sub
End If

' Vider le formulaire

[Link]("D8,D10,D12,D14,D16,G8,G10,G12,G14,G16").ClearContents

photopath = ""

[Link]("PhotoShape").[Link] ' <-- CHANGE "PhotoShape" si ton nom est différent

Call AddNewID ' Prépare le nouvel ID

Else

MsgBox "Enregistrement introuvable.", vbExclamation

End If

End Sub

Vous aimerez peut-être aussi