Bonjour
J’étais venu solliciter les experts en VBA sur ce forum en décembre dernier pour créer une macro qui ferait descendre les formules des dernières cellules non vides…
Merci à Mimimathy88 pour son aide précieuse.
tout fonctionnait jusqu’à aujourdhui !..
Maintenant j’ai un problème de capacité.Message : “Erreur d’exécution 6 Dépassement de capacité”
De ce que je comprends c’est par ce que j’ai atteins les 32000 lignes.
Je dois modifier ma variable avec le type “Long”…
Mais je n’y parviens pas.
Voici mon code aujourd’hui qui fonctionnait, avant que j’atteigne ces 32000 lignes de données.
Pour faire descendre cette dernière ligne de formules jusqu’à la dernière ligne de données intégrées:
Dim Dl1%, Dl2%
Dl1 = Range(“A” & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne A
Dl2 = Range(“X” & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne X
Range(“X” & Dl2).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.AutoFill Destination:=Range(Cells(Dl2, 24), Cells(Dl1, 33))
Merci d’avance
Cdt
Captain78