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

dubarre · 10 Septembre 2020

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 · 10 Septembre 2020

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

VB:

    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 · 10 Septembre 2020

Bonjour à toi,

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

fanch55 · 10 Septembre 2020

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

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

dubarre

XLDnaute Occasionnel

Pièces jointes

fanch55

XLDnaute Barbatruc

dubarre

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

Discussions similaires