Selection.Autofill...

Le
Yvan
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

--
Merci pour vos réponses.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #19091291
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
Le #19091261
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





Publicité
Poster une réponse
Anonyme