Erreur d'exécution '1004
Bonjour,
Je rencontre le message d'erreur suivant : "Impossible de lire la propriété Match de la classe WorksheetFunction" pour le code ci dessous :
Sub macro()
d = 4
k = 0
For i = 3 To 6 'lignes de la feuille resultats'
b = Application.WorksheetFunction.Match(sheets("Resultats").Cells(i, 1).Value, sheets("Extraction").Range("A4:A147").Value, 0)
For j = 4 To 42
For a = b To b + sheets("Resultats").Cells(i, 2)
If sheets("Extraction").Cells(a, j).Value = 0 Then
k = k + 1
ElseIf k > 0 Then
sheets("Resultats").Cells(i, j) = k
k = 0
End If
Next a
Next j
Next i
End Sub
Les valeurs que je souhaite "matcher" sont des dates et il me semble que le problème vient de là. Quelqu'un saurait comment résoudre le problème ?
Merci
Bonjour,
Sans données pour accompagner le code, c'est difficile de répondre ! Merci de joindre un classeur pour illustrer le problème.