supprimer fiche dans base données

[Provence Vintage]

Bonsoir le Forum,

J'ai un bug avec un de mes codes qui fonctionnait pourtant bien avant!?

Dans un usf, je consulte ma base de données via un code de ce type:

#Dim cel As Range
Dim r As Range

Worksheets("bdd acheteur").Activate
Set cel = Range("B1")
Set r = Columns(2).Find(What:=RechetCréaAcquéreur.Label60.Caption, After:=cel, _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
L = r.Row
If L > 0 Then

With Worksheets("bdd acheteur")

.Cells(L, "A") = RechetCréaAcquéreur.Label60.Caption & " " & Prenom & " " & Right(TelMobile, 8)
.Cells(L, "B") = RechetCréaAcquéreur.Label60.Caption
.Cells(L, "C") = Prenom.Value
........

Pour supprimer, j'avais ce code:

#Dim réponse
réponse = MsgBox(" Etes vous sur de vouloir supprimer cette fiche ? ", vbYesNo + vbQuestion, "Validation")
If réponse = vbNo Then Exit Sub

Nom = RechetCréaAcquéreur.Label60.Caption
ActiveCell = Nom
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
Call trierzonedetriacheteurs

'sortir
Unload RechetCréaAcquéreur
RechetCréaAcquéreur.Show

(Sachant que la recherche se fait par nom et que après la recherche, la TextBox Nom est vidée et est copiée dans un Label)

Qu'est-ce qui peux bugger!
Qu'utilisez vous dans ce genre de cas de figure pour supprimer la ligne concernée dans la bdd?

Merci à toutes et Tous pour vos réponses!

 

[job75]

Re : supprimer fiche dans base données

Bonsoir Provence Vintage,

Qu'est-ce qui peux bugger!

Si c'est bien un point d'exclamation, ça ne m'étonne pas 🙄

Si c'est plutôt un point d'interrogation, c'est le monde à l'envers... C'est à vous de dire où ça bug, non mais enfin, faut tout vous faire 😱

A+