Dans la syntaxe suivante, la méthode Selection.Autofill est rejetée. Par
quoi dois-je la remplacer ???
With Worksheets("Budget Magasin")
.Range("B31").FormulaR1C1 = _
"=IF(RC[5]="""",,SUMIF('Budget 4'!C,'Budget
Magasin'!RC[-1],'Budget 4'!C[6]))"
Selection.AutoFill Destination:=Range("B31:B51"),
Type:=xlFillDefault
End With
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonjour. Remplace : Selection.AutoFill Destination:=Range("B31:B51"), Type:=xlFillDefault par : .Range("B31").AutoFill Destination:=.Range("B31:B51"), Type:=xlFillDefault Cordialement. Daniel
Bonjour,
Dans la syntaxe suivante, la méthode Selection.Autofill est rejetée. Par quoi dois-je la remplacer ???
With Worksheets("Budget Magasin") .Range("B31").FormulaR1C1 = _ "=IF(RC[5]="""",,SUMIF('Budget 4'!C,'Budget Magasin'!RC[-1],'Budget 4'!C[6]))" Selection.AutoFill Destination:=Range("B31:B51"), Type:=xlFillDefault End With
Bonjour.
Remplace :
Selection.AutoFill Destination:=Range("B31:B51"), Type:=xlFillDefault
par :
.Range("B31").AutoFill Destination:=.Range("B31:B51"),
Type:=xlFillDefault
Cordialement.
Daniel
Bonjour,
Dans la syntaxe suivante, la méthode Selection.Autofill est rejetée. Par
quoi dois-je la remplacer ???
With Worksheets("Budget Magasin")
.Range("B31").FormulaR1C1 = _
"=IF(RC[5]="""",,SUMIF('Budget 4'!C,'Budget
Magasin'!RC[-1],'Budget 4'!C[6]))"
Selection.AutoFill Destination:=Range("B31:B51"),
Type:=xlFillDefault
End With
Bonjour. Remplace : Selection.AutoFill Destination:=Range("B31:B51"), Type:=xlFillDefault par : .Range("B31").AutoFill Destination:=.Range("B31:B51"), Type:=xlFillDefault Cordialement. Daniel
Bonjour,
Dans la syntaxe suivante, la méthode Selection.Autofill est rejetée. Par quoi dois-je la remplacer ???
With Worksheets("Budget Magasin") .Range("B31").FormulaR1C1 = _ "=IF(RC[5]="""",,SUMIF('Budget 4'!C,'Budget Magasin'!RC[-1],'Budget 4'!C[6]))" Selection.AutoFill Destination:=Range("B31:B51"), Type:=xlFillDefault End With
Yvan
Parfait, merci beaucoup. -- Merci pour vos réponses.
"Daniel.C" a écrit :
Bonjour. Remplace : Selection.AutoFill Destination:=Range("B31:B51"), Type:=xlFillDefault par : ..Range("B31").AutoFill Destination:=.Range("B31:B51"), Type:=xlFillDefault Cordialement. Daniel
> Bonjour, > > Dans la syntaxe suivante, la méthode Selection.Autofill est rejetée. Par > quoi dois-je la remplacer ??? > > With Worksheets("Budget Magasin") > .Range("B31").FormulaR1C1 = _ > "=IF(RC[5]="""",,SUMIF('Budget 4'!C,'Budget > Magasin'!RC[-1],'Budget 4'!C[6]))" > Selection.AutoFill Destination:=Range("B31:B51"), > Type:=xlFillDefault > End With
Parfait, merci beaucoup.
--
Merci pour vos réponses.
"Daniel.C" a écrit :
Bonjour.
Remplace :
Selection.AutoFill Destination:=Range("B31:B51"), Type:=xlFillDefault
par :
..Range("B31").AutoFill Destination:=.Range("B31:B51"),
Type:=xlFillDefault
Cordialement.
Daniel
> Bonjour,
>
> Dans la syntaxe suivante, la méthode Selection.Autofill est rejetée. Par
> quoi dois-je la remplacer ???
>
> With Worksheets("Budget Magasin")
> .Range("B31").FormulaR1C1 = _
> "=IF(RC[5]="""",,SUMIF('Budget 4'!C,'Budget
> Magasin'!RC[-1],'Budget 4'!C[6]))"
> Selection.AutoFill Destination:=Range("B31:B51"),
> Type:=xlFillDefault
> End With
Parfait, merci beaucoup. -- Merci pour vos réponses.
"Daniel.C" a écrit :
Bonjour. Remplace : Selection.AutoFill Destination:=Range("B31:B51"), Type:=xlFillDefault par : ..Range("B31").AutoFill Destination:=.Range("B31:B51"), Type:=xlFillDefault Cordialement. Daniel
> Bonjour, > > Dans la syntaxe suivante, la méthode Selection.Autofill est rejetée. Par > quoi dois-je la remplacer ??? > > With Worksheets("Budget Magasin") > .Range("B31").FormulaR1C1 = _ > "=IF(RC[5]="""",,SUMIF('Budget 4'!C,'Budget > Magasin'!RC[-1],'Budget 4'!C[6]))" > Selection.AutoFill Destination:=Range("B31:B51"), > Type:=xlFillDefault > End With