Microsoft 365 suppression d'une personne avec userform problème

[dubarre]

Bonjour à tous

Je viens vers vous car je n'arrive pas à voir d'où vient l'erreur sur le bouton Supprimer qui doit effacer la personne concerné dans le userform2 pouvez-vous m'aider s'il vous plaît

sur l'onglet accueil cliquer sur le bouton "modification fiche artiste "choisir la lettre R sélectionner une personne puis cliquer sur "valider" ensuite le userform2 s'ouvre cliquez sur le bouton "supprimer" ensuite regarder dans l'onglet "BDD" et là vous verrez que la personne choisie n'est pas supprimé.

 

[fanch55]

Bonjour,
Correction de la ligne
Set CellNoArtiste = PlageNumeroArtiste.Find(Me.Label13, , LookIn:=xlValues)

    If MsgBox("Etes-vous sûr ?", vbYesNo, "Confirmation") = vbNo Then
        Exit Sub
    Else
        Set CellNoArtiste = PlageNumeroArtiste.Find(Me.Label13, , LookIn:=xlValues)
            If Not CellNoArtiste Is Nothing Then
                WSBDD.Rows(CellNoArtiste.Row).EntireRow.Delete
'                Unload Me
            Else
                MsgBox "Ancien Numero Artiste : " & Me.TextBox17 & " n'existe pas !"
            End If
    
    End If

 

[dubarre]

Bonjour à toi,

Merci de ton aide, je testerai dès que possible.
Bien cordialement.

 

[fanch55]

Bonsoir, en fait après analyse approfondie du code,
le votre devrait fonctionner, tout dépend de ce qui est paramétré par défaut.
Je vous conseille de bien détailler votre find, xlbyvalue, xlbyrows, etc ...