Autres If Not IsError(Application.Match

J

JM27

XLDnaute Barbatruc

• 22 Novembre 2021

• #2

bonjour
De plus REF n'est jamais chargé!!( a priori)

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 22 Novembre 2021

• #3

Bonjour JM
je n'ai pas ouvert le fichier(téléphone) lol
Bonne journée à toi
Jean marie

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 22 Novembre 2021

• #4

Bonjour ChTi160😉, JM27😉, @BalighTomy 🙂,

Ce n'est pas un point-virgule qu'i faut dans Range("A;A") mais un 2 points (:)
Bonne journée.

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 22 Novembre 2021

• #5

Re
Le jeu des 7 erreurs quoi ! Lol
Bonne journée

 

Vote positif 0 Vote négatif

BalighTomy

XLDnaute Nouveau

• 22 Novembre 2021

• #6

re Salut , Bonjour et Bonsoir ^^
même problème
Private Sub cmd_Supprimer_Click()
If TextBox1 = "" Then
MsgBox " il faut sélectionner un salarié pour pouvoir le supprimier"
Exit Sub
End If
If MsgBox("Etes-vous sur de vouloir supprimer ce salarié ? ", vbYesNo + vbCritical, "suppression article") = vbYes Then
Set ws = Sheets("sheet13")
If Not IsError(Application.Match(Matricule, Sheets("sheet13").Rang("A:A"), 0)) Then
ligne = Application.Match(Matricule, Sheets("sheet13").Range("A:A"), 0)
ws.Rows(ligne).EntireRow.Delete
Unload Me
MsgBox "Le salarié s'est correctement supprimé"
UserForm5.Show
End If
End If
End Sub



🙁

 

Pièces jointes

• Sans titre.png

  223.2 KB · Affichages: 18

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 22 Novembre 2021

• #7

Re
Tu enlèves le Point "." entre REF et Sheets et mets-y une Virgule !
Jean marie

 

Vote positif 0 Vote négatif

BalighTomy

XLDnaute Nouveau

• 22 Novembre 2021

• #8

@ChTi160 le fichier déjà upload
sheet13 protégé MDP : 12

 

Pièces jointes

• test2.xlsm

  896.3 KB · Affichages: 1

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 22 Novembre 2021

• #9

Re
ce que j'ai mis et semble fonctionner!

VB:

Private Sub cmd_Supprimer_Click()
Dim REF As Long
If TextBox1 = "" Then
MsgBox " il faut sélectionner un salarié pour pouvoir le supprimier"
Exit Sub
Else
 REF = TextBox1
End If
If MsgBox("Etes-vous  sur de vouloir supprimer ce salarié ? ", vbYesNo + vbCritical, "suppression article") = vbYes Then
Set ws = Sheets("sheet13")
If Not IsError(Application.Match(REF, Sheets("sheet13").Range("A:A"), 0)) Then
ligne = Application.Match(REF, Sheets("sheet13").Range("A:A"), 0)
ws.Rows(ligne).EntireRow.Delete
Unload Me
MsgBox "Le salarié s'est correctement supprimé"
UserForm5.Show
End If
End If
End Sub

jean marie

 

Vote positif 0 Vote négatif

BalighTomy

XLDnaute Nouveau

• 22 Novembre 2021

• #10

@ChTi160 c'est gentille de ta part . 🥰
@cp4 ,@JM27 merci 😉

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 22 Novembre 2021

• #11

re
bonsoir
@ChTi160 sérieux tu refait 2 fois le match ?

visiblement tu ne sais pas gérer l'erreur en amont
souhaitons qu'il n'est pas 36 000 lignes
et REF alors c'est un long et on lui met le value d'un textbox qui est forcement du string
heureusement que VBA et large avec nous humble mortel 😉

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 22 Novembre 2021

• #12

le match avec la gestion en amont tu le fait qu'une fois

VB:

Private Sub cmd_Supprimer_Click()
    Dim REF&,x&
    If TextBox1 = "" Then MsgBox " il faut sélectionner un salarié pour pouvoir le supprimier": Exit Sub
    REF = Val(TextBox1)
    If MsgBox("Etes-vous  sur de vouloir supprimer ce salarié ? ", vbYesNo + vbCritical, "suppression article") = vbYes Then

        With Sheets("sheets13")
            x = Application.IfError(Application.Match(REF, .Range("A:A"), 0), 0)
            If x > 0 Then
                .Rows(x).EntireRow.Delete
                Unload Me
                MsgBox "Le salarié s'est correctement supprimé"
                UserForm5.Show
            End If
        End With
    End If
End Sub

bien que pour réduire encore la charge de travail ,je réduirais la plage de match a ce qui est utilisé

 

Vote positif 0 Vote négatif

BalighTomy

XLDnaute Nouveau

• 22 Novembre 2021

• #13

patricktoulon à dit:

le match avec la gestion en amont tu le fait qu'une fois

VB:

Private Sub cmd_Supprimer_Click()
    Dim REF&,x&
    If TextBox1 = "" Then MsgBox " il faut sélectionner un salarié pour pouvoir le supprimier": Exit Sub
    REF = Val(TextBox1)
    If MsgBox("Etes-vous  sur de vouloir supprimer ce salarié ? ", vbYesNo + vbCritical, "suppression article") = vbYes Then

        With Sheets("sheets13")
            x = Application.IfError(Application.Match(REF, .Range("A:A"), 0), 0)
            If x > 0 Then
                .Rows(x).EntireRow.Delete
                Unload Me
                MsgBox "Le salarié s'est correctement supprimé"
                UserForm5.Show
            End If
        End With
    End If
End Sub

bien que pour réduire encore la charge de travail ,je réduirais la plage de match a ce qui est utilisé

Cliquez pour agrandir...

re slaut
c marche pas

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 22 Novembre 2021

• #14

c'est quoi qui marche pas ou l'erreur se produit ?

 

Vote positif 0 Vote négatif

BalighTomy

XLDnaute Nouveau

• 22 Novembre 2021

• #15

patricktoulon à dit:

With Sheets("sheets13")

Cliquez pour agrandir...

en plus rien se passe lorsq je click sur supprimer

 

Vote positif 0 Vote négatif