Bonjour,
J'ai un souci sur un bout de code que j'ai obtenu via Excel Download et que j'ai modifié pour mon besoin (je n'y connais pas grand chose en vba) :
L'erreur se produit sur les 2 "Application.WorksheetFunction.Match"
Erreur d'execution 1004 : Impossible de lire la propriété Match de la classe WorksheetFunction.
Est-ce que quelqu'un verrait d'où peut venir le problème ???
D'avance merci à tous.
MelaAllIn
J'ai un souci sur un bout de code que j'ai obtenu via Excel Download et que j'ai modifié pour mon besoin (je n'y connais pas grand chose en vba) :
Code:
Sub ModifierContact()
Dim ARP, NbLignes As Long
ARP = Application.InputBox(Prompt:="Code ARP pour lequel vous souhaitez modifier le contact :", Title:="Modifier un contact", Type:=2)
If ARP = "Faux" Then Exit Sub
With ThisWorkbook.Worksheets("1-Datas")
NbLignes = .Range("A65536").End(xlUp).Row
If Application.WorksheetFunction.Match(ARP, .Range("A6:A" & NbLignes), CStr(ARP)) = 0 Then
MsgBox Prompt:="Code ARP introuvable", Title:="Erreur", Buttons:=vbCritical
Exit Sub
End If
Ligne = Application.WorksheetFunction.Match(ARP, .Range("A6:A" & NbLignes), 0) + 1
End With
ModifContactUSF.Show
End Sub
L'erreur se produit sur les 2 "Application.WorksheetFunction.Match"
Erreur d'execution 1004 : Impossible de lire la propriété Match de la classe WorksheetFunction.
Est-ce que quelqu'un verrait d'où peut venir le problème ???
D'avance merci à tous.
MelaAllIn