Excel recherche un objet !!

2 réponses

Denys

11/05/2006 à 14:20

Bonjour à tous,

Dans la macro suivante, excel recherche un objet, mais je ne comprends pas
pourquoi. Auriez-vous une idée de ce qui m'échappe?

Sub Essai()
Application.ScreenUpdating = False

With Worksheets("Daily Tasks")
DerL = .[L65536].End(3).Row
.[M3:M" & DerL & "].Formula = _
"=Sumproduct(($B$3:$B$" & DerL & " =L3)*(MONTH($A$3:$A$" & DerL &
")=5)*($E$3:$E$" & DerL & "))"
.Range("M3:M" & DerL & "").FillDown
.[M3:M" & DerL & "] = [M3:M" & DerL & "].Value

End With
End Sub

Merci

Denys

2 réponses

anonymousA

11/05/2006 à 14:31

Bonjour,

Tu faisais une mauvaise utilisation des crochets ([ ) avec les chaines
textuelles. Si tu veux utiliser des chaines textuelles de cette nature,
il faut utiliser soit ce que je te communique ci-dessous , soit
Evaluate.

With ActiveSheet
DerL = .[L65536].End(3).Row
.Range("M3:M" & DerL).Formula = _
"=Sumproduct(($B$3:$B$" & DerL & " =L3)*(MONTH($A$3:$A$" & DerL &
")=5)*($E$3:$E$" & DerL & "))"
.Range("M3:M" & DerL & "").FillDown
Range("M3:M" & DerL) = Range("M3:M" & DerL).Value

End With

A+

Denys

11/05/2006 à 15:15

Bonjour AnonymousA,

Merci infiniment...... Tout fonctionne à la perfection...

Bonne journée

Denys

Bonjour,

Tu faisais une mauvaise utilisation des crochets ([ ) avec les chaines
textuelles. Si tu veux utiliser des chaines textuelles de cette nature,
il faut utiliser soit ce que je te communique ci-dessous , soit
Evaluate.

With ActiveSheet
DerL = .[L65536].End(3).Row
.Range("M3:M" & DerL).Formula = _
"=Sumproduct(($B$3:$B$" & DerL & " =L3)*(MONTH($A$3:$A$" & DerL &
")=5)*($E$3:$E$" & DerL & "))"
.Range("M3:M" & DerL & "").FillDown
Range("M3:M" & DerL) = Range("M3:M" & DerL).Value

End With

A+

Excel recherche un objet !!

2 réponses

Veuillez sélectionner un problème