Application.Match EST CE BIEN NORMAL?

Bonjour.
CA fonctionne bien et même mieux que WorhsheetFunction.Match. Publie ton
code, le problème est dans la manière de le coder.
Cordialement.
Daniel
"aline" <ghodbane7@hotmail.com> a écrit dans le message de news:
1137515454.587688.29670@o13g2000cwo.googlegroups.com...
je voulais savoir s'il est bien normal que Application.Match retourne
l'erreur 13 en sachan que j'utilise la même fonction dans un autre
pjet et que ça marche bien!!!!!!!!!!!!!!!!!

MERCI BCP POUR L'AIDE

je voulais savoir s'il est bien normal que Application.Match retourne
l'erreur 13 en sachan que j'utilise la même fonction dans un autre
pjet et que ça marche bien!!!!!!!!!!!!!!!!!

Es-tu sur que la valeur cherchée est bien présente dans la plage de recherche ??

AV

voici l code


Private Sub CommandButton1_Click()
Dim dat As Date, Arr
Dim pi As Integer, k As Integer, i As Integer, p As Integer


Dim souscoupon As Range, sousindex As Range, table As Range
Dim donnees() As Integer
pi = Application.CountA(Worksheets("Template").Range("datecoupon"))

ReDim donnees(p)
donnees(0) = 1
With Worksheets("Calendrier")
Set table = .Range(.Range("debut"), .Range("debut").Offset(5500, 0))
End With
For i = 1 To pi

dat = DateValue(Worksheets("Template").Range("datecoupon").Cells(i))
Arr = table.Value2
pos = Application.Match(CLng(dat), Arr, 0)

donnees(i) = pos

k = donnees(i - 1)
With Worksheets("Calendrier")
Set souscoupon = .Range(.Range("cpons").Item(k).Address,
.Range("cpons").Item(pos).Address)
Set sousindex = .Range(.Range("indexes").Item(k).Address,
.Range("indexes").Item(pos).Address)
souscoupon.Value = "Q" & i
sousindex.Value = Worksheets("Template").Range("Index").Item(i).Value

End With

Next

End Sub

oui elle est bien presente

une faute de copie
je redimensionne mon tab donnees à pi et non p
merci pour l'aide % à la fonction Application.Match

| oui elle est bien presente

pos = Application.Match(CLng(dat), Arr, 0)

Si j'étais toi je vérifierais la validité de "CLng(dat)" et de "Arr" plutôt que
de chercher l'erreur là où elle n'est pas (dans la fonction)

AV

Euh, Arr devrait être une variable de type range.
Daniel
"aline" <ghodbane7@hotmail.com> a écrit dans le message de news:
1137516928.624162.105520@g43g2000cwa.googlegroups.com...

voici l code


Private Sub CommandButton1_Click()
Dim dat As Date, Arr
Dim pi As Integer, k As Integer, i As Integer, p As Integer


Dim souscoupon As Range, sousindex As Range, table As Range
Dim donnees() As Integer
pi = Application.CountA(Worksheets("Template").Range("datecoupon"))

ReDim donnees(p)
donnees(0) = 1
With Worksheets("Calendrier")
Set table = .Range(.Range("debut"), .Range("debut").Offset(5500, 0))
End With
For i = 1 To pi

dat = DateValue(Worksheets("Template").Range("datecoupon").Cells(i))
Arr = table.Value2
pos = Application.Match(CLng(dat), Arr, 0)

donnees(i) = pos

k = donnees(i - 1)
With Worksheets("Calendrier")
Set souscoupon = .Range(.Range("cpons").Item(k).Address,
.Range("cpons").Item(pos).Address)
Set sousindex = .Range(.Range("indexes").Item(k).Address,
.Range("indexes").Item(pos).Address)
souscoupon.Value = "Q" & i
sousindex.Value = Worksheets("Template").Range("Index").Item(i).Value

End With

Next

End Sub