Problème avec la fonction Selection.AutoFill

[Yagan]

Bonjour, je suis néophite et j'ai besoin d'un petit coup de main pour comprendre et débuguer une ligne de commande commencant par Selection.AutoFill.

Voici la ligne incriminée :

Selection.AutoFill Destination:=Range(MaCelluleDepartEnJ, MaCelluleFin), Type:=xlFillDefault

Pour avancer j'aimerais déjà savoir que fait cette fonction ?

Sub CopierLesFormulesJusquEnBasDansRankingsCompletEtDetail()
 
    Dim MaCelluleDepartEnJ As Variant
    Dim MaCelluleDepartEnW As Variant
    Dim MaCelluleFin As Variant
 
    MaCelluleDepartEnJ = Range("J2").Address
    MaCelluleDepartEnW = Range("W2").Address
    MaCelluleFin = Range("A1").CurrentRegion.End(xlDown).Offset(0, 22).Address
 
    If MaCelluleFin = Range("W65536").Address Then Exit Sub
 
    Range(MaCelluleDepartEnJ, MaCelluleDepartEnW).Select
    Selection.AutoFill Destination:=Range(MaCelluleDepartEnJ, MaCelluleFin), Type:=xlFillDefault

 

[tototiti2008]

Re : Problème avec la fonction Selection.AutoFill

Bonjour Yagan,

AutoFill recopie une formule (comme avec la poignée de recopie)
ce code recopie les formules de J2 à W2 jusqu'en bas du tableau, a priori

 

[Yagan]

Re : Problème avec la fonction Selection.AutoFill

Merci

Donc le bug vient du faite que je n'ai qu'une seul ligne (initiale) dans ma colonne de Gauche (de référence) --> il ne peu pas descendre les données
Car lorsque j'ai plusieurs ligne je n'ai pas de problème.

Comment puis je contourner le bug ?

 

[tototiti2008]

Re : Problème avec la fonction Selection.AutoFill

Re,

Peut-être comme ça :

MaCelluleFin = Range("A2").End(xlDown).Offset(0, 22).Address

 

[Yagan]

Re : Problème avec la fonction Selection.AutoFill

Super ça marche merci bien Toto pour ta disponibilité