Selection.Autofill Destination problème

Bonjour le forum.

J'ai une nouvelle fois besoin de votre aide.

La ligne Selection.Autofill Destination de mon code ne fonctionne pas et j'ai essayé plein d'autres manières mais rien n'y fait...

    Application.ScreenUpdating = False
    On Error GoTo OuvrirFeuilleJoueurs
    Set fa = ActiveSheet
    Set ws = Workbooks("ATP_Données_joueurs.xlsm")
    On Error GoTo 0
    Set fa = ActiveSheet

For Each fS In ws.Worksheets
If fS.Name = fa.Range("B15") Then

fS.Activate
fS.Range("EF3").Select
ActiveCell.FormulaR1C1 = "=IFERROR(IF(RC[-5]='[ATP - Pronostics.xlsm]Nouvelle feuille (2)'!R125C6,RC[-4],""""),"""")"
fS.Range("EF3").Select
ActiveCell.AutoFill Destination:=Range("EF3:EF1000"), Type:=xlFillDefault

fS.Range("EH3").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:R[997]C[-2])"

fS.Range("EH3").Copy
fa.Activate
fa.Range("I127").PasteSpecial xlPasteValues

End if
Next fS

Tout le reste du code fonctionne, c'est mon seul problème.

J'espère que quelqu'un pourra me dépanner !

Merci par avance et bon Dimanche

Mathieu

Bonjour,

c'est pour recopier vers le bas ou faire une série incrémenté ?

Bonjour,

C'est simplement pour incrémenter vers le bas.

Le résultat de la formule va dépendre des cases à sa gauche.

Bonjour,

pour incrémenter avec Type:=xlFillDefault il faut sélectionner 2 cellules au début

remplacer:

fS.Range("EF3").Select
ActiveCell.AutoFill Destination:=Range("EF3:EF1000"), Type:=xlFillDefault

par:

fS.Range("EF3:EF4").AutoFill Destination:=Range("EF3:EF1000"), Type:=xlFillDefault

Je me suis mal exprimé, désolé.

Je souhaite recopier un formule de la ligne 4 à 1000 en fonction de la 3.

Donc Type est faux dans mon cas

fS.Range("EF3").Select
Selection.AutoFill Destination:=Range("EF3:EF1000")

C'est exactement ce passage qui ne fonctionne pas.

est-ce ce code ferait l'affaire ?

fS.Range("EF3:EF1000").FillDown

Bonsoir,

Je l'avais essayé mais je ne pense pas de cette manière car maintenant ça fonctionne.

Je vous remercie et passez une bonne semaine !

Mathieu

Merci pour ce retour, au plaisir!

pour clôturer le fil, cliquer sur le bouton V vert du post à coté du bouton EDITER, merci!