Autres If Not IsError(Application.Match

[BalighTomy]

Salut
bref ====> ôté mots de passe : 12
merci d'avance

 

[JM27]

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

 

[ChTi160]

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

 

[cp4]

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.

 

[ChTi160]

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

 

[BalighTomy]

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

 

[ChTi160]

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

 

[BalighTomy]

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

 

[ChTi160]

Re
ce que j'ai mis et semble fonctionner!

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

 

[BalighTomy]

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

 

[patricktoulon]

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

 

[patricktoulon]

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

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é

 

[BalighTomy]

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

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é

re slaut
c marche pas

 

[patricktoulon]

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

 

[BalighTomy]

With Sheets("sheets13")

en plus rien se passe lorsq je click sur supprimer