Bonjour tout le monde !
Quelqu'un pourrait-il me dire où se trouve l'erreur ?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$2" Then
répertoire = [A2]
fichier = [B2]
For m = 1 To 12
Set c = ActiveWorkbook.Worksheets(m).Range("9:9")_
.Find("Débit", , xlValues, xlWhole, , , False) '***
If Not c Is Nothing Then
MsgBox c.Column
End If
Next m
End If
End Sub
Sachant que le " Set c...."
renvoie a un classeur fermé dont le chemin est [A2] et le nom en [B2]
*** : L'errreur est sur cette ligne :
"Erreur d'execution '9' :
L'indice n'appartient pas à la selection"
Merci